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