> For the complete documentation index, see [llms.txt](https://docs.editran.onesait.com/llms.txt). Markdown versions of documentation pages are available by appending `.md` to page URLs; this page is available as [Markdown](https://docs.editran.onesait.com/documentacion-editran/ibm-editran-v5.3-ims/gestor-de-claves/anexo.md). # 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) ```cobol // 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) ```cobol // 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) ```cobol // 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. ```cobol //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=* // ``` --- # Agent Instructions This documentation is published with GitBook. GitBook is the documentation platform designed so that both humans and AI agents can read, navigate, and reason over technical content effectively. Learn more at gitbook.com. ## Querying This Documentation If you need additional information that is not directly available in this page, you can query the documentation dynamically by asking a question. Perform an HTTP GET request on the current page URL with the `ask` query parameter, and the optional `goal` query parameter: ``` GET https://docs.editran.onesait.com/documentacion-editran/ibm-editran-v5.3-ims/gestor-de-claves/anexo.md?ask=&goal= ``` `ask` is the immediate question: it should be specific, self-contained, and written in natural language. `goal` is optional and describes the broader end goal you are ultimately trying to accomplish on behalf of the user. GitBook uses it to tailor the answer towards what is most useful for that goal. The response will contain a direct answer to the question and relevant excerpts and sources from the documentation. Use this mechanism when the answer is not explicitly present in the current page, you need clarification or additional context, or you want to retrieve related documentation sections.