Lista de Ficheros Cargados (Emisión).

Para determinar los ficheros de aplicación que se cargaron en los registros de tampón eliminados existen dos posibilidades.

Para una presentación determinada, puede ejecutarse el JCL ZTBGJLFE que lista los ficheros que fueron cargados en una presentación. Normalmente el proceso posterior a emisión incluye una llamada a este programa. La sesión debe encontrarse en estado finalizado. El resultado es un fichero, ZTBGFLFE, con el nombre y descripción de cada uno de los ficheros.

Para obtener los ficheros cargados para un grupo de sesiones puede ejecutarse el JCL ZTBGJLF2. Este proceso es una extensión del anterior aplicado a una lista de sesiones. Con la lista de sesiones obtenida en el paso ZTBGJBO1 se obtendrá un listado de las presentaciones y los ficheros que fueron cargados. La lista de sesiones se suministra en la ficha ZTBGFSES. Se sigue obteniendo el fichero ZTBGFLFE con los ficheros de todas las sesiones.

El JCL es el siguiente.

EDIT       KI.EGDI.ZTBG.JCLS(ZTBGJLF2) - 01.03             Columns 00001 00072
 Command ===>                                                  Scroll ===> CSR 
 001220 //ZTBGLFE EXEC PGM=ZTBGBLF2,REGION=4M                                  
 001250 //STEPLIB  DD DSN=IMS510P.RESLIB,DISP=SHR                              
 001252 //         DD DSN=KI.EGDI.LOAD,DISP=SHR                                
 001271 //ZTBGFPER DD   DSN=KI.EGDI.ZTBG.PERFILES,DISP=SHR                     
 001272 //* ESTE FICHERO ES NECESARIO SI SE UTILIZA EL GESTOR DE ESTADOS DLI   
 001273 //ZTBGF032 DD   DSN=KI.EGDI.ZTBG.ZTBGF032,DISP=SHR                     
 001274 //* ESTE FICHERO ES NECESARIO SI SE UTILIZA EL GESTOR DE ESTADOS VSAM  
 001281 //ZTBGFEST DD   DSN=KI.EGDI.ZTBG.ESTADOS,DISP=SHR                      
 001282 //* LISTA DE SESIONES A TRATAR                                         
 001290 //ZTBGFLFE DD   SYSOUT=*                                               
 001300 //ZTBGFPRI DD   SYSOUT=*,DCB=(BLKSIZE=105)                             
 001310 //ZTBGFINF DD   SYSOUT=*                                               
 001400 //SYSOUT   DD   SYSOUT=*                                               
 001500 //ZTBGFSES DD   DSN=KI.EGDI.ZTBG.ZTBGFSES,DISP=SHR                     
 003400 //                                                                     

Listado.

El programa ZTBGBLF2 informará de los ficheros que se cargaron en cada una de las sesiones de la lista.

 FECHA : 23/01/2003 FICHEROS DE PRESENTACION DE EMISION -EDITRAN-  PAGINA:   1
 HORA  : 15:53:41                                                             
                                                                              
      LOCAL    REMOTO   APLICA                 FICHEROS                       
    --------- --------- ------ -------------------------------------------    
    000099980 000000010 PRUEBA KI.EIDA.F01.PC                                 
                               KI.EIDA.F02.PC                                 
    000099980 000099940 AE9998 KI.SNIM.ZTB.R000099.R940.AAE9998.EMISION       
    000099980 000099940 CARGAD  ?? (2)                     
                  
 (1) NO HAY DATOS PARA LA SESION    (2) NO EXISTE SESION EDITRAN/G            
                  ***   F I N     D E    L I S T A D O   ***