Anexo

Pantalla entorno local de Onesait Editran

DD/HH/AA HH:MM:SS          CONSULTA DEL ENTORNO LOCAL    (2)       EDITRAN 5.3
 ------------------------------------------------------------------------------
 TRANSACCIONES EDITRAN                                                         
  NUCLEO    : ZTB1  MENU GENERAL: ZTBO  ADM. PERFILES: ZTBJ  G.EDITRAN/E: ZTBE 
  TIME-OUT  :       OPERADOR    : ZTBO  AD.EDITRAN/GC: ZTBD  C.EDITRAN/E: ZTBC 
  LOG/TRAZA : ZTBO  FICHEROS    : ZTBO  AD.EDITRAN/FF: ZTBK  ADM.ALARMAS: ZTBL 
 MONITORIZACION DE RED                                                         
  PROCESO: ZTBEJMCO  TRANSAC: ZTBM  PUERTO CONSULTAS:  07770 TIMEOUT: 20 seg   
 CAMPOS CIFRADO                                                                
  LABEL LOCAL        : LEDITRAN          LABEL REMOTO    : REDITRAN            
 INTERFAZ BATCH                              PROCEDIMIENTOS                    
  PROCESO    : ZTBPJIG     PREVIO EMISION   : ZTBGP1ID PREVIO RECEP. : ZTBGP2ID
  TRANSACCION: ZTBI        POSTERIOR EMISION: ZTBGP3ID POSTERIOR REC.: ZTBGP4ID
                           PROC. EXCEPCION  : ZTBGP5ID MODIF. ESTADOS: ZTBGP6ID
  PREFIJO DE FICHEROS: KI.EGDI               GRABAR EN LOG DEL SISTEMA (S/N): S
  UNIT DE TRABAJO: SYSDA    (SYSDA,VIO,..)   AJUSTAR ESP.CREACION FICH.(S/N): S
  VOL. O POOL DE TRAB. (V/P): P              VOLUMEN DE TRABAJO: DESARROL      
  FICHAS JCL,S:                                                                
      //KIIMSPR JOB (SNCE,KIT,,99),PRUEBA,CLASS=A,MSGLEVEL=1,                  
      //             MSGCLASS=H                                                
      //*                                                                      
      //*                                                                      
      //*                                                                      

ℹ️Informar el parámetro AD.EDITRAN/GC con la transacción ZTBD

Pantalla sesión de Onesait Editran (Aplicación de Servicio - TELEGC)

19/09/24 16:55:57             MODIFICACION SESION (2)              EDITRAN 5.3
------------------------------------------------------------------------------
SESION: 0 0009998 0 - 0 0009999 0 - TELEGC                                    
SESION HABILITADA (S/N)    :           TRAZA (S/C/N)               : C        
EXTREMO LLAMANTE (L/R/X)   : X         VALIDAR DIRECCION IP (S/N)  :          
SENTIDO DEL TRAFICO (L/R/X): X         ROTAR DIRECCIONES (L/R/X/N) : X        
CONEXION AUTOMATICA (S/N)  : S         DESCONEXION AUTOMATICA (S/N): S        
NUM.REG.SINCRONISMO        : 025       LONG MENSAJE (0252-4050)    : 4050     
TIME OUT (MSS)             : 030       ENVIO AUTOMATICO (S/N)      : N        
TIME OUT DATOS (MSS)       : 100       HORA INICIO (HHMMSS)        : 000000   
NUM.MAX. REINTENTOS        : 3         HORA FIN(HHMMSS)            : 000000   
                                                                              
                    --- CRIPTOGRAFIA (S/N): N ---                             
VERSION CRIPTOGRAFICA (N.N):                                                  
ALGORITMO CIFRADO DE DATOS :           ALGORITMO AUTENTICACION     :       
SUBSISTEMAS-LOCAL:   REMOTO :                                                 
CLAVE LOC:                                                                    
CLAVE REM:                                                                    
                                                                               
                                                                               


                                                                               

