DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSPDAY7.jcl

@@ -0,0 +1,64 @@
+//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..PROCLIB
+//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
+//*
+//****
+//*     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,PARM='VLTEST=0',
+//             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
+//*