//DTSPDAY7 JOB (UI,4300,3400,T),PROD.WEEKLY,CLASS=P,MSGCLASS=X,         00000010
//****      TYPRUN=SCAN,
//          USER=#DOADTS,
//          NOTIFY=ECNTSUP,REGION=0M
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//*
//*
//   SET ACHYEAR='FY2009'
//   SET LVLNODE='PROD'
//   SET LVDHOLD='YES'
//*
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//****
//*  09/30/99 - JHP
//*         CLONE OF CEPTWEND FOR MODEL OF WEEKLY BATCH RUN
//****
//*     UI TAX WEEKLY BATCH RUN
//*
//*     NOTE:  RUN ON LAST WORKING DAY OF WEEK AFTER LAST
//*            DAILY BATCH RUN FOR THE WORK WEEK HAS
//*            SUCCESSFULLY COMPLETED.
//****
//*     WEEKLY  BACKUP IS TAKEN HERE BEFORE WEEKLY UPDATE JOB
//*
//****  testing rc   zl1
//*     11/9/12 CHANGED PROC FROM DTSRWVD TO DTSRWTR FOR TRMS RPTS  ZL1
//*
//*STEP0050 EXEC DTSUWVSM,
//*         BKUPGEN='(+1)'
//*                        THIS RESTORE IS DONE AT WEEK-END TO
//*        REORG THE MAIN VSAM FILES (MSTA/B/C/D/E/F/G & AIX & WGH)
//*                        (OLA IS ALREADY RESET BY THE DAILY)
//*                        (ATC, REF & WRK WILL BE DONE IN THE QRTLY)
//*                        (NAIC & SIC NEED ONLY BE DONE AFTER
//STEP0100 EXEC DTSUEXT,
//             RUNTYPE='WE'
//STEP0100.EXTPARM  DD  *
122
614
/*
//*                                           SORT REPORT RECORDS
//STEP0200 EXEC PGM=SORT,                 
//             COND=(0,LT)
//SYSOUT   DD  SYSOUT=*
//SORTIN   DD  DSN=DOESTAX.&LVLNODE..PER.RPT(+1),DISP=SHR
//SORTOUT  DD  DSN=DOESTAX.&LVLNODE..SRTDAY07.RPT(+1),
//             DISP=(,CATLG,DELETE),
//*            SPACE=(8192,(1000,1000),RLSE),
//             SPACE=(CYL,(50,25),RLSE),
//             DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSRREC),DISP=SHR
//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK03 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK04 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//*                                          WEEKLY REPORTS
//STEP0300 EXEC DTSRWTR,
//            RPTGEN='(+1)',
//             LDEST=U@PRT65,
//             LHOLD='NO'
//*                                          WEEKLY VD REPORTS
//STEP0400 EXEC DTSACHW1     /ARCHVIE RPT 433 SI 2ND LETTER
//*