ℹ️Los parámetros EXTREMO LLAMANTE (L/R/X) y SENTIDO DEL TRAFICO (L/R/X) tienen que tener el valor X

Pantalla sesión de Onesait Editran (Aplicación de Servicio - TELEGC)

DD/HH/AA HH:MM:SS             MODIFICACION SESION (3)              EDITRAN 5.3
 ------------------------------------------------------------------------------
 SESION: 0 0009998 0 - 0 0009999 0 - TELEGC             PARAMETROS DE ENTORNO. 
   CLIENTE SERVIDOR TCP/IP: ZTCP ZTC1                     USAR PROXY (S/N): N  
   DIRECCION IP PROXY                                                PUERTO    
   010.055.000.017                                                   07778     
   010.055.000.017                                                   07776     
   010.055.000.017                                                   07776     
                                                                               
                                                                               
                                                                               
   PROCESO: ZTBPJIG    TRANSACCION: ZTBI  ALIAS: L00                           
   PREVIO EMISION   : ZTBGP1ID AUT.: S PREVIO RECEP. : ZTBGP2ID AUT.: S        
   POSTERIOR EMISION: ZTBGP3GC AUT.: S POSTERIOR REC.: ZTBGP4GC AUT.: S        
   PROC. EXCEPCION  : ZTBGP5ID         MODIF. ESTADOS: ZTBGP6ID                
 PREFIJO DE FICHEROS: KI.EGDI             GRABAR EN LOG DEL SISTEMA (S/N): S   
 UNIT DE TRABAJO: SYSDA    (SYSDA,VIO,..) AJUSTAR ESP.CREACION FICH.(S/N): S   
 VOL. O POOL DE TRAB. (V/P): P            VOLUMEN DE TRABAJO: DESARROL         
 FICHAS JCL,S : //KICICTG JOB (SNCE,KIT,,99),CICGESCLA,MSGCLASS=H,CLASS=A,     
                //             MSGLEVEL=1,NOTIFY=&SYSUID                       
                //*                                                            
                //*                                                            
                //*                                                          

Procedimientos de Onesait Editran/GC y sus RESULTADOS

Procedimiento previo a emisión (ZTBGP1GC)

