69 lines
3.8 KiB
Plaintext
69 lines
3.8 KiB
Plaintext
//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
|