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 ZTGJLFP ejecuta el módulo ZTBGBLFP de forma aislada. Por PARM se le pasa la sesión de presentación de 24 bytes.

//KI1056EF 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='000099980000099940PRUEBB/CBLQDA(ON)'                   
//STEPLIB  DD DSN=IMS910P.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.

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