//      PROC ORIGEN=,FUNCION=,L0=,                                    
//           L1=,L2=,R1=,R2=,AP=,LF=,SUBS=,RSA=                       
//*--------------------------------------------------------------------
//* INDRA                                                             
//*--------------------------------------------------------------------
//*   PROCEDIMIENTO GESTION CLAVES DE INTERCAMBIO +                   *
//*                 PREVIO A LA EMISION EDITRAN/G                     *
//*   SI PASO001 ACABA CON RC = 01, ENTRA PASO A1P (ENVIO)            *
//*   SI PASO001 ACABA CON RC DISTINTO 01, NO ENTRA A1P               *
//*   VALIDO PARA LA ENTIDAD QUE EXPORTA - ENVIA CLAVES A REMOTOS     *
//*--------------------------------------------------------------------
//*  DATOS:                                                           *
//*      ORIGEN (O=OPERADOR,E=EDITRAN,A=JCL APLICACION) ----> 1 BYTE  *
//*      ------ (EN ESTE CASO SIEMPRE A=JCL)            ----> 1 BYTE  *
//*      FUNCION  00=GENERACION RSA PROPIAS (NO ENTRA A1P) (RSA=R)    *
//*      -------  01=EXPORTACION RSA A REMOTOS (NO ENTRA A1P) (RSA=R) *
//*               03=EXPORTACION RSA A REMOTOS + A1P (RSA=R)          *
//*                                                    -----> 2 BYTES *
//*                                                                   *
//*      SESION-PRESENTACION  ------------------------------>24 BYTES *
//*      -------------------                         TOTAL = 27 BYTES *
//*      LISTA FICHEROS (S/N) (OBLIATORIO S) ---------------> 1 BYTE  *
//*      -------------------------------                              *
//*      SUBS  : SUBSISTEMA DE ACCESO ----------------------> 1 BYTE  *
//*      -----                                                        *
//*      RSA   : (R)SA -------------------------------------> 1 BYTE  *
//*      -----                                                        *
//*                                                  TOTAL = 30 BYTES *
//*--------------------------------------------------------------------
//PASO001  EXEC PGM=ZTBGBGC1,                                         
//         PARM='&FUNCION&RSA&L1&L2&R1&R2&SUBS/CBLQDA(ON)',           
//         REGION=0M,TIME=25                                          
//STEPLIB  DD DSN=KI.EIDA.LOAD,DISP=SHR                               
//         DD DSN=KI.EGDI.LOAD,DISP=SHR                               
//         DD DSN=IMSP.SDFSRESL,DISP=SHR                              
//         DD DSN=KI.EGDC.ZTBP.LOAD.ICSF,DISP=SHR                     
//*FICHERO QUE CONTIENE LISTA DE FICHEROS. SE HACE SIEMPRE OPEN-OUTPUT
//*EN CASO DE NO TENER EDITRAN SE PONE COMO SYSOUT                    
//*(INTERNAMENTE EN RSA: PREFIJO11.LLLLLLLL.LLL.RRRRRRRR.RRR.RLSVVV)  
//ZTBGFCAR DD DSN=&&CAR,DISP=(NEW,PASS,DELETE),                       
//             UNIT=SYSDA,SPACE=(TRK,(1,1),RLSE),                     
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=0,DSORG=PS)             
//ZTBGFDGC DD DSN=KI.EGDI.ZTBG.JCLS(ZTBGFDGC),DISP=SHR                
//ZTBGFPRI DD SYSOUT=*,DCB=(BLKSIZE=105)                              
//ZTBGFMSJ DD SYSOUT=*                                                
//SYSOUT   DD SYSOUT=*                                                
//*--------------------------------------------------------------------
//  SET PR=&AP                                                        
// IF (PASO001.RC=1) THEN                                             
//A1P      EXEC PGM=ZTBGB110,                                         
//         PARM='&ORIGEN&FUNCION&L1&L2&R1&R2&PR&AP&LF/CBLQDA(ON)',    
//         REGION=0M,TIME=25                                          
//*        PARM='&ORIGEN&FUNCION&L1&L2&R1&R2&PR&AP.S/CBLQDA(ON)',     
//STEPLIB  DD DSN=KI.EIDA.LOAD,DISP=SHR                               
//         DD DSN=KI.EGDI.LOAD,DISP=SHR                               
//         DD DSN=IMSP.SDFSRESL,DISP=SHR                              
//         DD DSN=KI.EGDC.ZTBP.LOAD.ICSF,DISP=SHR                      
//ZTBGFLOG DD SYSOUT=*                                                 
//ZTBGF032 DD DSN=KI.EGDI.ZTBG.ZTBGF032,DISP=SHR                       
//*FICHERO QUE CONTIENE LISTA DE FICHEROS                              
//ZTBGFCAR DD DSN=&&CAR,DISP=(OLD,PASS)                                
//ZTBGFLIS DD SYSOUT=*                                                 
//ZTBGFMSJ DD SYSOUT=*                                                 
//ZTBGFPRI DD SYSOUT=*,DCB=(BLKSIZE=105)                               
//ZTBGFINT DD SYSOUT=(H,INTRDR),DCB=(BLKSIZE=80)                       
//*FICHERO QUE CONTIENE TABLAS CONVERSION                              
//ZTBGFTCO DD DSN=KI.EGDI.ZTBG.ZTBGFTCO,DISP=SHR                       
//CEEDUMP  DD SYSOUT=*                                                 
//SYSOUT   DD SYSOUT=*                                                 
//SYSPRINT DD SYSOUT=*                                                 
//      SET LOCAL0=&L0                                                 
//                                                                    

Mensajes del proceso de envío de la clave

ZTG225: 'ERROR GENERANDO EL FICHERO ZTBGFMEC. RDO: nnnn'.

