> 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-comun-z-os/interfaz-generica-de-aplicacion/jcls-de-servicio/fichero-de-ficheros-emitidos-y-recibidos.md). # Fichero de ficheros emitidos y recibidos En el posterior a emisión, ZTBGP3, o en el posterior a recepción ZTBGP4, se ha introducido un segundo paso, a voluntad del operador, que llamando a un programa nuevo (ZTBGBLFE), generaría un fichero cuyo contenido son los ficheros emitidos o recibidos. ```cobol //ZTBGLFE EXEC PGM=ZTBGBLFE, // PARM='&ORIGEN&FUNCION&L1&L2&R1&R2&AP', // REGION=4M //STEPLIB DD DSN=KI.EIDC.ZTBG.LOAD,DISP=SHR //ZTBGFPER DD DSN=KI.EIDC.ZTBG.ZTBGFPER,DISP=SHR //ZTBGFEST DD DSN=KI.EIDC.ZTBG.ZTBGFEST,DISP=SHR //ZTBGFLFE DD SYSOUT=* //ZTBGFPRI DD SYSOUT=*,DCB=(BLKSIZE=105) //SYSOUT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSDBOUT DD SYSOUT=* //ABENDAID DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSABOUT DD SYSOUT=* //* ``` Igualmente se ha creado un JCL independiente del procedimiento, ZTBGJFLE: ```cobol //KI0F6AE3 JOB (EGDC,KIT,,99),'IGA-EDITRAN',MSGCLASS=H,CLASS=A, // NOTIFY=&SYSUID //********************************************************************* //* JCL PARA SACAR LISTA DE FICHEROS EMITIDOS - RECIBIDOS * //********************************************************************* //* DATOS: * //* 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 EST.EMI DE PRESENTACION ES FINALIZ. * //* 07 - SACA LA LISTA SI EL EST.REC DE PRESENTACION ES FINALIZ. * //* SES. PRESENT. O SES. TRANSM.(DEPENDIENDO DE ORIGEN)> 24 BYTES * //* LOCAL0 -------------------------------------------> 3 BYTES * //* LOCAL1 -------------------------------------------> 6 BYTES * //* LOCAL2 -------------------------------------------> 3 BYTES * //* REMOTO1-------------------------------------------> 6 BYTES * //* REMOTO2-------------------------------------------> 3 BYTES * //* APLICA -------------------------------------------> 6 BYTES * //********************************************************************* //PASO01 EXEC PGM=ZTBGBLFE, // PARM='A02000099940000099990MARIAJ', // REGION=4M //STEPLIB DD DSN=KI.EIDC.ZTBG.LOAD,DISP=SHR //* //ZTBGFPER DD DSN=KI.EIDC.ZTBG.ZTBGFPER,DISP=SHR //ZTBGFEST DD DSN=KI.EIDC.ZTBG.ZTBGFEST,DISP=SHR //ZTBGFLFE DD SYSOUT=* //ZTBGFPRI DD SYSOUT=*,DCB=(BLKSIZE=105) //SYSOUT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSDBOUT DD SYSOUT=* //ABENDAID DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSABOUT DD SYSOUT=* //* ``` El contenido de los campos es: Origen = ‘x’, Función = ‘yy’, L1 + L2 = ‘Cgo. local’, R1 + R2 = ‘Cgo. remoto’, AP = ‘Aplicación’. Origen puede tener los siguientes valores: * ‘A’ : La petición viene de la aplicación. En éste caso, la sesión (L1-L2-R1-R2-AP) es la sesión de presentación. * ‘O’ : La petición viene de operador. En éste caso, la sesión (L1-L2-R1-R2-AP) es la sesión de presentación. * ‘E’ : La petición viene del módulo de transmisión de Editran. En éste caso, la sesión (L1-L2-R1-R2-AP) es una de las sesiones de transmisión asociada a la presentación. Función puede tener los siguientes valores: * ‘00’ : Se desea sacar un fichero independientemente del estado de la presentación. * ‘02’: Procesar posterior a emisión. Sólo creará el fichero si el estado de la presentación es 005 (Finalizado) * ‘05’: Interrumpir presentación de emisión. No se crea fichero. * ‘07’: Procesar posterior a recepción. Sólo creará el fichero si el estado de la presentación es 104 (Finalizado) * ‘09’: Interrumpir presentación de recepción. No se crea fichero. Ejemplos: 1. Sacar todos los ficheros asociados a la presentación 00009994000009990TELECA, ``` PARM='A00000099940000099990TELECA' PARM='O00000099940000099990TELECA' ``` 2. Sacar todos los ficheros asociados a la transmisión 00009994000009990PRUEBA ``` PARM='E00000099940000099990PRUEBA' ``` 3. Sacar todos los ficheros asociados a la presentación 00009994000009990TELECA, siempre y cuando el estado de la presentación sea FINALIZADO: ``` PARM='A02000099940000099990TELECA' PARM='O02000099940000099990TELECA' ``` 4. Sacar todos los ficheros asociados a la transmisión 00009994000009990PRUEBA, siempre y cuando el estado de la presentación a la que pertenece dicha sesión de transmisión sea FINALIZADO ``` PARM='E02000099940000099990PRUEBA' ``` El contenido del fichero ZTBGFLFE es el siguiente:
NivelNombreLong.TipoDescripción
1Área de fichero130Alfn.
2Nombre físico44Alfn.Nombre físico del fichero de aplicación
2Filler1Alfn.Guion de separación
2Fecha-fin-presentación14Núm.Fecha-Hora de fin de presentación en formato AAAAMMDDHHMMSS
2Tipo-Fichero cargado4Núm.

Tipo de fichero cargado o de salida

‘FIJO’

‘VBLE’

‘VEXP’

‘BINA’

2Alfabeto-datos cargados1Alfn.

Alfabeto de los datos cargados:

‘A’: Ascii, ‘E’: Ebcdic, ‘B’:Binario

2Compresión1Alfn.

Indica si el fichero fue cargado con compresión:

‘F’ Comprimido, ‘N’ Sin compresión

2Filler1Alfn.Área de reserva
2Nombre físico origen75Alfn.Nombre físico del fichero de aplicación en origen
2Bytes fich.aplic12Núm.Bytes fichero aplicación
2Longitud de reg.6Núm.Lrecl.
2Filler41Alfn.Área de reserva
--- # 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-comun-z-os/interfaz-generica-de-aplicacion/jcls-de-servicio/fichero-de-ficheros-emitidos-y-recibidos.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.