Return to the Sample Job Stream List

PTJBLPBK Sample Job Stream

Original JCL (VSE)

* $$ 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

Translated JCL (MVS)

//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