Error al escribir el mensaje con la clave en el fichero que se ha de enviar al remoto. Revisar mensajes en el fichero SYSPRINT de la salida de la ejecución

ZTG301 'NO EXISTE EL REGISTRO DE CLAVE'.

La clave que se pide enviar no está en la BD de Editran/GC

ZTG302: 'ERROR EXPORTANDO- EXISTE UNA CLAVE PENDIENTE DE CONFIRMAR: nn'.

nn: indica la versión pendiente de confirmar. No se puede enviar una nueva versión de la clave

ZTG303 'ERROR EXPORTANDO- LA CLAVE DE ESTA VERSION YA SE EXPORTO: nn'.

nn: muestra la versión de la clave ya exportada, que se puede consultar en el administrador de Editran/GC

ZTG304. 'ERROR EXPORTANDO- NO EXISTE CLAVE ACTIVA EN EL SUBSISTEMA'.

ZTG305 'ERROR EXPORTANDO- LON. CLAVE FIRMANTE INCOMPATIBLE CON LON. CLAVE EXPORTAR'.

La longitud de la clave RSA que se quiere exportar es de 1024 bits y la longitud de la clave con la que se va a firmar el envío es mayor.

Procedimiento posterior a emisión (ZTBGP3GC)

//             PROC ORIGEN=,FUNCION=,L0=,                              
//             L1=,L2=,R1=,R2=,PR=,AP=                                 
//*--------------------------------------------------------------------
//* INDRA                                                              
//*--------------------------------------------------------------------
//*   PROCEDIMIENTO POSTERIOR A LA EMISION DE EDITRAN/G               *
//*   GESTION DE CLAVES DE INTERCAMBIO                                *
//*--------------------------------------------------------------------
//*  DATOS:                                                           *
//*      ORIGEN (O=OPERADOR,E=EDITRAN,A=JCL APLICACION) ----> 1 BYTE  *
//*                                                                   *
//*      FUNCION (02=PROCESAR PRESENTACION POSTERIOR A EMISION        *
//*               05=FIN DE EMISION DE PRESENTACION)   -----> 2 BYTES *
//*                                                                   *
//*      SESION-PRESENTACION  :                                       *
//*        CODIGO LOCAL L1  --------------------------------> 6 BYTES *
//*                     L2  --------------------------------> 3 BYTES *
//*        REMOTO       R1  --------------------------------> 6 BYTES *
//*                     R2  --------------------------------> 3 BYTES *
//*        REMOTO       R1  --------------------------------> 6 BYTES *
//*                     R2  --------------------------------> 3 BYTES *
//*        APLICACION   PR  --------------------------------> 6 BYTES *
//*                                                                   *
//*      SESION-TRANSMISION  (EDITRAN/P):                             *
//*        APLICACION   AP  --------------------------------> 6 BYTES *
//*                                                  TOTAL = 33 BYTES *
//*      ALIAS ENTORNO LOCAL (PARA USOS PARTICULARES)                 *
//*                     L0  --------------------------------> 3 BYTES *
//*--------------------------------------------------------------------
//A3P     EXEC PGM=ZTBGB130,REGION=4M,                                 
//             PARM='&ORIGEN&FUNCION&L1&L2&R1&R2&PR&AP/CBLQDA(ON)'     
//STEPLIB   DD DSN=IMSP.SDFSRESL,DISP=SHR                              
//          DD DSN=KI.EIDA.LOAD,DISP=SHR                               
//          DD DSN=KI.EGDI.LOAD,DISP=SHR                               
//          DD DSN=KI.EGDC.ZTBP.LOAD.ICSF,DISP=SHR                     
//ZTBGFLOG  DD SYSOUT=*                                                
//ZTBGF032  DD DSN=KI.EGDI.ZTBG.ZTBGF032,DISP=SHR                      
//ZTBGFLIS  DD SYSOUT=*                                                
//ZTBGFMSJ  DD SYSOUT=*                                                
//ZTBGFPRI  DD SYSOUT=*,DCB=(BLKSIZE=105)                             
//ZTBGFINT  DD SYSOUT=(H,INTRDR),DCB=(BLKSIZE=80)                     
//SYSOUT    DD SYSOUT=*                                               
//      SET LOCAL0=&L0                                                
//*                                                                   
//*--------------------------------------------------------------------
//* PASO PARA SACAR LISTA DE FICHEROS EMITIDOS                        *
//*--------------------------------------------------------------------
//*   ORIGEN --------------------------------------------> 1 BYTE     *
//*       A  - PETICION CON SESION DE TRANSMISION INCLUIDA            *
//*       E-O- PETICION CON SESION DE PRESENTACION INCLUIDA           *
//*   FUNCION -------------------------------------------> 2 BYTES    *
//*       00 - SACA LA LISTA INDEPENDIENTEMENTE DE ESTADO PRESENTACION*
//*       02 - SACA LA LISTA SI EL ESTADO DE PRESENTACION ES FINALIZ. *
//*   SES. PRESENT. O SES. TRANSM.(DEPENDIENDO DE ORIGEN)> 24 BYTES   *
//*--------------------------------------------------------------------
//ZTBGLFE   EXEC PGM=ZTBGBLFE,REGION=4M,                              
//          PARM='&ORIGEN&FUNCION&L1&L2&R1&R2&PR&AP/CBLQDA(ON)'       
//STEPLIB   DD DSN=IMSP.SDFSRESL,DISP=SHR                             
//          DD DSN=KI.EIDA.LOAD,DISP=SHR                              
//          DD DSN=KI.EGDI.LOAD,DISP=SHR                               
//ZTBGFLOG  DD SYSOUT=*                                                
//ZTBGF032  DD DSN=KI.EGDI.ZTBG.ZTBGF032,DISP=SHR                      
//ZTBGFLFE  DD DSN=&&LFE,DISP=(NEW,PASS,DELETE),                       
//             UNIT=SYSDA,SPACE=(TRK,(1,1),RLSE),                      
//             DCB=(RECFM=FB,LRECL=200,BLKSIZE=0,DSORG=PS)             
//ZTBGFPRI  DD SYSOUT=*,DCB=(BLKSIZE=105)                              
//SYSOUT    DD SYSOUT=*                                                
//*                                                                    
//PASO003   EXEC PGM=ZTBGBGC3,                                         
//          PARM='&ORIGEN&FUNCION&L1&L2&R1&R2&AP/CBLQDA(ON)',          
//          REGION=0M,TIME=25                                          
//STEPLIB   DD DSN=IMSP.SDFSRESL,DISP=SHR                              
//          DD DSN=KI.EIDA.LOAD,DISP=SHR                               
//          DD DSN=KI.EGDI.LOAD,DISP=SHR                               
//          DD DSN=KI.EGDC.ZTBP.LOAD.ICSF,DISP=SHR                     
//ZTBGFLFE  DD DSN=&&LFE,DISP=(OLD,PASS)                               
//ZTBGFDGC  DD DSN=KI.EGDI.ZTBG.JCLS(ZTBGFDGC),DISP=SHR                
//ZTBGFPRI  DD SYSOUT=*,DCB=(BLKSIZE=105)                              
//ZTBGFMSJ  DD SYSOUT=*                                                
//SYSOUT    DD SYSOUT=*                                                
//                                                                     

