Create a GDG PL/1

1º DEFINICIÓN DEL POZO GDG

Realizamos la definición del GDG, la línea de código más importante sería la de DEFINE GDG (NAME(MFG.TXT01309) LIMIT(03) SCR) puesto que establecemos el nombre del fichero cómo MFG.TXT01309, además de asignar un límite máximo de 3 versiones.

//P010     EXEC PGM=IDCAMS                                             
//SYSPRINT DD   SYSOUT=*                                               
//SYSOUT   DD   SYSOUT=*                                               
//SYSIN    DD   *                                                      
           DEFINE GDG (NAME(MFG.TXT01309) LIMIT(03) SCR)          
//ABEND010 EXEC PGM=IBMABEND,COND=(0,EQ,P010) 

2º INICIALIZACIÓN DEL POZO

Una vez tenemos la definición del GDG podemos proceder a hacer una primera versión vacía de este (opcional), para ello.

//P020     EXEC PGM=SISPTOOL                                           
//I001     DD  DUMMY                                                   
//O001     DD  DSN=MFG.TXT01309(+1),                              
//             DISP=(,CATLG,DELETE),                                   
//             SPACE=(03000,(066220,028380),RLSE,,),AVGREC=U,          
//             UNIT=(SYSALLDA,01),                                     
//             VOL=(),                                                 
//             DATACLAS=,STORCLAS=,MGMTCLAS=,                          
//             DCB=(RECFM=VB,LRECL=03000,BLKSIZE=0)                    
//DFSMSG   DD  SYSOUT=*                                                
//TOOLMSG  DD  SYSOUT=*                                                
//ABENP020 EXEC PGM=IBMABEND,COND=(0,EQ,P020)                          

Código de JCL completo

//********************************************************************/
//* P010 : DEFINICIÓN DEL POZO GDG                                   */
//********************************************************************/
//P010     EXEC PGM=IDCAMS                                             
//SYSPRINT DD   SYSOUT=*                                               
//SYSOUT   DD   SYSOUT=*                                               
//SYSIN    DD   *                                                      
           DEFINE GDG (NAME(MFG.TXT01309) LIMIT(03) SCR)          
//ABEND010 EXEC PGM=IBMABEND,COND=(0,EQ,P010)                          
//********************************************************************/
//* P020 : CREAR LA PRIMERA VERSIÓN DEL POZO VACÍA                   */
//********************************************************************/
//P020     EXEC PGM=SISPTOOL                                           
//I001     DD  DUMMY                                                   
//O001     DD  DSN=MFG01309(+1),                              
//             DISP=(,CATLG,DELETE),                                   
//             SPACE=(03000,(066220,028380),RLSE,,),AVGREC=U,          
//             UNIT=(SYSALLDA,01),                                     
//             VOL=(),                                                 
//             DATACLAS=,STORCLAS=,MGMTCLAS=,                          
//             DCB=(RECFM=VB,LRECL=03000,BLKSIZE=0)                    
//DFSMSG   DD  SYSOUT=*                                                
//TOOLMSG  DD  SYSOUT=*                                                
//ABENP020 EXEC PGM=IBMABEND,COND=(0,EQ,P020)                          

Comentarios deshabilitados temporalmente

Ergonomía – Posición en el trabajo

Ergonomía – Posición en el trabajo

Ejercicios basicos java #6

Ejercicios basicos java #6

Ejercicios basicos java #5

Ejercicios basicos java #5

Ejercicios basicos java #4

Ejercicios basicos java #4

Ejercicios basicos java #3

Ejercicios basicos java #3