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.

//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:

//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'

1. Sacar todos los ficheros asociados a la transmisión 00009994000009990PRUEBA

PARM='E00000099940000099990PRUEBA'

1. 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'

1. 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:

Nivel	Nombre	Long.	Tipo	Descripción
1	Área de fichero	130	Alfn.
2	Nombre físico	44	Alfn.	Nombre físico del fichero de aplicación
2	Filler	1	Alfn.	Guion de separación
2	Fecha-fin-presentación	14	Núm.	Fecha-Hora de fin de presentación en formato AAAAMMDDHHMMSS
2	Tipo-Fichero cargado	4	Núm.	Tipo de fichero cargado o de salida ‘FIJO’ ‘VBLE’ ‘VEXP’ ‘BINA’
2	Alfabeto-datos cargados	1	Alfn.	Alfabeto de los datos cargados: ‘A’: Ascii, ‘E’: Ebcdic, ‘B’:Binario
2	Compresión	1	Alfn.	Indica si el fichero fue cargado con compresión: ‘F’ Comprimido, ‘N’ Sin compresión
2	Filler	1	Alfn.	Área de reserva
2	Nombre físico origen	75	Alfn.	Nombre físico del fichero de aplicación en origen
2	Bytes fich.aplic	12	Núm.	Bytes fichero aplicación
2	Longitud de reg.	6	Núm.	Lrecl.
2	Filler	41	Alfn.	Área de reserva