Mensajes del proceso de activación de la clave

ZTG217: 'ERROR EN LAS CARACTERISTICAS DEL FICHERO DE INTERCAMBIO'.

El fichero que contiene la clave/confirmación intercambiada no ha sido enviado con las características esperadas (FIJO y EBCDIC)

ZTG301: 'NO EXISTE EL REGISTRO DE CLAVE'.

La clave indicada en el mensaje de intercambio no está en la BD de Editran/GC

ZTG303. 'ERROR CONFIRMACION-LA VERSION PENDIENTE NO ES LA RECIBIDA: nn'.

nn: muestra la versión de la clave pendiente de confirmar, que se puede consultar en el administrador de Editran/GC; la versión del mensaje intercambiado (ZTBGFMEC) es diferente

ZTG304: 'FORMATO INCORRECTO DEL MENSAJE (ZTBGFMEC)'.

El identificador o la versión del mensaje no son los esperados

ZTG305: 'NO EXISTE NINGUNA CLAVE PENDIENTE DE CONFIRMAR'.

ZTG306: 'NO EXISTE LA VERSION ENVIADA EN EL FICHERO DE CONTROL'.

El mensaje intercambiado (ZTBGFMEC) contiene una versión que no se corresponde a ninguna de las claves almacenas en Editran/GC

