> 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-en/gestor-de-claves/anexo.md). # Appendix ## Onesait Editran local environment screen ``` DD/HH/AA HH:MM:SS LOCAL ENVIRONMENT QUERY (2) EDITRAN 5.3 ------------------------------------------------------------------------------ EDITRAN TRANSACTIONS CORE : ZTB1 GENERAL MENU: ZTBO PROFILE ADMIN.: ZTBJ EDITRAN/E MGMT: ZTBE TIME-OUT : OPERATOR : ZTBO AD.EDITRAN/GC: ZTBD C.EDITRAN/E: ZTBC LOG/TRACE : ZTBO FILES : ZTBO AD.EDITRAN/FF: ZTBK ALARM ADMIN: ZTBL NETWORK MONITORING PROCESS: ZTBEJMCO TRANSAC: ZTBM QUERY PORT: 07770 TIMEOUT: 20 sec ENCRYPTION FIELDS LOCAL LABEL : LEDITRAN REMOTE LABEL : REDITRAN BATCH INTERFACE PROCEDURES PROCESS : ZTBPJIG BEFORE SEND : ZTBGP1ID BEFORE RECEIPT: ZTBGP2ID TRANSACTION: ZTBI AFTER SEND: ZTBGP3ID AFTER RECEIPT.: ZTBGP4ID EXCEPTION PROC. : ZTBGP5ID STATE MODIF.: ZTBGP6ID FILE PREFIX: KI.EGDI SAVE IN SYSTEM LOG (Y/N): S WORK UNIT: SYSDA (SYSDA,VIO,..) ADJUST FILE CREATION SPACE (Y/N): S WORK VOL. OR POOL (V/P): P WORK VOLUME: DEVELOPMENT JCL CARDS,S: //KIIMSPR JOB (SNCE,KIT,,99),PRUEBA,CLASS=A,MSGLEVEL=1, // MSGCLASS=H //* //* //* ``` ℹ️Inform the parameter **AD.EDITRAN/GC** with the transaction ZTBD ## Onesait Editran session screen (Service Application - TELEGC) ``` 19/09/24 16:55:57 SESSION MODIFICATION (2) EDITRAN 5.3 ------------------------------------------------------------------------------ SESSION: 0 0009998 0 - 0 0009999 0 - TELEGC SESSION ENABLED (Y/N) : TRACE (S/C/N) : C CALLING END (L/R/X) : X VALIDATE IP ADDRESS (Y/N) : TRAFFIC DIRECTION (L/R/X): X ROTATE ADDRESSES (L/R/X/N) : X AUTOMATIC CONNECTION (Y/N) : S AUTOMATIC DISCONNECTION (Y/N): S SYNC. REG. NO. : 025 MSG LENGTH (0252-4050) : 4050 TIME OUT (MSS) : 030 AUTOMATIC SEND (Y/N) : N DATA TIME OUT (MSS) : 100 START TIME (HHMMSS) : 000000 MAX. RETRY NO. : 3 END TIME(HHMMSS) : 000000 --- CRYPTOGRAPHY (Y/N): N --- CRYPTOGRAPHIC VERSION (N.N): DATA ENCRYPTION ALGORITHM : AUTHENTICATION ALGORITHM : SUBSYSTEMS-LOCAL: REMOTE : LOCAL KEY: REM. KEY: ``` ℹ️The parameters **CALLING END (L/R/X)** and **TRAFFIC DIRECTION (L/R/X)** must have the value X ## Onesait Editran session screen (Service Application - TELEGC) ``` DD/HH/AA HH:MM:SS SESSION MODIFICATION (3) EDITRAN 5.3 ------------------------------------------------------------------------------ SESSION: 0 0009998 0 - 0 0009999 0 - TELEGC ENVIRONMENT PARAMETERS. TCP/IP CLIENT SERVER: ZTCP ZTC1 USE PROXY (Y/N): N PROXY IP ADDRESS PORT 010.055.000.017 07778 010.055.000.017 07776 010.055.000.017 07776 PROCESS: ZTBPJIG TRANSACTION: ZTBI ALIAS: L00 BEFORE SEND : ZTBGP1ID AUTH.: S BEFORE RECEIPT. : ZTBGP2ID AUTH.: S AFTER SEND: ZTBGP3GC AUTH.: S AFTER RECEIPT.: ZTBGP4GC AUTH.: S EXCEPTION PROC. : ZTBGP5ID STATE MODIF.: ZTBGP6ID FILE PREFIX: KI.EGDI SAVE IN SYSTEM LOG (Y/N): S WORK UNIT: SYSDA (SYSDA,VIO,..) ADJUST FILE CREATION SPACE (Y/N): S WORK VOL. OR POOL (V/P): P WORK VOLUME: DEVELOPMENT JCL CARDS : //KICICTG JOB (SNCE,KIT,,99),CICGESCLA,MSGCLASS=H,CLASS=A, // MSGLEVEL=1,NOTIFY=&SYSUID //* //* //* ``` ## Onesait Editran/GC procedures and their RESULTS ### Pre-send procedure (ZTBGP1GC) ```cobol // SOURCE PROC=,FUNCTION=,L0=, // L1=,L2=,R1=,R2=,AP=,LF=,SUBS=,RSA= //*-------------------------------------------------------------------- //* INDRA //*-------------------------------------------------------------------- //* KEY EXCHANGE MANAGEMENT PROCEDURE + * //* BEFORE THE EDITRAN/G SEND * //* IF STEP001 ENDS WITH RC = 01, STEP A1P (SEND) ENTERS * //* IF STEP001 ENDS WITH RC DIFFERENT FROM 01, A1P DOES NOT ENTER * //* VALID FOR THE ENTITY THAT EXPORTS - SENDS KEYS TO REMOTES * //*-------------------------------------------------------------------- //* DATA: * //* ORIGIN (O=OPERATOR,E=EDITRAN,A=APPLICATION JCL) ----> 1 BYTE * //* ------ (IN THIS CASE A=JCL ALWAYS) ----> 1 BYTE * //* FUNCTION 00=OWN RSA GENERATION (DOES NOT ENTER A1P) (RSA=R) * //* ------- 01=RSA EXPORT TO REMOTES (DOES NOT ENTER A1P) (RSA=R) * //* 03=RSA EXPORT TO REMOTES + A1P (RSA=R) * //* -----> 2 BYTES * //* * //* SESSION-PRESENTATION ------------------------------>24 BYTES * //* ------------------- TOTAL = 27 BYTES * //* FILE LIST (Y/N) (MANDATORY Y) ---------------> 1 BYTE * //* ------------------------------- * //* SUBS : ACCESS SUBSYSTEM ----------------------> 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 //*FILE THAT CONTAINS THE FILE LIST. IT IS ALWAYS DONE AS OPEN-OUTPUT //*IF THERE IS NO EDITRAN, IT IS SET AS SYSOUT //*(INTERNALLY IN RSA: PREFIX11.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 //*FILE THAT CONTAINS THE FILE LIST //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) //*FILE THAT CONTAINS CONVERSION TABLES //ZTBGFTCO DD DSN=KI.EGDI.ZTBG.ZTBGFTCO,DISP=SHR //CEEDUMP DD SYSOUT=* //SYSOUT DD SYSOUT=* //SYSPRINT DD SYSOUT=* // SET LOCAL0=&L0 // ``` #### **Messages from the key sending process** **ZTG225**: 'ERROR GENERATING FILE ZTBGFMEC. RDO: nnnn'. > Error writing the message with the key to the file that must be sent to the remote system. Check messages in the SYSPRINT file from the execution output **ZTG301** 'KEY RECORD DOES NOT EXIST'. > The key requested to be sent is not in the Editran/GC database **ZTG302**: 'EXPORT ERROR - THERE IS A KEY PENDING CONFIRMATION: nn'. > nn: indicates the version pending confirmation. A new version of the key cannot be sent **ZTG303** 'EXPORT ERROR - THE KEY OF THIS VERSION HAS ALREADY BEEN EXPORTED: nn'. > nn: shows the version of the key already exported, which can be consulted in the Editran/GC administrator **ZTG304**. 'EXPORT ERROR - THERE IS NO ACTIVE KEY IN THE SUBSYSTEM'. **ZTG305** 'EXPORT ERROR - SIGNER KEY LENGTH INCOMPATIBLE WITH EXPORT KEY LENGTH'. > The length of the RSA key to be exported is 1024 bits and the length of the key with which the sending is to be signed is greater. ### Post-send procedure (ZTBGP3GC) ```cobol // PROC ORIGEN=,FUNCION=,L0=, // L1=,L2=,R1=,R2=,PR=,AP= //*-------------------------------------------------------------------- //* INDRA //*-------------------------------------------------------------------- //* EDITRAN/G POST-ISSUANCE PROCEDURE * //* INTERCHANGE KEY MANAGEMENT * //*-------------------------------------------------------------------- //* DATA: * //* ORIGIN (O=OPERATOR,E=EDITRAN,A=APPLICATION JCL) ----> 1 BYTE * //* * //* FUNCTION (02=PROCESS POST-ISSUANCE PRESENTATION * //* 05=END OF PRESENTATION ISSUANCE) -----> 2 BYTES * //* * //* PRESENTATION SESSION : * //* LOCAL CODE L1 --------------------------------> 6 BYTES * //* L2 --------------------------------> 3 BYTES * //* REMOTE R1 --------------------------------> 6 BYTES * //* R2 --------------------------------> 3 BYTES * //* REMOTE R1 --------------------------------> 6 BYTES * //* R2 --------------------------------> 3 BYTES * //* APPLICATION PR --------------------------------> 6 BYTES * //* * //* TRANSMISSION SESSION (EDITRAN/P): * //* APPLICATION AP --------------------------------> 6 BYTES * //* TOTAL = 33 BYTES * //* LOCAL ENVIRONMENT ALIAS (FOR PARTICULAR USES) * //* 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 //* //*-------------------------------------------------------------------- //* STEP TO OUTPUT THE LIST OF ISSUED FILES * //*-------------------------------------------------------------------- //* SOURCE --------------------------------------------> 1 BYTE * //* A - REQUEST WITH TRANSMISSION SESSION INCLUDED * //* E-O- REQUEST WITH PRESENTATION SESSION INCLUDED * //* FUNCTION -------------------------------------------> 2 BYTES * //* 00 - OUTPUTS THE LIST REGARDLESS OF THE PRESENTATION STATE * //* 02 - OUTPUTS THE LIST IF THE PRESENTATION STATE IS FINALIZED. * //* PRES. SESSION OR TRANS. SESSION (DEPENDING ON ORIGIN)> 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=* // ``` #### **Messages from the key activation process** **ZTG217**: 'ERROR IN THE INTERCHANGE FILE CHARACTERISTICS'. > The file containing the exchanged key/confirmation was not sent with the expected characteristics (FIXED and EBCDIC) **ZTG301**: 'KEY RECORD DOES NOT EXIST'. > The key indicated in the exchange message is not in the Editran/GC database **ZTG303**. 'CONFIRMATION ERROR - THE PENDING VERSION IS NOT THE ONE RECEIVED: nn'. > nn: shows the version of the key pending confirmation, which can be consulted in the Editran/GC administrator; the version of the exchanged message (ZTBGFMEC) is different **ZTG304**: 'INCORRECT MESSAGE FORMAT (ZTBGFMEC)'. > The message identifier or version are not the expected ones **ZTG305**: 'THERE IS NO KEY PENDING CONFIRMATION'. **ZTG306**: 'THE VERSION SENT IN THE CONTROL FILE DOES NOT EXIST'. > The exchanged message (ZTBGFMEC) contains a version that does not correspond to any of the keys stored in Editran/GC **ZTG307**: 'KEY PROCESSED CORRECTLY'. ### Post-receipt procedure (ZTBGP4GC) ```cobol // SOURCE=,FUNCTION=,L0=L00, // L1=,L2=,R1=,R2=,PR=,AP= //*-------------------------------------------------------------------- //* INDRA //*-------------------------------------------------------------------- //* POST-RECEIPT PROCEDURE FOR EDITRAN/G * //* INTERCHANGE KEY MANAGEMENT * //*-------------------------------------------------------------------- //* DATA: * //* ORIGIN (O=OPERATOR,E=EDITRAN,A=APPLICATION JCL) ----> 1 BYTE * //* * //* FUNCTION (07=PRESENTATION RECEIPT DOWNLOAD * //* 09=END OF PRESENTATION RECEIPT ) ----> 2 BYTES * //* * //* PRESENTATION SESSION : * //* LOCAL CODE L1 --------------------------------> 6 BYTES * //* L2 --------------------------------> 3 BYTES * //* REMOTE R1 --------------------------------> 6 BYTES * //* R2 --------------------------------> 3 BYTES * //* APPLICATION PR --------------------------------> 6 BYTES * //* * //* TRANSMISSION SESSION (EDITRAN/P): * //* APPLICATION AP --------------------------------> 6 BYTES * //* TOTAL = 33 BYTES * //* LOCAL ENVIRONMENT ALIAS (FOR PARTICULAR USES) * //* 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) //*FILE THAT CONTAINS CONVERSION TABLES //ZTBGFTCO DD DSN=KI.EGDI.ZTBG.ZTBGFTCO,DISP=SHR //SYSOUT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //CEEDUMP DD SYSOUT=* //* (IGA INTERNAL READER. SET JOB OUTPUT CLASS) //ZTBGFINT DD SYSOUT=(H,INTRDR),DCB=(BLKSIZE=80) // SET LOCAL0=&L0 //*-------------------------------------------------------------------- //* STEP TO OUTPUT LIST OF RECEIVED FILES * //*-------------------------------------------------------------------- //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 //*CRYPTOGRAPHY FILES //*-- //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 //*FILE THAT CONTAINS THE FILE LIST //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) //*FILE THAT CONTAINS CONVERSION TABLES //ZTBGFTCO DD DSN=KI.EGDI.ZTBG.ZTBGFTCO,DISP=SHR //CEEDUMP DD SYSOUT=* //SYSOUT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //* // ENDIF ``` #### **Messages from the key or confirmation receipt process** **ZTG217**: 'ERROR IN THE INTERCHANGE FILE CHARACTERISTICS'. > The file containing the exchanged key/confirmation was not sent with the expected characteristics (FIXED) **ZTG225**: 'ERROR GENERATING FILE ZTBGFMEC. RDO: nnnn'. > Error writing the message with the key confirmation to the file that must be sent to the remote system. Check messages in the SYSPRINT file from the execution output **ZTG226**: 'ERROR READING FILE ZTBGFMRC. RDO: nn'. > Error reading the message with the key/confirmation from the file received from the remote system. Possible incorrect message length. Check messages in the SYSPRINT file from the execution output **ZTG301**: 'KEY RECORD DOES NOT EXIST'. > The key indicated in the exchange message is not in the Editran/GC database **ZTG302**: 'INCORPORATION ERROR - THERE IS A KEY PENDING CONFIRMATION: nn'. > nn: indicates the version pending confirmation. A new version of the key cannot be received **ZTG303** 'INCORPORATION ERROR - THE KEY OF THIS VERSION HAS ALREADY BEEN RECEIVED: nn'. > nn: shows the version of the key already received, which can be consulted in the Editran/GC administrator **ZTG304**: 'INCORRECT MESSAGE FORMAT (ZTBGFMEC)'. > The message identifier, version, or type are not the expected ones, or the length of the exchanged key is not correct **ZTG305**: 'THERE IS NO KEY PENDING CONFIRMATION'. **ZTG306** 'CONFIRMATION ERROR - THE PENDING VERSION IS NOT THE RECEIVED ONE: nn' > nn: shows the version of the key stored in Editran/GC pending confirmation **ZTG307**: 'INTERCHANGE FILE DOES NOT CORRESPOND TO THE SESSION'. > A file has been received with local and remote code data that do not correspond to the Editran session through which it was received ## RSA Key Deletion Utility (PKDS) In order to facilitate maintenance of the ICSF RSA key file, a program is provided to delete those keys, executed via the JCL (listed below) ZTBSJKRD, whose input is a file containing the names of the labels under which the keys to be deleted are stored. The file with the labels to be deleted, ZTBSFKLB, is FB format and the record length is 64 bytes. ```cobol //KI1056ER JOB (GCDA,KIT,,99),'DELETE RSA',MSGCLASS=H,CLASS=A, // NOTIFY=&SYSUID //********************************************************************* //* - DELETION OF RSA KEYS (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-en/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.