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/DTSBXPFL.jcl
+++ b/JCL/DTSBXPFL.jcl
@ -0,0 +1,90 @@
+//DTSBXPFL JOB (UI,4300,3400,T),RUNRQ460,CLASS=S,MSGCLASS=X,
+//         USER=#DOADTS,
+//         NOTIFY=ECNTZL1,
+//****     TYPRUN=SCAN,
+//****     TYPRUN=HOLD,
+//         REGION=0M
+//**
+// SET LVLNODE='PROD'
+// SET MSTNODE='PROD'
+//**
+//**
+//PROCLIB  JCLLIB ORDER=DOESTAX.PROD.PROCLIB
+//*
+//**********SEE NOTE BELOW TO TRANSFER FILE TO UAT SERVER************
+//*
+//*    CITYWIDE CLEAN HANDS EXTRACT -TESTING ONLY TO OCFO UAT SERVER*
+//**** RUN JOB DTSFT460 FROM OS19 TO TRANSFER FILE.....01/23/20 ZL1 *
+//*
+//* CHANGED PROGRAM TO ZXPFL, OLD PROGRAM BXPFL HAD ISSIES  8/31/23 ZL1
+//*
+//*******************************************************************
+//*
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//**
+//*                       NO BACKUP NEEDED BEFORE THIS REPORT
+//**
+//STEP0010 EXEC PGM=SORT,PARM='VLTEST=0'          SORT REPORT RECORDS
+//SYSOUT DD SYSOUT=(*)
+//SYSPRINT DD SYSOUT=(*)
+//SORTIN  DD  DSN=ECNTSUP.DOESTAX.PROD.FTP.BE459,DISP=SHR
+//        DD  DSN=ECNTSUP.DOESTAX.CONV.FTP.PFLOTR,DISP=SHR
+//SORTOUT DD  DSN=ECNTSUP.DOESTAX.CONV.TAXPFL.BE459,DISP=SHR
+//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
+//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
+//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
+//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
+//SYSIN DD *
+  SORT FIELDS=(24,9,CH,A)
+  OMIT COND(24,9,CH,EQ,C'060726487')
+//**
+//STEP0100 EXEC PGM=DTSZXPFL,
+//             COND=(0,LT),
+//             REGION=4096K
+//SYSOUT   DD   SYSOUT=*
+//SYSABOUT DD   SYSOUT=*
+//SYSABEND DD   SYSOUT=*
+//CAIMRPTS DD   SYSOUT=*
+//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
+//DTSFREF  DD   DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
+//             AMP=('BUFNI=5,BUFND=10')
+//TAXFILE1 DD  DSN=ECNTSUP.DOESTAX.CONV.TAXPFL.BE459,DISP=SHR
+//*
+//*FLFILE1 DD  DSN=ECNTSUP.DOESTAX.CONV.FTP.PFLOTR,DISP=SHR
+//PFLFILE1 DD  DUMMY
+//*
+//TAXFILE2 DD  DSN=ECNTSUP.DOESTAX.PROD.CMB.BE459,DISP=SHR
+//*
+//*******************************************************************
+//STEP0200 EXEC PGM=SORT
+//SORTIN  DD  DSN=ECNTSUP.DOESTAX.PROD.CMB.BE459,DISP=SHR
+//SORTOUT DD  DSN=ECNTSUP.DOESTAX.PROD.FTP.BE459,DISP=SHR
+//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
+//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
+//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
+//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
+//SYSIN    DD *
+  SORT FIELDS=(1,386,CH,A)
+  OMIT COND(24,9,CH,EQ,C'060726487')
+//*
+//*******************************************************************
+//STEP0300 EXEC PGM=FTP,REGION=2M
+//*YSFTPD  DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMFTS9)
+//SYSFTPD  DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMGAW9)
+//SYSIN    DD *
+FWFRIENDLY TRUE
+//SYSPRINT DD SYSOUT=*,HOLD=YES
+//INPUT    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFX459),DISP=SHR
+//*
+//*******************************************************************
+//STEP0400 EXEC PGM=IDCAMS
+//SYSPRINT DD SYSOUT=*
+//INDD01   DD DSN=ECNTSUP.DOESTAX.PROD.FTP.BE459,DISP=SHR
+//OUTDD01  DD DSN=DOESTAX.PROD.CLENHAND.BE459(+1),
+//             DISP=(,CATLG,DELETE),
+//             UNIT=SYSDA,
+//             SPACE=(CYL,(20,10),RLSE),
+//             DCB=(RECFM=FB,LRECL=386,BLKSIZE=27792)
+//SYSIN    DD *
+  REPRO INFILE(INDD01) OUTFILE(OUTDD01)
+/*