ZTG307: 'CLAVE PROCESADA CORRECTAMENTE'.

Procedimiento posterior a recepción (ZTBGP4GC)

//      PROC ORIGEN=,FUNCION=,L0=L00,                                  
//           L1=,L2=,R1=,R2=,PR=,AP=                                   
//*--------------------------------------------------------------------
//* INDRA                                                              
//*--------------------------------------------------------------------
//*   PROCEDIMIENTO POSTERIOR A LA RECEPCION DE EDITRAN/G             *
//*   GESTION DE CLAVES DE INTERCAMBIO                                *
//*--------------------------------------------------------------------
//*  DATOS:                                                           *
//*      ORIGEN (O=OPERADOR,E=EDITRAN,A=JCL APLICACION) ----> 1 BYTE  *
//*                                                                   *
//*      FUNCION (07=DESCARGA DE RECEPCION DE PRESENTACION            *
//*               09=FIN DE RECEPCION DE PRESENTACION ) ----> 2 BYTES *
//*                                                                   *
//*      SESION-PRESENTACION  :                                       *
//*        CODIGO LOCAL L1  --------------------------------> 6 BYTES *
//*                     L2  --------------------------------> 3 BYTES *
//*        REMOTO       R1  --------------------------------> 6 BYTES *
//*                     R2  --------------------------------> 3 BYTES *
//*        APLICACION   PR  --------------------------------> 6 BYTES *
//*                                                                   *
//*      SESION-TRANSMISION  (EDITRAN/P):                             *
//*        APLICACION   AP  --------------------------------> 6 BYTES *
//*                                                  TOTAL = 33 BYTES *
//*      ALIAS ENTORNO LOCAL (PARA USOS PARTICULARES)                 *
//*                     L0  --------------------------------> 3 BYTES *
//*--------------------------------------------------------------------
//A4P      EXEC PGM=ZTBGB140,REGION=0M,TIME=25,                        
//         PARM='&ORIGEN&FUNCION&L1&L2&R1&R2&PR&AP/CBLQDA(ON)'         
//STEPLIB  DD DSN=IMSP.SDFSRESL,DISP=SHR                               
//         DD DSN=KI.EIDA.LOAD,DISP=SHR                                
//         DD DSN=KI.EGDI.LOAD,DISP=SHR                                
//         DD DSN=KI.EGDC.ZTBP.LOAD.ICSF,DISP=SHR                      
//ZTBGFLOG DD SYSOUT=*                                                 
//ZTBGF032 DD DSN=KI.EGDI.ZTBG.ZTBGF032,DISP=SHR                       
//ZTBGFLIS DD SYSOUT=*                                                 
//ZTBGFMSJ DD SYSOUT=*                                                 
//ZTBGFPRI DD SYSOUT=*,DCB=(BLKSIZE=105)                               
//*FICHERO QUE CONTIENE TABLAS CONVERSION                              
//ZTBGFTCO DD DSN=KI.EGDI.ZTBG.ZTBGFTCO,DISP=SHR                       
//SYSOUT   DD SYSOUT=*                                                 
//SYSPRINT DD SYSOUT=*                                                 
//CEEDUMP  DD SYSOUT=*                                                 
//* (INTERNAL READER DE LA IGA. PONGASE CLASE DE SALIDA DE TRABAJOS )  
//ZTBGFINT DD SYSOUT=(H,INTRDR),DCB=(BLKSIZE=80)                       
//      SET LOCAL0=&L0                                                 
//*--------------------------------------------------------------------
//* PASO PARA SACAR LISTA DE FICHEROS RECIBIDOS                       *
//*--------------------------------------------------------------------
//ZTBGLFE  EXEC PGM=ZTBGBLFE,REGION=0M,                                
//         PARM='&ORIGEN&FUNCION&L1&L2&R1&R2&PR&AP/CBLQDA(ON)'         
//STEPLIB  DD DSN=IMSP.SDFSRESL,DISP=SHR                               
//         DD DSN=KI.EIDA.LOAD,DISP=SHR                                
//         DD DSN=KI.EGDI.LOAD,DISP=SHR                                
//ZTBGF032 DD DSN=KI.EGDI.ZTBG.ZTBGF032,DISP=SHR                       
//ZTBGFLFE DD DSN=&&LFE,DISP=(NEW,PASS,DELETE),                        
//            UNIT=SYSDA,SPACE=(TRK,(1,1),RLSE),                       
//            DCB=(RECFM=FB,LRECL=200,BLKSIZE=0,DSORG=PS)              
//ZTBGFPRI DD SYSOUT=*,DCB=(BLKSIZE=105)                               
//SYSOUT   DD SYSOUT=*                                                
//*                                                                   
//PASO003  EXEC PGM=ZTBGBGC4,                                         
//         PARM='&ORIGEN&FUNCION&L1&L2&R1&R2&AP/CBLQDA(ON)',          
//         REGION=0M,TIME=25                                          
//STEPLIB  DD DSN=IMSP.SDFSRESL,DISP=SHR                              
//         DD DSN=KI.EIDA.LOAD,DISP=SHR                               
//         DD DSN=KI.EGDI.LOAD,DISP=SHR                               
//         DD DSN=KI.EGDC.ZTBP.LOAD.ICSF,DISP=SHR                     
//*FICHEROS DE CRIPTOGRAFIA                                           
//*--                                                                 
//ZTBGFLFE DD DSN=&&LFE,DISP=(OLD,PASS)                               
//ZTBGFCAR DD DSN=&&CAR,DISP=(NEW,PASS,DELETE),                       
//             UNIT=SYSDA,SPACE=(TRK,(1,1),RLSE),                     
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=0,DSORG=PS)             
//ZTBGFDGC DD DSN=KI.EGDI.ZTBG.JCLS(ZTBGFDGC),DISP=SHR                
//ZTBGFPRI DD SYSOUT=*,DCB=(BLKSIZE=105)                              
//ZTBGFMSJ DD SYSOUT=*                                                
//SYSOUT   DD SYSOUT=*                                                
//*                                                                   
// IF (PASO003.RC=1) THEN                                             
//A1P      EXEC PGM=ZTBGB110,REGION=0M,TIME=25,                       
//         PARM='&ORIGEN.03&L1&L2&R1&R2&PR&AP.S/CBLQDA(ON)'           
//STEPLIB  DD DSN=KI.EIDA.LOAD,DISP=SHR                               
//         DD DSN=KI.EGDI.LOAD,DISP=SHR                               
//         DD DSN=IMSP.SDFSRESL,DISP=SHR                              
//         DD DSN=KI.EGDC.ZTBP.LOAD.ICSF,DISP=SHR                     
//ZTBGFLOG DD SYSOUT=*                                                
//ZTBGF032 DD DSN=KI.EGDI.ZTBG.ZTBGF032,DISP=SHR                      
//*FICHERO QUE CONTIENE LISTA DE FICHEROS                             
//ZTBGFCAR DD DSN=&&CAR,DISP=(OLD,PASS)                               
//ZTBGFLIS DD SYSOUT=*                                                
//ZTBGFMSJ DD SYSOUT=*                                                
//ZTBGFPRI DD SYSOUT=*,DCB=(BLKSIZE=105)                              
//ZTBGFINT DD SYSOUT=(H,INTRDR),DCB=(BLKSIZE=80)                      
//*FICHERO QUE CONTIENE TABLAS CONVERSION                             
//ZTBGFTCO DD DSN=KI.EGDI.ZTBG.ZTBGFTCO,DISP=SHR                      
//CEEDUMP  DD SYSOUT=*                                                
//SYSOUT   DD SYSOUT=*                                                
//SYSPRINT DD SYSOUT=*                                                
//*                                                                    
// ENDIF                                                       

