> 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/utilidades-ims/listado-de-los-ficheros-de-perfiles.md). # Listado de los ficheros de perfiles La necesidad que tienen las aplicaciones de conocer los nombres de los ficheros que se van a emitir almacenados en el fichero de perfiles de Editran ha llevado a sacar a un fichero plano estos nombres con las características que tienen con respecto al envío por Editran. El programa puede ejecutarse como un JCL o como un paso de los procesos de carga. La sesión se le pasa vía PARM. El resultado del programa es un fichero secuencial de 80 bytes con un registro por cada fichero de emisión contenido en perfiles. El formato de registro es el mismo que el del fichero de ficheros de carga ZTBGFCAR: NOMBRE DE FICHERO –F-L-T-C Donde NOMBRE DE FICHERO tiene 44 bytes F es el formato de registro y tiene valores R para formato de registro y M para formato binario (modificado), L es el lenguaje original de los datos, con valores A para ASCII, E para EBCDIC y B para binario, T es la traducción, con valores A o E para traducir a ASCII o a EBCDIC y N para no traducir y C indica la compresión con F para comprimir por fichero y N para no comprimir. El programa es un programa Cobol batch que ejecuta internamente una BMP para acceder a la base de datos de perfiles ZTBGDPED. El JCL ZTBGJLFP ejecuta el módulo ZTBGBLFP de forma aislada. Por PARM se le pasa la sesión de presentación de 24 bytes. ```cobol //KI88DC4F JOB (EGDC,KIT,,99),'ZTBGJLFP',MSGCLASS=H,CLASS=A, // NOTIFY=&SYSUID //*-------------------------------------------------------------------- //* JCL PARA SACAR LISTA DE FICHEROS DE EMISION DE PERFILES /G //*-------------------------------------------------------------------- //* DATOS: //* SESION DE PRESENTACION 24 BYTES //* LOCAL --------------------------------------------> 9 BYTES //* REMOTO -------------------------------------------> 9 BYTES //* APLICACION ---------------------------------------> 6 BYTES //*-------------------------------------------------------------------- //ZTBGLFP EXEC PGM=ZTBGBLFP, // PARM='000099980000099940PRUEBA/CBLQDA(ON)' //STEPLIB DD DSN=IMSP.SDFSRESL,DISP=SHR // DD DSN=KI.EGDI.LOAD,DISP=SHR //ZTBGF032 DD DSN=KI.EGDI.ZTBG.ZTBGF032,DISP=SHR //ZTBGFLFP DD SYSOUT=* //ZTBGFPRI DD SYSOUT=*,DCB=(BLKSIZE=105) //SYSOUT DD SYSOUT=* //CEEDUMP DD SYSOUT=* // ``` Si se quiere utilizar dentro de los procesos de carga se añadirá un paso adicional invocando al programa ZTBGBLFP de la misma manera. En un procedimiento estándar se pueden utilizar las variables L1, L2, R1, R2 y PR (presentación) para conformar la sesión. El procedimiento de carga ZTBGP1, ya modificado, quedaría de la siguiente forma. ```cobol // PROC ORIGEN=,FUNCION=,L0=, // L1=,L2=,R1=,R2=,AP=,PR=,LF= //*--------------------------------------------------------------- //ZTBGLFP EXEC PGM=ZTBGBLFP, // PARM='&L1&L2&R1&R2&PR/CBLQDA(ON)' //STEPLIB DD DSN=IMS710P.SDFSRESL,DISP=SHR // DD DSN=KI.EGDI.LOAD,DISP=SHR //ZTBGF032 DD DSN=KI.EGDI.ZTBG.ZTBGF032,DISP=SHR //*LISTA DE FICHEROS //ZTBGFLFP DD SYSOUT=* //ZTBGFPRI DD SYSOUT=*,DCB=(BLKSIZE=105) //SYSOUT DD SYSOUT=* //CEEDUMP DD SYSOUT=* //* //A1P EXEC PGM=ZTBGB110,REGION=0M,TIME=1440, // PARM='&ORIGEN&FUNCION&L1&L2&R1&R2&PR&AP&LF/CBLQDA(ON)' //STEPLIB DD DSN=KI.EGDI.LOAD,DISP=SHR // DD DSN=CEE.SCEERUN,DISP=SHR // DD DSN=IMS710P.SDFSRESL,DISP=SHR ``` Es necesario incluir las DD del paso de carga para acceder al IMS y para devolver errores. No es necesario generar ninguna PSB. El fichero de salida es ZTBGFLFP, que admite un registro FB de 80. En la siguiente ejecución se muestra el fichero KI.EIDA.F80 que se envía en binario y sin compresión. ``` SDSF OUTPUT DISPLAY KIIMST01 JOB06699 DSID 4 LINE 153 COLUMNS 02- 81 COMMAND INPUT ===> SCROLL ===> CSR IEF374I STEP/ZTBEBA00/STOP 2006271.0935 CPU 0MIN 00.00SEC SRB 0MIN 00.00S IEF375I JOB/KIIMST01/START 2006271.0919 IEF376I JOB/KIIMST01/STOP 2006271.0935 CPU 1MIN 51.61SEC SRB 0MIN 00.16S KI.EIDA.F80 M B N N +***** ZMA001H: ALOCACION DINAMICA -NORMAL- (RC=00,RS= 0000,I= 0000) DDN=NUMORD01 DSN=KI.EIDA.F80 DISP=(SHR, , ) +***** 09:19:57 TIEMPO EMPLEADO= 0,16 SEG. ``` --- # 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/utilidades-ims/listado-de-los-ficheros-de-perfiles.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.