Ejemplo de alta con copia

El nombre del JCL que realiza el alta de las sesiones es “ZTBGJAP1”.

El formato de las fichas de entrada se entrega en el ejemplo de fichero de órdenes incorporado en el JCL.

Para no tener que borrar las fichas que no sean necesarias en un alta determinada se pueden ignorar tecleando un “*” en la primera posición de la ficha dejando un guion o en blanco dicha posición si se desea que la ficha se tenga en cuenta.

El fichero de ordenes se puede generar en un proceso previo, manual o automático, sin tener necesidad de modificar el JCL en cada proceso de alta.

//KIXXXXXA JOB (EGDC,KIT,,99),ZTBGJAP1,MSGCLASS=H,CLASS=A,            
//             MSGLEVEL=1,NOTIFY=&SYSUID                              
//LIBPROC JCLLIB  ORDER=IMSP.PROCLIB                                  
//********************************************************************+
//** ALTA CON COPIA BATCH PERFILES EDItran (EDItran)                **+
//** FORMATO:                                                       **+
//** SI LA FICHA COMIENZA EN '*' NO SE UTILIZA.                     **+
//** SI LA FICHA NO COMIENZA POR '*' EL CONTENIDO DE LO QUE VIENE   **+
//** A CONTINUACION PUEDE SER CUALQUIERA DE LOS SIGUIENTES GRUPOS)  **+
//**  1 - GRUPO DE ALTA CON COPIA DE APLICACIONES.                  **+
//**      --> FICHA DE APLICACION (A0) OBLIGATORIA.                 **+
//**          A0-AAAAAA-BBBBBB-CCCCCCCCCCCCCCCCCCCC                 **+
//**             AAAAAA: 06 OCTETOS : APLICACION A DAR DE ALTA      **+
//**             BBBBBB: 06 OCTETOS : APLICACION IMAGEN             **+
//**             CCCCCC: 20 OCTETOS : NOMBRE APLICACION DE ALTA     **+
//**  2 - GRUPO DE ALTA CON COPIA DE REMOTOS.                       **+
//**      --> FICHA DE REMOTO (R0) OBLIGATORIA.                     **+
//**          R0-AAAAAAAAA-BBBBBBBBB-CCCCCCCCCCCCCCCCCCCC           **+
//**             AAAAAA: 09 OCTETOS : REMOTO A DAR DE ALTA          **+
//**             BBBBBB: 09 OCTETOS : REMOTO IMAGEN                 **+
//**             CCCCCC: 20 OCTETOS : NOMBRE REMOTO DE ALTA         **+
//**      --> FICHA DE REMOTO (R1) OPTATIVA. (MAXIMO 3 FICHAS)      **+
//**          R1-AAAAAAAAAAAAAAAA...AAAAAAAAAAAAAAAAA-BBBBB         **+
//**           AAAAAA: 64 OCTETOS : DIRECCION TCP/IP REMOTA         **+
//**                                FORMATO:   999.999.9999.999     **+
//**                                           WWW.XXXX.YY          **+
//**           BBBBB:   5 OCTETOS : PUERTO TCP/IP REMOTO            **+
//**  3 - GRUPO DE ALTA CON COPIA DE SESIONES.                      **+
//**      --> FICHA DE SESION (S0) OBLIGATORIA.                     **+
//**          S0-AA..AA-BB..BB-CCCCCC-DD..DD-EE..EE-FFFFFF-GG..GG   **+
//**             AAAAAA: 09 OCTETOS : ORIGEN SESION A DAR DE ALTA   **+
//**             BBBBBB: 09 OCTETOS : REMOTO SESION A DAR DE ALTA   **+
//**             CCCCCC: 06 OCTETOS : APLIC. SESION A DAR DE ALTA   **+
//**             DDDDDD: 09 OCTETOS : ORIGEN SESION IMAGEN          **+
//**             EEEEEE: 09 OCTETOS : REMOTO SESION IMAGEN          **+
//**             FFFFFF: 06 OCTETOS : APLIC. SESION IMAGEN          **+
//**             GGGGGG: 20 OCTETOS : DESCRIPCION SESION DE ALTA    **+
//**      --> FICHA DE SESION (S1) OPTATIVA.                        **+
//**          S1-AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA   **+
//**             AAAAAA: 60 OCTETOS : PARAMETROS MACROFICHEROS      **+
//**      --> FICHA DE SESION (S2) OBLIGATORIA. (ENTRE 1-20 FICHAS) **+
//**          S2-AAAAAA-B-CCCCCCCC-DDDDD-EEEEE                      **+
//**             AAAAAA: 06 OCTETOS: APLICACION TRANSMISION         **+
//**             B CCCCCC DDDDDD (NO UTILIZADOS)                    **+
//**             EEEEE : 06 OCTETOS: NUMERO REGISTROS (SOLO FICHA 1)**+
//**      --> FICHA DE SESION (S3) OPTATIVA. (ENTRE 0-99 FICHAS)    **+
//**          S3-AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA-B-C-D-E   **+
//**             AAAAAA: 44 OCTETOS : DSNAME FICHERO EMISION (0-99) **+
//**             B     : 01 OCTETOS : FORMATO (R/M)                 **+
//**                   R(REGISTRO): (FORMATO FIJO, VARIABLE Y EXPAN)**+
//**                   M(BINARIO)                                   **+
//**             C     : 01 OCTETOS : ALFABETO ORIGINAL (A/E/N)     **+
//**                   (ASCII,EBCDIC,NINGUNO)                       **+
//**             D     : 01 OCTETOS : TRADUCIR EN EMISION (S/N)     **+
//**                   (TRADUCIR,NO TRADUCIR)                       **+
//**             E     : 01 OCTETOS : COMPRESION (F/N)              **+
//**      --> FICHA DE SESION (S4) OPTATIVA.                        **+
//**          S4-A-B                                                **+
//**             A     : 01 OCTETOS : SUBSISTEMA LOCAL              **+
//**             B     : 01 OCTETOS : SUBSITEMA REMOTO              **+
//**      --> FICHA DE SESION (S5) OPTATIVA.                        **+
//**          S5-AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA            **+
//**             AAAAAA: 64 OCTETOS : LABEL LOCAL                   **+
//**      --> FICHA DE SESION (S6) OPTATIVA.                        **+
//**          S6-AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA            **+
//**             AAAAAA: 64 OCTETOS : LABEL REMOTO                  **+
//**      --> FICHA DE SESION (SA) OPTATIVA.                        **+
//**          SA-AAAAAAAA-BBBBBBBBBBB-                              **+
//**             AAAAAAAA:     8 OCTETOS : NOMBRE JOB               **+
//**             BBBBBBBBBBB: 11 OCTETOS : PREFIJO DE LA INSTALACION**+
//**      --> FICHA DE SESION (SB) OPTATIVA.                        **+
//**          SB-A     : 01 OCTETO  : JUEGO CARACTERES REMOTO       **+
//********************************************************************+
//ZTBGEAP1 EXEC IMSBATCH,MBR=ZTBGEAP1,PSB=ZTBGEAP1                    
//STEPLIB  DD DSN=KI.EGDI.LOAD,DISP=SHR                               
//ZTBGFLIS DD SYSOUT=*,DCB=(BLKSIZE=132)                              
//ZTBGFPRI DD SYSOUT=*,DCB=(BLKSIZE=105)                              
//SYSOUT   DD SYSOUT=*                                                
//CEEDUMP  DD SYSOUT=*                                                
//ZTBGFGPE DD *                                                       
S0-000099980-P00099930-NUEVA1-000099980-000099940-PRUEBA-SESION NUEVA  PRUEBA-
R0-000099930-000099990-REMOTO 9993         -                                 
A0-NUEVA1-PRUEBA-NUEVA APLICACION    -                                       
S1-*1*6*NUEVAA*7*72*                                           -             
S2-NUEVA1- -        -        -001000-                                        
S3-KI.EIDA.F131                                -R-E-N-F                      
S4-P-Q-                                                                      
S5-LABEL LOCAL NUEVA                                               -         
S6-LABEL REMOTO NUEVA                                              -         
SA-KINUEVA -KI.EGDI    -                                                     
SB-E-                                                                        
R1-CICSSITD.COMS.INDRA.ES                                          -07777-    
R1-192.1.1.2                                                       -07777-    
/*
//
 

En el ejemplo anterior se da de alta

La sesión 000099980-000099930-NUEVA1 utilizando como imagen la 000099980-000099940-PRUEBA

El remoto 000099930 utilizando como imagen el 000099990

La aplicación NUEVA1 utilizando como imagen la aplicación PRUEBA