Mensajes del proceso de recepción de la clave o su confirmación

ZTG217: 'ERROR EN LAS CARACTERISTICAS DEL FICHERO DE INTERCAMBIO'.

El fichero que contiene la clave/confirmación intercambiada no ha sido enviado con las características esperadas (FIJO)

ZTG225: 'ERROR GENERANDO EL FICHERO ZTBGFMEC. RDO: nnnn'.

Error al escribir el mensaje con la confirmación de la clave en el fichero que se ha de enviar al remoto. Revisar mensajes en el fichero SYSPRINT de la salida de la ejecución

ZTG226: 'ERROR LEYENDO EL FICHERO ZTBGFMRC. RDO: nn'.

Error al leer el mensaje con la clave/confirmación del fichero recibido del remoto. Posible longitud del mensaje incorrecta. Revisar mensajes en el fichero SYSPRINT de la salida de la ejecución

ZTG301: 'NO EXISTE EL REGISTRO DE CLAVE'.

La clave indicada en el mensaje de intercambio no está en la BD de Editran/GC

ZTG302: 'ERROR INCORPORANDO-EXISTE UNA CLAVE PENDIENTE DE CONFIRMAR: nn'.

nn: indica la versión pendiente de confirmar. No se puede recibir una nueva versión de la clave

