DUTAS re-platformed to Raincode - Initial Source Code

2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions
--- a/Procs/DTSDWTC
+++ b/Procs/DTSDWTC
@ -0,0 +1,78 @@
+//*****                                                                 00000010
+//**       MERGE BATCH BWTC RECORDS INTO VSAM WTC FILE
+//**       MERGE AUDIT WAGE RECORDS INTO VSAM WTC FILE  8/18/12   ZL1
+//**       MERGE TDEC  WAGE RECORDS INTO VSAM WTC FILE  1/11/13   ZL1
+//*****
+//DTSDWTC  PROC
+//*****                                                                 00000200
+//STEP0100 EXEC DTSBU190             COPY WTC TO FLAT FILE
+//*****                                                                 00000200
+//STEP0100 EXEC PGM=IDCAMS,          COPY WTC TO FLAT FILE
+//             COND=(0,LT)
+//SYSPRINT DD SYSOUT=*
+//INDD01   DD DSN=DOESTAX.&MSTNODE..VSAM.WTC,DISP=SHR
+//OUTDD01  DD DSN=&&WTCTRN1,
+//             DISP=(,PASS,DELETE),
+//             UNIT=SYSDA,SPACE=(CYL,(75,15),RLSE),
+//             DCB=(RECFM=FB,LRECL=128,BLKSIZE=25600)
+//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
+//*
+//*********************************************************
+//*
+//STEP0200 EXEC PGM=IDCAMS,        COPY BWTC TO FIXED LENGTH FILE
+//             COND=(0,LT)
+//SYSPRINT DD SYSOUT=*
+//INDD01   DD  DSN=DOESTAX.&MSTNODE..WAGE.BTC,   BWTC FILE
+//             DISP=(OLD,DELETE,KEEP),
+//             SPACE=(25600,(100,200),RLSE),
+//             DCB=(SYS3.MODEL,RECFM=FB,LRECL=128,BLKSIZE=25600)
+//         DD  DSN=DOESTAX.&MSTNODE..BX442.WAGE,
+//             DISP=(OLD,KEEP,KEEP),
+//             SPACE=(25600,(100,200),RLSE),
+//             DCB=(RECFM=FB,LRECL=128,BLKSIZE=25600)
+//         DD  DSN=DOESTAX.&EXTNODE..TDECX148.DELINQ.WAGE.BTC,
+//             DISP=(OLD,KEEP,KEEP),
+//             SPACE=(CYL,(10,5)),
+//             DCB=(RECFM=FB,LRECL=128,BLKSIZE=25600)
+//         DD  DSN=DOESTAX.&EXTNODE..TDECX148.ONTIME.WAGE.BTC,
+//             DISP=(OLD,KEEP,KEEP),
+//             SPACE=(CYL,(10,5)),
+//             DCB=(RECFM=FB,LRECL=128,BLKSIZE=25600)
+//OUTDD01  DD DSN=&&WTCTRN1,
+//             DISP=(MOD,PASS,DELETE)
+//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
+//*
+//STEP0300 EXEC PGM=IDCAMS,         DELETE/DEFINE WTC FILE
+//             COND=(0,LT),
+//             REGION=0K
+//SYSPRINT DD  SYSOUT=*
+//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(&MSTDWTC),DISP=SHR
+//*
+//************************************************************
+//STEP0400 EXEC PGM=SORT,PARM='VLTEST=0',    SORT WTC TRANSACTIONS
+//             COND=(0,LT)
+//SYSOUT   DD  SYSOUT=*
+//SORTIN   DD  DSN=&&WTCTRN1,
+//             DISP=(OLD,PASS,DELETE)
+//*
+//SORTOUT  DD DSN=&&WTCTRN3,
+//             DISP=(,PASS,DELETE),
+//             UNIT=SYSDA,
+//             SPACE=(CYL,(75,15),RLSE),
+//             DCB=(RECFM=FB,LRECL=128,BLKSIZE=25600)
+//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSWTC),DISP=SHR
+//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE)
+//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE)
+//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE)
+//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE)
+//****
+//*
+//STEP0500 EXEC PGM=IDCAMS,          LOAD VSAM FILE
+//             COND=(0,LT)
+//SYSPRINT DD SYSOUT=*
+//INDD01   DD DSN=&&WTCTRN3,
+//             DISP=(OLD,PASS,DELETE)
+//OUTDD01  DD DSN=DOESTAX.&MSTNODE..VSAM.WTC,DISP=SHR
+//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
+//*
+//****