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/JCL/DTSBX479.jcl
+++ b/JCL/DTSBX479.jcl
@ -0,0 +1,76 @@
+//TSTBX479 JOB (UI,4300,3400,T),DTSBX479,                               00000010
+//          CLASS=S,MSGCLASS=X,                                         00000010
+//          USER=#DOADTS,
+//          NOTIFY=ECNTZL1,
+//          REGION=0M
+//*                                                                     00001700
+//   SET LVLNODE='DEVL'
+//    SET MSTNODE='PROD'
+//*                                                                     00001700
+//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB                       00001600
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00001600
+//**                                                                    00001700
+//*   EXTRACT EMPLOYER DATA (NAME, ADDRESS, CLASS, STATUS) FOR UIBS     00001700
+//*   FROM TAX MASTER FILES FOR BENEFITS APPLICATIONS                   00001700
+//*                                                                     00001700
+//*   RUNS DAILY FOLLOWING TAX UPDATE (DTSPDAY1)                        00001700
+//*                                                                     00001700
+//*   *** JOB DTSPDAY1 MUST RUN SUCESSFULL             ZL1              00001700
+//*                                                                     00001700
+//*   READ-ONLY - NO MASTER FILE UPDATES.                               00001700
+//*                                                                     00001700
+//*   THIS JOB MAY BE RERUN.                                            00001700
+//*   IT REBUILDS THE OUTPUT FILE EACH TIME IT RUNS.                    00001700
+//**                                                                    00001700
+//STEP0100 EXEC DTSBX479
+//**                                                                    00001700
+//STEP0200 EXEC PGM=SYNCSORT,
+//             COND=(0,LT),
+//             REGION=4096K
+//SORT.SYSPRINT DD SYSOUT=*
+//SYSPRINT      DD SYSOUT=*
+//SORT.STATOUT  DD SYSOUT=*
+//SORT.SYSDBOUT DD SYSOUT=*
+//SORT.SYSUDUMP DD SYSOUT=*
+//SORT.SYSOUT   DD SYSOUT=*
+//SORTIN   DD  DSN=DOESTAX.PROD.BACKUP.W4FILE(+0),DISP=SHR
+//SORTOUT  DD  DSN=DOESTAX.CONV.UIBS.W2FILE,DISP=SHR
+//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
+//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
+//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
+//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
+//SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
+//SYSIN    DD *
+  SORT FIELDS=(1,9,CH,A)
+  INCLUDE COND=(11,2,CH,EQ,C'W2')
+//*
+//STEP0300 EXEC PGM=SYNCSORT,
+//             COND=(0,LT),
+//             REGION=4096K
+//SORT.SYSPRINT DD SYSOUT=*
+//SYSPRINT      DD SYSOUT=*
+//SORT.STATOUT  DD SYSOUT=*
+//SORT.SYSDBOUT DD SYSOUT=*
+//SORT.SYSUDUMP DD SYSOUT=*
+//SORT.SYSOUT   DD SYSOUT=*
+//SORTIN   DD  DSN=DOESTAX.PROD.BACKUP.W4FILE(+0),DISP=SHR
+//SORTOUT  DD  DSN=DOESTAX.CONV.UIBS.W4FILE,DISP=SHR
+//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
+//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
+//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
+//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
+//SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
+//SYSIN    DD *
+  SORT FIELDS=(1,9,CH,A)
+  INCLUDE COND=(11,2,CH,EQ,C'W4')
+//*
+//**                                                                    00001700
+//STEP0200 EXEC PGM=FTP,
+//             COND=(0,LT)
+//SYSPRINT DD  SYSOUT=*
+//OUTOUT   DD  SYSOUT=*
+//SYSPUT   DD  SYSOUT=*,DCB=BLKSIZE=133
+//SYSGET   DD  *,DCB=BLKSIZE=80
+//INPUT    DD  DSN=DOESTAX.&LVLNODE..PARMLIB(UIBCHGOB),DISP=SHR
+//
+//*******************************************************************