DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSBX465.jcl

@@ -0,0 +1,100 @@
+//DTSBX465 JOB (HS,0000,0000,P),DOESOTR.EXTRACT2,CLASS=P,MSGCLASS=X,
+//         NOTIFY=ECNTSUP,
+//         USER=#DOADTS,
+//         REGION=4M
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//****
+//    SET  UINODE='PROD'
+//    SET MSTNODE='PROD'
+//    SET LVLNODE='PROD'
+//    SET PRGNODE='PROD'
+//    SET OUTNODE='PROD'
+//****
+//*  PRODUCE THE QUARTERLY WAGE EXTRACT FOR THE OFFICE OF TAX &
+//*  REVENUE  CONTACT: CAMILLE WIGGLESWORTH 442-7033 FAX: 442-7076
+//*  REVENUE  CONTACT: LOUISE SIMMONS       442-7035 FAX: 442-7076
+//*
+//*  EXECUTE 5 BUSINESS DAYS AFTER THE QUARTER ENDS (ON REQUEST)
+//*  RECORDS ARE SELECTED THAT WERE UPDATED DURING THE QUARTER
+//****
+//** FTP FILES TO OTR SERVER
+//****
+//PROCLIB  JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//****
+//STEP0025 EXEC PGM=IEFBR14,REGION=1024K
+//BUSINES DD  DSN=DOESTAX.&OUTNODE..UI.OTR.BUS,
+//            DISP=(OLD,DELETE,DELETE)
+//**
+//STEP0050 EXEC PGM=IEFBR14,REGION=1024K,COND=(0,LT)
+//GOVT    DD  DSN=DOESTAX.&OUTNODE..UI.OTR.DCG,
+//            DISP=(OLD,DELETE,DELETE)
+//**
+//STEP0075 EXEC PGM=IEFBR14,REGION=1024K,COND=(0,LT)
+//FED     DD  DSN=DOESTAX.&OUTNODE..UI.OTR.FED,
+//            DISP=(OLD,DELETE,DELETE)
+//**
+//STEP0100 EXEC PGM=DTSBX465
+//PRNTR    DD  SYSOUT=(*)
+//SYSOUT   DD  SYSOUT=(*)
+//SYSUDUMP DD  SYSOUT=(*)
+//SYSPRINT DD  SYSOUT=(*)
+//SYSDBOUT DD  SYSOUT=(*)
+//SYSCOUNT DD  SYSOUT=(*)
+//*
+//DOCSMSTR INCLUDE MEMBER=DOCIMSTR
+//*
+//*WG960F1 DD  DSN=UI.PROD.DOCS.EWG960F1,DISP=SHR
+//*
+//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
+//DTSFNAME DD  DSN=DOESTAX.DEVL.VSAM.WAGENAME,DISP=SHR,
+//             AMP=('BUFNI=5,BUFND=10')
+//*
+//BUSINES DD  DSN=DOESTAX.&OUTNODE..UI.OTR.BUS,
+//            SPACE=(CYL,(90,5),RLSE),
+//            DISP=(NEW,CATLG,DELETE),
+//            DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=8000)
+//*
+//GOVT    DD  DSN=DOESTAX.&OUTNODE..UI.OTR.DCG,
+//            SPACE=(CYL,(5,1),RLSE),
+//            DISP=(NEW,CATLG,DELETE),
+//            DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=8000)
+//*
+//FED     DD  DSN=DOESTAX.&OUTNODE..UI.OTR.FED,
+//            SPACE=(CYL,(1,1),RLSE),
+//            DISP=(NEW,CATLG,DELETE),
+//            DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=8000)
+//*
+//****
+//** CHANGE QUARTER DATES ON THE PARMCARD BEFORE RUNNING JOB )
+//****
+//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSBX465),
+//             DISP=SHR
+//**
+//*
+//STEP0400 EXEC PGM=FTP
+//SYSFTPD  DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMGAW9)
+//SYSIN    DD *
+FWFRIENDLY TRUE
+//SYSPRINT DD SYSOUT=*,HOLD=YES
+//OUTPUT   DD SYSOUT=*
+//INPUT    DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFX465),DISP=SHR
+/*
+//EMAIL    EXEC PGM=IEBGENER,
+//         REGION=4M
+//SYSPRINT DD SYSOUT=*
+//OUT1     OUTPUT DEST=U1003,
+//  USERDATA=('TO:KALYAN.JILLUMUDI@DC.GOV',
+//            'TO:ZARATH.LALPUTAN@DC.GOV',
+//            'TO:RAJINI.JUJJAVARAPU@DC.GOV',
+//            'TO:KELLY.DINKINS@DC.GOV',
+//         'SUBJECT: DOES QUARERLY WAGES UPLOADED  )',
+//         'FILEDESC: DOES WAGES                          ',
+//         'FILENAME:DOESWAGE.TXT'),
+//         MAILFROM=DUTAS@DC.GOV
+//SYSUT1   DD DSN=DOESTAX.CONV.OTR.WAGES.TXT,DISP=SHR
+//SYSUT2   DD SYSOUT=A,OUTPUT=*.OUT1
+//SYSIN    DD DUMMY
+//SYSUDUMP DD SYSOUT=(*,,DUMP)
+//*
+//**