> 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/copy-of-privado-editran-v5.3-cics/migracion-a-v5.3-fase-1/migracion-desde-editran-v5.3.0.md). # Migración desde Editran v5.3.0 ## ZTBMJA53 Se proporciona el siguiente JCL ZTBMJA53 que tiene el siguiente contenido: ```cobol //KI63A23A JOB (EGDC,KIT,,99),'ZTBMJA53',MSGCLASS=H,CLASS=A, // MSGLEVEL=1,NOTIFY=&SYSUID //*-------------------------------------------------------------------- //* MIGRACION DE VERSIONES 5.3.0 A VERSION 5.3.1 //******************************************************************* //BORRADO EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD * DELETE (KI.EIDC.ZTBG.ZTBGFPER.V531) PURGE //* //DEFPERF EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD * DEFINE CLUSTER - (NAME(KI.EIDC.ZTBG.ZTBGFPER.V531) - VOL(DES805) - LOG(NONE) - NOREUSE - REC (4000 50) - FREESPACE(25 25) - RECORDSIZE(3000 3000) - SHAREOPTIONS(2 3) - KEYS(27 0) - INDEXED ) - DATA - (NAME(KI.EIDC.ZTBG.ZTBGFPER.V531.DATA)) - INDEX - (NAME(KI.EIDC.ZTBG.ZTBGFPER.V531.INDEX)) //* //REPRO1 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=H //ENTRADA DD DSN=KI.EIDC.ZTBG.ZTBGFPER.V530,DISP=SHR //SALIDA DD DSN=KI.EIDC.ZTBG.ZTBGFPER.V531,DISP=SHR //SYSIN DD * REPRO INFILE(ENTRADA) OUTFILE(SALIDA) //******************************************************************* //BORRADO EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD * DELETE (KI.EGDC.ZTBP.ZTBPFPE.V531) PURGE //* //DEFPERF EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD * DEFINE CLUSTER - (NAME(KI.EGDC.ZTBP.ZTBPFPE.V531) - VOL(DES805) - LOG(NONE) - NOREUSE - REC (3000 50) - FREESPACE(25 25) - RECORDSIZE(2500 2500) - SHAREOPTIONS(2 3) - KEYS(34 0) - INDEXED ) - DATA - (NAME(KI.EGDC.ZTBP.ZTBPFPE.V531.DATA)) - INDEX - (NAME(KI.EGDC.ZTBP.ZTBPFPE.V531.INDEX)) //* //REPRO2 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=H //ENTRADA DD DSN=KI.EGDC.ZTBP.ZTBPFPE.V530,DISP=SHR //SALIDA DD DSN=KI.EGDC.ZTBP.ZTBPFPE.V531,DISP=SHR //SYSIN DD * REPRO INFILE(ENTRADA) OUTFILE(SALIDA) //*--------------------------------------------------------------------- //* SE PUEDE REALIZAR UNA C-CONSULTA O UNA M-MODIFICACION DE //* UNA SESION CONCRETA //* LAS SESIONES DE UN LOCAL-REMOTO //* LAS SESIONES DE UN LOCAL //* TODAS LAS SESIONES //* MEDIANTE LA SYSIN //* //* FORMATO DE SYSIN //* 1.-LLLLLLLLLRRRRRRRRRAAAAAA //* 000099980000099940PRUEBA CONSULTA/MODIFICACION DE UNA SESION //* 000000000000099940PRUEBA CONSULTA/MODIFICACION POR REMOTO/APLI //* 000000000000000000PRUEBA CONSULTA/MODIFICACION POR APLICACION //* 000099980000099940000000 CONSULTA/MODIFICACION POR LOCAL-REMOTO //* 000000000000099940000000 CONSULTA/MODIFICACION POR REMOTO //* 000099980000000000000000 CONSULTA/MODIFICACION POR LOCAL //* 000000000000000000000000 CONSULTA/MODIFICACION TODAS LAS SESIONES //* CONSULTA/MODIFICACION TODAS LAS SESIONES //* 2.-X //* C - CONSULTA DE LAS SESIONES //* M - MODIFICACION DE LAS SESIONES //*--------------------------------------------------------------------- //PASO1 EXEC PGM=ZTBGBA53 //STEPLIB DD DSN=KI.EIDC.ZTBG.LOAD,DISP=SHR // DD DSN=KI.EGDC.ZTBP.LOAD31,DISP=SHR //ZTBGFPER DD DSN=KI.EIDC.ZTBG.ZTBGFPER.V531,DISP=SHR //ZTBPFPE DD DSN=KI.EGDC.ZTBP.ZTBPFPE.V531,DISP=SHR //EDILIST DD SYSOUT=* //SYSOUT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSDBOUT DD SYSOUT=* //ABENDAID DD SYSOUT=* //SYSCOUNT DD DUMMY //SYSUDUMP DD SYSOUT=* //SYSABOUT DD SYSOUT=* //SYSIN DD * 000000000000000000000000 M /* ``` Mediante la ejecución del programa ZTBGBA53, se puede realizar una consulta o una modificación de la/s sesión/es que tenemos definidas. * El valor de la sesión interna pasa a tener el valor CODIGO LOCAL + CODIGO REMOTO + APLICACION * Se eliminan las sesiones de Editran/P que no esten asociadas con ninguna sesion de Editran/G. ## SYSIN El formato de la SYSIN se compone de dos parámetros: ### Sesión de presentación Con el siguiente formato LLLLLLLLLRRRRRRRRRAAAAAA. Aquí le indicaremos la/s sesión/es de presentación a consultar o modificar. Esta consulta/modificación afecta a la sesión de presentación y a todas las sesiones de transmisión asociadas (a partir de ahora nos referiremos a este conjunto como sesión). Como informar los campos LLLLLLLLLRRRRRRRRRAAAAAA. ### **Informar todos los campos.** La consulta/modificación se realiza sobre una sesión en concreto. Ejemplo: ``` 000099980000099940PRUEBA ``` Comprueba los siguientes parámetros para la sesión 000099980000099940PRUEBA: ### **Informar los campos LLLLLLLLLRRRRRRRRR** La consulta/modificación se realiza por código local y código remoto. Ejemplo: ``` 000099980000099940000000 ``` Comprueba los siguientes parámetros para todas las sesiones con el local 000099980 y el remoto 000099940. ### **Informar los campos LLLLLLLLLAAAAAA** La consulta/modificación se realiza por código local y aplicación, para cualquier código remoto. Ejemplo: ``` 000099980000000000PRUEBA ``` también se puede dejar el remoto a blancos tal que así: ``` 000099980 PRUEBA ``` Comprueba los siguientes parámetros para todas las sesiones con código local 000099980 y aplicación PRUEBA. ### **Informar los campos RRRRRRRRRAAAAAA** La consulta/modificación se realiza por código remoto y aplicación, para cualquier código local. Ejemplo: ``` 000099980000000000000000 ``` también se puede dejar a blancos el código remoto y la aplicación tal que así: ``` 000099980 ``` Comprueba los siguientes parámetros para todas las sesiones con el local 000099980: ### **Informar solo el código local LLLLLLLLL** La consulta/modificación se realiza por código local. Ejemplo: ``` 000099980000000000000000 ``` también se puede dejar a blancos el código remoto y la aplicación tal que así: ``` 000099980 ``` Comprueba los siguientes parámetros para todas las sesiones con el local 000099980: ### **Informar solo el código remoto RRRRRRRRR** La consulta/modificación se realiza por código remoto. Ejemplo: ``` 000000000000099940000000 ``` también se puede dejar a blancos el código local y la aplicación tal que así: ``` 000099940 ``` Comprueba los siguientes parámetros para todas las sesiones con el remoto 000099940: ### **Informar solo la aplicación AAAAAA** La consulta/modificación se realiza por aplicación. Ejemplo: ``` 000000000000000000PRUEBA ``` también se puede dejar el código local y el código remoto a blancos tal que así: ``` 000099940 ``` Comprueba los siguientes parámetros para todas las sesiones con el remoto 000099940: ### Consulta/Modificación. Con una ‘C’ le indicamos que es una consulta y con una ‘M’ le indicamos que es una modificación Ejemplo1 ```cobol //SYSIN DD * 000099980000099940PRUEBA C ``` Consulta de la sesión de presentación 000099980000099940PRUEBA y todas las sesiones de transmisión asociadas. Ejemplo2 ```cobol //SYSIN DD * 000099980000099940PRUEBA M ``` Modificación de la sesión de presentación 000099980000099940PRUEBA y todas las sesiones de transmisión asociadas. ## ZTBGFLIS La salida es la misma para consulta o para modificación. Dicha salida tiene la siguiente cabecera: ``` 1 INDRA MIGRACION DE PERFILES DE EDITRAN 5.3.0 A 5.3.1 PAG. 1 EDI V5.3 =============================================== FECHA 10/07/2026 SESION INCIDENCIA EN PERFILES ``` Primero salen las sesiones de presentación, con sus sesiones de transmisión correspondientes que se tienen que modificar o se modifican. Ejemplo: ``` INDRA MIGRACION DE PERFILES DE EDITRAN 5.3.0 A 5.3.1 PAG. 1 EDI V5.3 ============================================== FECHA 10/07/2026 SESION INCIDENCIA EN PERFILES ------------------------ ------------------------------------------------------------------------------ A00099940000099940SWIFTC SESION/P DE LA SESION DE PRESENTACION A00099940000099940PRBSWC SES.INTERNA:WINDOWS-PRUEBAS-SWIFT-A0C CAMBIA A:A00099940000099940SWIFTC A00099940000099940SWIFTA SESION/P DE LA SESION DE PRESENTACION A00099940000099940PRUEBA SES.INTERNA:WINDOWS-PRUEBAS-SWIFT-B CAMBIA A:A00099940000099940SWIFTA ``` ### SYSOUT Esta salida informa de las sesiones de transmisión que no existen para una sesión de presentación concreta. Ejemplo: ``` ZTBGBA53 ELIMINADA LA SESION DE PRESENTACION A0009994A000099990PRUJCB POR NO EXISTIR LA DE TRANSMISION ZTBGBA53 ELIMINADA LA SESION DE PRESENTACION A00099940000099940CICLIN POR NO EXISTIR LA DE TRANSMISION ``` --- # 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/copy-of-privado-editran-v5.3-cics/migracion-a-v5.3-fase-1/migracion-desde-editran-v5.3.0.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.