Initial commit of DUTAS source code

JCL/DTSCHGQ3.jcl

@@ -0,0 +1,68 @@
+//DTSCHGQ3 JOB (UI,4300,3400,T),QTRLY-CWC-FED-CHGRS,CLASS=P,MSGCLASS=X, 00010017
+//**       TYPRUN=SCAN,                                                 00011017
+//*        USER=#DOADTS,                                                00014021
+//         NOTIFY=ECNTSUP,REGION=0M                                     00014021
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//****                                                                  00040000
+//****                                                                  00042026
+//  SET PRGNODE='PROD'           /* CHANGE PARMS BEFORE RUNNING JOB     00050017
+//  SET LVLNODE='PROD'                                                  00060017
+//  SET UINODE='PROD'                                                   00060124
+//  SET MSTNODE='PROD'           /* QRTLY RUN FOR CWC & FED EMPLOYERS   00061032
+//  SET CHGNODE='PROD'                                                  00070017
+//  SET CHGMNBR='CHGM002'                                               00071004
+//  SET CHGMSSN='CHGM030'                                               00072014
+//  SET   QTRLY='CWC241' <<<<<<<<< CHANGE PARM <<<<<<<<<<<<<<<          00080038
+//  SET   LDEST=U@PRT65      ALSO CHANGE LINE 30                        00090000
+//  SET LVDHOLD='YES'                                                   00100027
+//  SET   LHOLD='YES'                                                   00101027
+//*****                                                                 00110000
+//PROCLIB  JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB                       00130000
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00140009
+//****                                                                  00150000
+//*  QUARTERLYCHARGE REPORTING PROCESS FOR CWC AND FED EMPLYRS          00160032
+//****                                                                  00480000
+//STEP0200 EXEC DTSUXCWC                                                00490000
+//****                                                                  00480000
+//*>>>>>>>>PARM MUST BE CHANGED BEFORE RUNNING JOB (START/END DATES)    00160032
+//****                                                                  00480000
+//STEP0100.SYSIN DD *                                                   00491032
+RPT,010124,033124,NNYYNN,000000
+//****                                                                  00504000
+//STEP0300 EXEC DTSCHGQ3                                                00510031
+//                                                                      00504000
+//ZMAIL    EXEC PGM=IEBGENER,
+//         REGION=4M
+//SYSPRINT DD SYSOUT=*
+//OUT1     OUTPUT DEST=U1003,
+//  USERDATA=('TO:TANISE.BROWN@DC.GOV',
+//            'TO:DOES_ONPOINT@DC.GOV',
+//         'CC:VERA.ORLANDO@DC.GOV',
+//         'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
+//         'CC:ZARATH.LALPUTAN@DC.GOV',
+//         'SUBJECT: QUARTERLY CWC FILE AVAILABLE FOR PROCESSING   )',
+//         'FILEDESC: LAST COMPLETED CWC QUARTERLY FILE FROM DUTAS',
+//         'FILENAME:DOESTAX.PROD.CHG.BD220.CWC.QTRYYQ.TXT'),
+//         MAILFROM=DUTAS@DC.GOV
+//SYSUT1   DD DSN=DOESTAX.PROD.CHG.BD220.CWC.&QTRLY,DISP=SHR
+//SYSUT2   DD SYSOUT=A,OUTPUT=*.OUT1
+//SYSIN    DD DUMMY
+//SYSUDUMP DD SYSOUT=(*,,DUMP)
+//*
+//FSDES    EXEC PGM=IEBGENER,
+//         REGION=4M
+//SYSPRINT DD SYSOUT=*
+//OUT1     OUTPUT DEST=U1003,
+//  USERDATA=('TO:RAJINI.JUJJAVARAPU@DC.GOV',
+//         'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
+//         'CC:ZARATH.LALPUTAN@DC.GOV',
+//         'SUBJECT: QTR FSDES FILE AVAILABLE FOR PROCESSING   )',
+//         'FILEDESC: LAST COMPLETED FSDES FILE FROM DUTAS',
+//         'FILENAME:DOESTAX.PROD.FSDES.TXT'),
+//         MAILFROM=DUTAS@DC.GOV
+//SYSUT1   DD DUMMY
+//SYSUT2   DD SYSOUT=A,OUTPUT=*.OUT1
+//SYSIN    DD DUMMY
+//SYSUDUMP DD SYSOUT=(*,,DUMP)
+//*
+//****                                                                  00520000