jueves, 26 de septiembre de 2013

Como crear un member nuevo en un Dataset vacio

Para crear un miembro en un data set lo normal es colocar en la linea de comando "S NOMBRE" dentro del dataset en el cual se quiere crear el miembro, sin embargo para esto tienes que entrar al dataset primero, estando vacio el dataset no permite entrar manda error de "no members in data set"


La forma facil para mi es colocar una letra E en la columna de command y luego del nombre del dataset poner entre parentesis el nombre del miembro nuevo que se quiere crear, por ejemplo: 
E        PIRRO.JCL(erep)

Con esto le creara un miembro nuevo y ya de ahora en adelante se puede usar el comando "S NOMBRE"


jueves, 28 de marzo de 2013

JCL para hacer DUMP


Este JCL se utiliza para hacer DUMP (copia del Volumen que por lo general es un DASD)

DUMPIN: VOL=SER: se cambia los asteriscos por el nombre del volumen que queremos hacerle DUMP
DUMPOUT: el nombre del dataset al cual vamos a enviar el DUMP con toda su información, VOL:SER se cambia los asteriscos por el nombre del VOL:SER donde esta el dataset donde enviaremos el DUMP

En este ejemplo estamos incluyendo todo si notan en la linea 1000 y 1100 dice INCLUDE y luego **, eso significa que incluira todo, luego en la linea 1300 a 1500, de todo lo que incluira estamos excluyendo los datasets que inicien con el nombre SYS1.VTOCIX y SYS1.VVDS debido que no los necesitamos.


=COLS> ----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
****** ***************************** Top of Data ******************************
000100 //NOMBREJO JOB 'DASD TO DSN',                                  
000200 //   MSGCLASS=Y,CLASS=P,NOTIFY=&SYSUID                                  
000300 //DFDSS    EXEC PGM=ADRDSSU,REGION=4096K  PARM='TYPRUN=NORUN'           
000400 //SYSPRINT DD   SYSOUT=*                                                
000500 //DUMPIN   DD   UNIT=SYSALLDA,VOL=SER=******,DISP=SHR                 
000600 //DUMPOUT  DD   DSN=NOMBRE.DEL.DS,DISP=(,CATLG),                
000700 //         UNIT=3390,VOL=SER=******,SPACE=(CYL,(1000,250),RLSE)         
000800 //SYSIN    DD   *                                                     
000900  DUMP DATASET (             -                                         
001000       INCLUDE(              -                                         
001100              **             -                                         
001200                )            -                                         
001300       EXCLUDE(              -                                         
001400              SYS1.VTOCIX.** -                                         
001500              SYS1.VVDS.**   -                                         
001600                )            -                                         
001700               )             -                                         
001800       LOGINDD(DUMPIN)       -                                         
001900       OUTDDNAME(DUMPOUT)    -                                         
002000       ALLDATA(*)            -                                         
002100       ALLX                  -                                         
002200       TOL(ENQF)