Archivo de la etiqueta: JCL

JCL’S – Job Control Language

El lenguaje JCL, se utiliza para indicar y definicir los trabajos a realizar por el OS. Así se compone de un conjunto de sentencias, donde especifican programas a ejecutar, recursos DLI, DB2, ficheros que componen al JOB.

Sentecias de control de trabajo básicas:

JOB – Identificación del conjunto de funcionalidad, programa que constituye al JCL.
EXEC –   Paso de trabajo a ejecutar.
DD (Data Definition) – Identificación de los ficheros para un determinado paso.

Ejemplos Básicos:

REPRO, Llamada a la utilidad IDCAMS para copiar fichero con paso previo de borrado del fichero de salida.

//DELETE EXEC PGM=IDCAMS                        
//SYSPRINT DD   SYSOUT=*                                               
//SYSIN    DD   *                                                      
       DELETE   (EJEMPLO.REPRO.A2 ) NVSAM PURGE           
                SET MAXCC=0                                            
/*     
//REPRO1   EXEC PGM=IDCAMS                                           
//SYSPRINT   DD SYSOUT=*                                             
//DD1     DD  DISP=SHR,DSN=EJEMPLO.REPRO.A1          
//DD2     DD  DSN=EJEMPLO.REPRO.A2,
//         DISP=(,CATLG,DELETE),                               
//         DCB=(RECFM=FB),                                     
//         DATACLAS=D100CYLS,                                  
//         STORCLAS=AAAAA,                                  
//         MGMTCLAS=BBBBBB 
//SYSIN      DD *                                                    
    REPRO INFILE (DD1) OUTFILE (DD2)                                 
//*

Paso Ejecución programa con accesos DB2.

//PROGRAMA  EXEC PGM=IKJEFT1A                                                                                 
//SYSOUT   DD SYSOUT=*                                                                 
//ENTRADA  DD DSN=EJEMPLO.PRUEBA.A2,DISP=SHR                              
//SALIDA      DD DSN=EJEMPLO.PRUEBA.A3,              
//         DISP=(,CATLG,DELETE),                                       
//         DCB=(RECFM=FB,LRECL=50,DSORG=PS),                           
//         DATACLAS=D001TRKS,                                          
//         STORCLAS=XXXXXX,                                          
//         MGMTCLAS=CCCCCCC                                          
//SYSTSIN  DD *                                                        
    DSN SYSTEM(SSID de la base de datos)                                                   
    RUN PROGRAM(nombre_programa)  PLAN(plan del programa)                               
/*