Elección de núcleo en procedimientos Onesait Editran

Para evitar la duplicidad de procedimientos cuando se tiene más de una base de datos de emisión/recepción y por tanto, distintos núcleos de Editran, en los procedimientos se debe añadir como paso previo a los existentes uno nuevo que creará el fichero ZTBGF032, necesario para la ejecución de los procedimientos, con la ficha adecuada al núcleo correspondiente según la sesión para la que se ejecute.

El paso a añadir será el correspondiente al del JCL ZTBGJNUC que se suministra en la instalación del prodcuto convenientemente adaptado y que se muestra a continuación:

//KI1056EA JOB (EGDC,KIT,,99),TRAN-NUCLEO,MSGCLASS=H,CLASS=A,          
//             MSGLEVEL=1,NOTIFY=&SYSUID                               
//PASOTRN  EXEC PGM=ZTBGBNUC,                                          
//         PARM='E000099930000099940PRUEBAPRUEBA/CBLQDA(ON)'           
//STEPLIB  DD DSN=KI.EGDI.LOAD,DISP=SHR                                
//         DD DSN=IMS910P.SDFSRESL,DISP=SHR                            
//ZTBGFNUC DD DSN=KI.EGDI.ZTBG.ZTBGFNUC,DISP=SHR                       
//ZTBGF032 DD DSN=KI.EGDI.PRUE.ZTBGF032,DISP=(NEW,CATLG,DELETE),       
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=80),                      
//            SPACE=(TRK,(500,50),RLSE)                                
//SYSOUT   DD SYSOUT=*                                                 
//                                                                      

El fichero ZTBGFNUC es un fichero PS de longitud 80 fijo bloqueado que contiene las fichas BMP (que actualmente están en los ZTBGF032) correspondientes a los distintas bases de datos, y a continuación de cada una de ellas el núcleo asociado. Asimismo, contiene la ficha de ejecución del paso que lista los ficheros emitidos (ZTBGLFE) en el procedimiento posterior a emisión.

El fichero ZTBGFNUC se suministra como ejemplo en la instalación del producto y es como sigue:

********************************* Top of Data **********************************
BMP,PROGRAMA,ZTBGENUC,,,N00000,,,,,,,,IMST,,                                   
BMP,PROGRAMA,ZTBGEIG1,,,N00000,,,,,,,,IMST,,                                ZTB1
BMP,PROGRAMA,ZTBGEIG2,,,N00000,,,,,,,,IMST,,                                ZTB2
BMP,PROGRAMA,ZTBGEIG3,,,N00000,,,,,,,,IMST,,                                ZTB3
BMP,PROGRAMA,ZTBGEIG4,,,N00000,,,,,,,,IMST,,                                ZTB4
BMP,PROGRAMA,ZTBGEIG5,,,N00000,,,,,,,,IMST,,                                ZTB5
BMP,PROGRAMA,ZTBGELFE,,,N00000,,,,,,,,IMSP,,                                ZLFE
******************************** Bottom of Data ********************************

En los procedimientos el fichero de salida ZTBGF032 se definirá como temporal (OLD,PASS,DELETE) y en los pasos en los que está actualmente se habrá de cambiar DISP=SHR por DISP=(OLD,PASS,DEL).

Ejemplo.

Procedimiento posterior a emisión:

//             PROC ORIGEN=,FUNCION=,L0=,                              
//             L1=,L2=,R1=,R2=,PR=,AP=                                 
//*--------------------------------------------------------------------
//* INDRA                                                             *
//*--------------------------------------------------------------------
//*   PROCEDIMIENTO POSTERIOR A LA EMISION DE EDITRAN/G               *
//*--------------------------------------------------------------------
//*  DATOS:                                                           *
//*      ORIGEN (O=OPERADOR,E=EDITRAN,A=JCL APLICACION) ----> 1 BYTE  *
//*                                                                   *
//*      FUNCION (02=PROCESAR PRESENTACION POSTERIOR A EMISION        *
//*               05=FIN DE EMISION DE PRESENTACION)   -----> 2 BYTES *
//*                                                                   *
//*      SESION-PRESENTACION  :                                       *
//*        CODIGO LOCAL L1  --------------------------------> 6 BYTES *
//*                     L2  --------------------------------> 3 BYTES *
//*        REMOTO       R1  --------------------------------> 6 BYTES *
//*                     R2  --------------------------------> 3 BYTES *
//*        APLICACION   PR  --------------------------------> 6 BYTES *
//*                                                                   *
//*      SESION-TRANSMISION  (EDITRAN/P):                             *
//*        APLICACION   AP  --------------------------------> 6 BYTES *
//*                                                  TOTAL = 33 BYTES *
//*      ALIAS ENTORNO LOCAL (PARA USOS PARTICULARES)                 *
//*                     L0  --------------------------------> 3 BYTES *
//*--------------------------------------------------------------------
//PASOTRN  EXEC PGM=ZTBGBNUC,                                          
//         PARM='&ORIGEN&L1&L2&R1&R2&PR&AP/CBLQDA(ON)'                 
//STEPLIB  DD DSN=KI.EGDI.LOAD,DISP=SHR                                
//         DD DSN=IMS910P.SDFSRESL,DISP=SHR                            
//ZTBGFNUC DD DSN=KI.EGDI.ZTBG.ZTBGFNUC,DISP=SHR                       
//ZTBGF032 DD DSN=&&ZTGF032,DISP=(NEW,PASS,DELETE),                    
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=80),                      
//            SPACE=(TRK,(500,50),RLSE)                                
//SYSOUT   DD SYSOUT=*                                                 
//                                                                     
//*--------------------------------------------------------------------
//A3P EXEC PGM=ZTBGB130,REGION=4M,                                     
//             PARM='&ORIGEN&FUNCION&L1&L2&R1&R2&PR&AP/CBLQDA(ON)'     
//STEPLIB  DD DSN=IMS910P.SDFSRESL,DISP=SHR                            
//         DD DSN=KI.EGDI.LOAD,DISP=SHR                                
//         DD DSN=KI.GCDA.SCDES.LOAD,DISP=SHR                          
//DFSVSAMP DD DSN=IMS910P.PROCLIB(DFSVSAMP),DISP=SHR                   
//ZTBGFLOG DD SYSOUT=*                                                 
//ZTBGF032 DD DSN=&&ZTGF032,DISP=(,PASS,DEL)                           
//ZTBGFLIS DD SYSOUT=*                                                 
//ZTBGFMSJ DD SYSOUT=*                                                 
//ZTBGFPRI DD SYSOUT=*,DCB=(BLKSIZE=105)                               
//ZTBGFINT DD   SYSOUT=(H,INTRDR),DCB=(BLKSIZE=80)                     
//FICHKDES DD DSN=KI.GCDA.CIFRIMS.FICHKDES,DISP=SHR                    
//CEEDUMP  DD SYSOUT=*                                                 
//SYSOUT   DD SYSOUT=*                                                 
//SYSTCPD  DD DSN=SW.TCPIP.SEZAPARM(TCPDATB2),DISP=SHR                 
//      SET LOCAL0=&L0                                                 
//*                                                                    
//*--------------------------------------------------------------------
//* PASO PARA SACAR LISTA DE FICHEROS EMITIDOS                        *
//*--------------------------------------------------------------------
//*   FUNCION -------------------------------------------> 2 BYTES    *
//*       00 - SACA LA LISTA INDEPENDIENTEMENTE DE ESTADO PRESENTACION*
//*       02 - SACA LA LISTA SI EL ESTADO DE PRESENTACION ES FINALIZ. *
//*   SES. PRESENT. O SES. TRANSM.(DEPENDIENDO DE ORIGEN)> 24 BYTES   *
//*--------------------------------------------------------------------
//ZTBGLFE EXEC PGM=ZTBGBLFE,REGION=4M,COND=(0,NE,A3P),                 
//             PARM='&ORIGEN&FUNCION&L1&L2&R1&R2&PR&AP/CBLQDA(ON)'     
//STEPLIB  DD DSN=IMS910P.SDFSRESL,DISP=SHR                            
//         DD DSN=KI.EGDI.LOAD,DISP=SHR                                
//ZTBGFLOG DD SYSOUT=*                                                 
//ZTBGF032 DD DSN=&&ZTGF032,DISP=(,PASS,DEL)                           
//* ESTE FICHERO ES NECESARIO SI SE UTILIZA EL GESTOR DE ESTADOS VSAM  
//ZTBGFLFE DD SYSOUT=*                                                 
//ZTBGFPRI DD SYSOUT=*,DCB=(BLKSIZE=105)                               
//SYSOUT   DD SYSOUT=*                                                 
//CEEDUMP  DD SYSOUT=*