ZTG303 'ERROR INCORPORANDO-LA CLAVE DE ESTA VERSION YA SE RECIBIO: nn'.

nn: muestra la versión de la clave ya recibida, que se puede consultar en el administrador de Editran/GC

ZTG304: 'FORMATO INCORRECTO DEL MENSAJE (ZTBGFMEC)'.

El identificador, la versión o el tipo del mensaje no son los esperados, o la longitud de la clave intercambiada no es correcta

ZTG305: 'NO EXISTE NINGUNA CLAVE PENDIENTE DE CONFIRMAR'.

ZTG306 'ERROR CONFIRMACION-LA VERSION PENDIENTE NO ES LA RECIBIDA: nn'

nn: muestra la versión de la clave almacena en Editran/GC pendiente de confirmar

ZTG307: 'FICHERO DE INTERCAMBIO NO SE CORRESPONDE CON LA SESION'.

Se ha recibido un fichero con datos de código local y remoto no correspondientes a los de la sesión Editran por la que se ha recibido

Utilidad de Borrado de Claves RSA (PKDS)

Con el fin de facilitar el mantenimiento del fichero de claves RSA del ICSF, se proporciona un programa de borrado de dichas claves que se ejecuta mediante el JCL (listado a continuación) ZTBSJKRD, cuya entrada es un fichero con el nombre de las etiquetas con las que están almacenadas las claves que se desean borrar.

El fichero con las etiquetas a borrar, ZTBSFKLB, tiene formato FB y la longitud de registro es de 64 bytes.

//KI1056ER JOB (GCDA,KIT,,99),'BORRA RSA',MSGCLASS=H,CLASS=A,          
//        NOTIFY=&SYSUID                                               
//*********************************************************************
//* - BORRADO DE CLAVES RSA (PKDS-ICSF)                               *
//*********************************************************************
//*                                                                    
//PASOB EXEC PGM=ZTBSBKRD,REGION=0M                                    
//STEPLIB   DD DSN=KI.EIDA.LOAD,DISP=SHR                               
//ZTBSFKLB  DD DISP=SHR,DSN=KI.EIDA.LABELRSA                           
//SYSOUT    DD SYSOUT=*                                                
//