> 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-en/interfaz-generica-de-aplicacion/jcls-de-servicio/fichero-de-ficheros-emitidos-y-recibidos.md). # File of sent and received files In the post-issue job, ZTBGP3, or in the post-receipt job ZTBGP4, a second step has been introduced, at the operator's discretion, which, by calling a new program (ZTBGBLFE), would generate a file whose contents are the issued or received files. ```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=* //* ``` Likewise, an independent JCL has been created from the procedure, ZTBGJFLE: ```cobol //KI0F6AE3 JOB (EGDC,KIT,,99),'IGA-EDITRAN',MSGCLASS=H,CLASS=A, // NOTIFY=&SYSUID //********************************************************************* //* JCL TO OUTPUT LIST OF ISSUED - RECEIVED FILES * //********************************************************************* //* DATA: * //* ORIGIN --------------------------------------------> 1 BYTE * //* A - REQUEST WITH TRANSMISSION SESSION INCLUDED * //* E-O- REQUEST WITH PRESENTATION SESSION INCLUDED * //* FUNCTION -------------------------------------------> 2 BYTES * //* 00 - OUTPUT THE LIST REGARDLESS OF PRESENTATION STATUS * //* 02 - OUTPUT THE LIST IF THE PRESENTATION ISSUE STATUS IS FINALIZED * //* 07 - OUTPUT THE LIST IF THE PRESENTATION RECEIPT STATUS IS FINALIZED * //* PRES. SES. OR TRANSM. SES. (DEPENDING ON ORIGIN)> 24 BYTES * //* LOCAL0 -------------------------------------------> 3 BYTES * //* LOCAL1 -------------------------------------------> 6 BYTES * //* LOCAL2 -------------------------------------------> 3 BYTES * //* REMOTE1 ------------------------------------------> 6 BYTES * //* REMOTE2 ------------------------------------------> 3 BYTES * //* APPLIES ------------------------------------------> 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=* //* ``` The contents of the fields are: Origin = ‘x’, Function = ‘yy’, L1 + L2 = ‘Local account’, R1 + R2 = ‘Remote account’, AP = ‘Application’. Origin can have the following values: * ‘A’ : The request comes from the application. In this case, the session (L1-L2-R1-R2-AP) is the presentation session. * ‘O’ : The request comes from the operator. In this case, the session (L1-L2-R1-R2-AP) is the presentation session. * ‘E’ : The request comes from the Editran transmission module. In this case, the session (L1-L2-R1-R2-AP) is one of the transmission sessions associated with the presentation. Function can have the following values: * ‘00’ : You want to output a file regardless of the presentation status. * ‘02’: Process post-issue. It will only create the file if the presentation status is 005 (Finalized) * ‘05’: Interrupt issue presentation. No file is created. * ‘07’: Process post-receipt. It will only create the file if the presentation status is 104 (Finalized) * ‘09’: Interrupt receipt presentation. No file is created. Examples: 1. Output all files associated with presentation 00009994000009990TELECA, ``` PARM='A00000099940000099990TELECA' PARM='O00000099940000099990TELECA' ``` 2. Output all files associated with transmission 00009994000009990PRUEBA ``` PARM='E00000099940000099990PRUEBA' ``` 3. Output all files associated with presentation 00009994000009990TELECA, provided that the presentation status is FINALIZED: ``` PARM='A02000099940000099990TELECA' PARM='O02000099940000099990TELECA' ``` 4. Output all files associated with transmission 00009994000009990PRUEBA, provided that the status of the presentation to which that transmission session belongs is FINALIZED ``` PARM='E02000099940000099990PRUEBA' ``` The contents of file ZTBGFLFE are as follows:
LevelNameLengthTypeDescription
1File area130Alphan.
2Physical name44Alphan.Physical name of the application file
2Filler1Alphan.Separator dash
2Presentation-end date14No.Presentation end date-time in YYYYMMDDHHMMSS format
2Loaded file type4No.

Type of loaded or output file

‘FIXED’

‘VBLE’

‘VEXP’

‘BINA’

2Loaded data alphabet1Alphan.

Alphabet of the loaded data:

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

2Compression1Alphan.

Indicates whether the file was loaded with compression:

‘F’ Compressed, ‘N’ Uncompressed

2Filler1Alphan.Reserve area
2Source physical name75Alphan.Physical name of the application file at source
2App file bytes12No.Application file bytes
2Record length6No.LRECL.
2Filler41Alphan.Reserve area
--- # 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-en/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.