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)