giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DUTAS re-platformed to Raincode - Initial Source Code

Browse Source
This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

65
JCL/DTSCHGXM.jcl Normal file
View File

@ -0,0 +1,65 @@
//DTSCHGXM JOB (UI,4300,3400,T),QTRLY-CWC-FED-CHGRS,CLASS=P,MSGCLASS=X, 00010017
//** TYPRUN=SCAN, 00011017
//* USER=#DOADTS,
// NOTIFY=ECNTSUP,REGION=0M 00014021
//**** 00042026
// SET PRGNODE='PROD' 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' /* AND DC GOVT VIEW DIRECT REPORTS 00071004
// SET CHGMSSN='CHGM030' 00072014
// SET QTRLY='CFOXM151' 00080038
// SET LDEST='LOCAL' 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 AND DC GOVT 00160032
//* VIEW DIRECT REPORTS 00160032
//**** 00480000
//STEP0200 EXEC DTSUXCWC 00490000
//**** 00480000
//*>>>>>>>>PARM MUST BE CHANGED BEFORE RUNNING JOB (START/END DATES) 00160032
//**** 00480000
//STEP0100.SYSIN DD * 00491032
RPT, , ,NNYYYY,000000
//**** 00504000
//STEP0300 EXEC DTSCHGXM 00510031
// 00520000
//*********************************************************************
//STEP0400 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//CHGFEDCW DD DSN=DOESTAX.PROD.CHG.BD220.CWC.TEMCWC,
// DISP=(OLD,DELETE,DELETE)
//*********************************************************************
//*OUTPUT REPT DEST=LOCAL,FORMS=REPT
//***********************************************************
//EMAIL EXEC PGM=IEBGENER,
// REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:RAGINI.JUJJAVARAPU@DC.GOV',
// 'CC:ZARATH.LALPUTAN@DC.GOV',
// 'CC:NANCY.HUDAK@DC.GOV',
// 'SUBJECT: EOP FILE READY )',
// 'FILEDESC: CHARGES FOR EOP OFFICE ',
//* 'FILENAME:DOESTAX.DEVL.IRSFUTA.QTRLY')
// 'FILENAME:EOP_QTR_CHARGES.TXT')
//SYSUT1 DD DSN=DOESTAX.DEVL.EOPQTR.TXT,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//*
//****************************************************************
//DTSFTCQ4 EXEC PGM=FTP,PARM='(EXIT TIMEOUT 120)',COND=(0,LT)
//*
//SYSPRINT DD SYSOUT=(*)
//SYSMDUMP DD SYSOUT=(*)
//OUTPUT DD SYSOUT=(*)
//INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSFTCQ4),DISP=SHR
//*
**************************** BOTTOM OF DATA **********************
//*********************************************************************