//DTSPMONX JOB (UI,4300,3400,T),PROD.MONTHLY,CLASS=P,MSGCLASS=X,        00000010
//             NOTIFY=ECNTSUP,
//****         USER=#DOADTS,
//****         TYPRUN=SCAN,
//             REGION=0M
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//*
//    SET LVLNODE='PROD'
//****
//*       REVISED 9/20/1999 FOR DC - GD                            |
//* NOTE      :  RUN ON LAST WORKING DAY OF MONTH.                 |
//*              AFTER DAILY HAS RUN (AND WEEKLY IF NECESSARY)     |
//****
/*JOBPARM  LINECT=104         /* NEEDED FOR THE OLD XEROX AT DOES ONLY
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCLIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//*
//*                                  SPEC BACKUP BEFORE MONTHLY BATCH
//*                        THIS RESTORE IS DONE AT MONTH-END TO
//*                REORG THE MAIN VSAM FILES (MSTA/B/C/D/E/F/G & AIX)
//*                        (OLA IS ALREADY RESET BY THE DAILY)
//*                        (ATC, REF & WRK WILL BE DONE IN THE QRTLY)
//*                        (NAIC & SIC NEED ONLY BE DONE AFTER
//*                                   A SUCCESSFUL (ANNUAL?) LOAD)
//**//STEP0600 EXEC DTSRORG1,
//**//         BKUPGEN='(+0)'
//*
//*                                                 MONTH END REPORTING
//STEP0700 EXEC DTSRMEND,
//         LVLNODE='PROD',
//          RPTGEN='+0',
//           LDEST=U@PRT65,
//           LHOLD='NO',
//         LVDHOLD='YES',
//          LR414H='YES'
//**                             SPECIFIC OVERRIDE(S) FOR THE MONTHLY
//*