Return to the Sample Job Stream List

FZABW03J Sample Job Stream

Original JCL (VSE)

* $$ JOB JNM=FZABW03J,USER='ABS..SARA  '
* $$ LST CLASS=Q,DISP=H,DEST=(,RSCS),LST=SYSLST
// JOB FZABW03J (HABWRSS)   RESTORE PRODUCTION ABS FILES WITH DOCTOR D.
// OPTION LOG
// UPSI 1000000
// EXEC TDYNASN
// ASSGN SYS006,DUMMY
// ASSGN SYS007,DUMMY
// ASSGN SYS008,DUMMY
/*
// TLBL INPUT,'HABDWK2,U'   BACKED-UP KSDS(INPUT) HABDWK2
// EXEC DRD,SIZE=200K
RESTORE=NOOP,PRINT=LIST,BL=65000,TD=INPUT
RESTORE=LOGICAL,RC=VSAM10,FD=DELETE,PA=SELECT,AU=YES,FA=YES
HOAB.CL.HAB310.ABS.MASTER
/*
RESTORE=LOGICAL,RC=VSAM10,FD=DELETE,PA=SELECT,AU=YES,FA=YES
HOAB.CL.HAB402.TRANSFER.HISTORY
HOAB.CL.HAB406.BILLING.HISTORY
HOAB.CL.HAB410.MTD.ACCTING
HOAB.CL.HAB420.ACCOUNT.HISTORY
HOAB.CL.HAB430.PAYMENT.HISTORY
HOAB.CL.HAB440.MTD.STMT.HISTORY
/*
/*
/&
* $$ EOJ
   

Return to the Sample Job Stream List

Translated JCL (MVS)

//FZABW03J JOB (FZABW03J),'                    ',
//             CLASS=A,
//             MSGCLASS=X,
//             MSGLEVEL=(1,1),
//             REGION=6M
//*
//JOBLIB  INCLUDE MEMBER=JOBLIB
//*
//*  --> PGM=TDYNASN  <-- DELETED
//*
//*     STEP0010  PGM=ADRDSSU                                           DRD
//*
//STEP0010 EXEC PGM=ADRDSSU
//* MODULE DRD PROCESSED BY PLUG-IN JCLTDRD
//* MT I SYS008 480            'HABDWK2,U'                              RESTORE
//INPUT    DD  DSN=PROD.HABDWK2(0),
//             DISP=SHR
//* VS VS    O VSAM10   A          'HOAB.CL.HAB310.ABS.MASTER'          RESTORE
//#RESTORE DD  DUMMY,DSN=MVS.HOAB.CL.HAB310.ABS.MASTER
//* VS VS    O VSAM10   A          'HOAB.CL.HAB402.TRANSFER.HISTORY'    RESTORE
//#RESTORE DD  DUMMY,DSN=MVS.HOAB.CL.HAB402.TRANSFER.HISTORY
//* VS VS    O VSAM10   A          'HOAB.CL.HAB406.BILLING.HISTORY'     RESTORE
//#RESTORE DD  DUMMY,DSN=MVS.HOAB.CL.HAB406.BILLING.HISTORY
//* VS VS    O VSAM10   A          'HOAB.CL.HAB410.MTD.ACCTING'         RESTORE
//#RESTORE DD  DUMMY,DSN=MVS.HOAB.CL.HAB410.MTD.ACCTING
//* VS VS    O VSAM10   A          'HOAB.CL.HAB420.ACCOUNT.HISTORY'     RESTORE
//#RESTORE DD  DUMMY,DSN=MVS.HOAB.CL.HAB420.ACCOUNT.HISTORY
//* VS VS    O VSAM10   A          'HOAB.CL.HAB430.PAYMENT.HISTORY'     RESTORE
//#RESTORE DD  DUMMY,DSN=MVS.HOAB.CL.HAB430.PAYMENT.HISTORY
//* VS VS    O VSAM10   A          'HOAB.CL.HAB440.MTD.STMT.HISTORY'    RESTORE
//#RESTORE DD  DUMMY,DSN=MVS.HOAB.CL.HAB440.MTD.STMT.HISTORY
//* PR O
//SYSPRINT DD  SYSOUT=*
//* CD I
//SYSIN    DD  *
 RESTORE -
   INDD(INPUT) -
   DATASET( -
     INCLUDE( -
       MVS.HOAB.CL.HAB310.ABS.MASTER -
       MVS.HOAB.CL.HAB402.TRANSFER.HISTORY -
       MVS.HOAB.CL.HAB406.BILLING.HISTORY -
       MVS.HOAB.CL.HAB410.MTD.ACCTING -
       MVS.HOAB.CL.HAB420.ACCOUNT.HISTORY -
       MVS.HOAB.CL.HAB430.PAYMENT.HISTORY -
       MVS.HOAB.CL.HAB440.MTD.STMT.HISTORY -
            )) -
   SPHERE -
   REPLACE
/*
//
   

Return to the Sample Job Stream List