* $$ JOB JNM=PTJBLPBK,CLASS=H,PRI=5 * $$ LST DISP=D,CLASS=Q // JOB PTJBLPBK /. STEPS010 * *===========================================================* * * BACKUP DYNAM FILES * * *===========================================================* // TLBL DUMP,'PTD.BILLPRT.BKP',,,,,,2 /* ASSGN SYS005,6C1 // EXEC DYNUTIL,SIZE=1024K OPEN DUMP (OUTPUT REW SYS005) DUMP 'PTD.BSDATA.INVFILE1' POOL=TODDYN DUMP 'PTD.DISK.OUT' POOL=TODDYN CLOSE DUMP (RUN RELEASE) /* /* DUMP 'PTD.DISK.OUT' POOL=TODDYN /& * $$ EOJ
Return to the Sample Job Stream List
//PTJBLPBK JOB (PTJBLPBK),' ', // CLASS=A, // MSGCLASS=X, // MSGLEVEL=(1,1), // REGION=6M //* //JOBLIB INCLUDE MEMBER=JOBLIB //* //* *===========================================================* //* * BACKUP DYNAM FILES * //* *===========================================================* //*/. STEPS010 //* //* STEP0010 PGM=ADRDSSU DYNUTIL //* //STEP0010 EXEC PGM=ADRDSSU //* MODULE DYNUTIL PROCESSED BY PLUG-IN JCLTDYNU //* SD I A 'PTD.BSDATA.INVFILE1' BACKUP //#BACKUP DD DUMMY,DSN=MVSPTD.BSDATA.INVFILE1 //* SD I A 'PTD.DISK.OUT' BACKUP //#BACKUP DD DUMMY,DSN=MVSPTD.DISK.OUT //* MT O SYS005 UA 'PTD.BILLPRT.BKP' BACKUP //DUMP DD DSN=MVSPTD.BILLPRT.BKP(+1), // DISP=(NEW,CATLG,DELETE), // UNIT=TAPE //* PR O //SYSPRINT DD SYSOUT=* //* CD I //SYSIN DD * DUMP - DATASET( - INCLUDE( - MVSPTD.BSDATA.INVFILE1(0) - MVSPTD.DISK.OUT - )) - SPHERE - SHARE - OUTDD(DUMP) /* //
Return to the Sample Job Stream List