98 lines
7.7 KiB
Plaintext
98 lines
7.7 KiB
Plaintext
//DTSBX629 JOB (UI,4300,3400,P),'TDEC-ESSP',CLASS=A,MSGLEVEL=(1,1), 00010012
|
|
// MSGCLASS=X,REGION=2048K,USER=#DOADTS,NOTIFY=ECNTZL1 00020012
|
|
//** 00050300
|
|
//** CROSS CHECK TDEC DAILY WAGE FILE WITH ESSP X140 FILE FOR MISSING 00051001
|
|
//** TDEC REPORTS. 07/12/18 ZL1 00053010
|
|
//** 00054010
|
|
//** 00055000
|
|
// SET PRGNODE='DEVL' 00056000
|
|
// SET LVLNODE='CONV' 00056100
|
|
// SET MSTNODE='PROD' 00056210
|
|
// SET IMPNODE='CONV' 00056300
|
|
// SET UINODE='PROD' 00057000
|
|
//** 00057100
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB 00058000
|
|
//JOBLIB DD DSN=DOESTAX.PROD.BATCH.USER.LOADLIB,DISP=SHR 00060012
|
|
// DD DSN=DOESTAX.PROD.BATCH.LOADLIB,DISP=SHR 00060112
|
|
// DD DSN=DOESTAX.DEVL.BATCH.LOADLIB,DISP=SHR 00060212
|
|
//* DD DSN=UI.&UINODE..DOCS.LOADLIB,DISP=SHR 00061019
|
|
// DD DSN=SYS1.SORTLIB,DISP=SHR 00070000
|
|
//* 00080000
|
|
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS 00090000
|
|
// COND=(0,LT) 00100000
|
|
//SYSOUT DD SYSOUT=* 00110000
|
|
//* 00120000
|
|
//SORTIN DD DSN=DOESTAX.CONV.TDEC.ESSP.SDWAGE.WAGES(+0),DISP=SHR 00130010
|
|
// DD DSN=DOESTAX.CONV.TDEC.ESSP.MISSING.WAGES,DISP=SHR 00131013
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00140000
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00150000
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00160000
|
|
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00170000
|
|
//SORTOUT DD DSN=&&TDECANN, 00180000
|
|
// DISP=(NEW,PASS,DELETE), 00190000
|
|
//* DISP=SHR 00200000
|
|
// UNIT=SYSDA, 00210000
|
|
// SPACE=(30720,(2000,2000),RLSE), 00211000
|
|
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) 00212002
|
|
//*SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX629),DISP=SHR 00213002
|
|
//SYSIN DD * 00213102
|
|
SORT FIELDS=(62,6,CH,A,86,5,CH,A) 00213202
|
|
SUM FIELDS=NONE 00213302
|
|
END 00213402
|
|
//* 00213502
|
|
//* 00214000
|
|
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS 00216000
|
|
// COND=(0,LT) 00217000
|
|
//SYSOUT DD SYSOUT=* 00218000
|
|
//* 00219000
|
|
//SORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140,DISP=SHR 00230010
|
|
//*ORTIN DD DSN=ECNTSUP.DOESTAX.CONV.ESSPX140.DD071018,DISP=SHR 00231010
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00240000
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00250000
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00260000
|
|
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00270000
|
|
//SORTOUT DD DSN=&&TDECMISS, 00280000
|
|
// DISP=(NEW,PASS,DELETE), 00300000
|
|
//* DISP=SHR 00310000
|
|
// UNIT=SYSDA, 00320000
|
|
// SPACE=(30720,(2000,2000),RLSE), 00330000
|
|
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00340000
|
|
//*SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSBX629),DISP=SHR
|
|
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBX629),DISP=SHR 00350001
|
|
//* 00360000
|
|
//************************************************************** 01210000
|
|
//* CREATE REPORT FOR STAFF TO REVIEW TDEC MISSING REPORTS. MISSING 01220012
|
|
//* WAGES MAY BE REJECTED BY ESSP. 01221012
|
|
//***************************************************************** 01230000
|
|
//STP0300 EXEC PGM=DTSBX629 01240001
|
|
//SYSPRINT DD SYSOUT=* 01250000
|
|
//SYSDBOUT DD SYSOUT=* 01260000
|
|
//SYSCOUNT DD DUMMY 01270000
|
|
//SYSUDUMP DD DUMMY 01280000
|
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 01290014
|
|
//DTSFX140 DD DSN=&&TDECMISS,DISP=(OLD,PASS,DELETE) 01290202
|
|
//DTSFI144 DD DSN=&&TDECANN,DISP=(OLD,PASS,DELETE) 01291013
|
|
//DTSFO144 DD DSN=DOESTAX.CONV.TDEC.ESSP.MISSING.WAGES,DISP=SHR 01292013
|
|
//RPT627R1 DD DSN=DOESTAX.CONV.ESSP.RPT629.TXT,DISP=SHR 01307006
|
|
//SYSOUT DD SYSOUT=* 01308000
|
|
//* 01360006
|
|
//ESSPMAIL EXEC PGM=IEBGENER,COND=(0,LT), 01361000
|
|
// REGION=4M 01362000
|
|
//SYSPRINT DD SYSOUT=* 01363000
|
|
//OUT1 OUTPUT DEST=U1003, 01364000
|
|
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV', 01365000
|
|
// 'CC:MARGARET.HERNANDEZ@DC.GOV', 01367017
|
|
// 'CC:RAJINI.JUJJAVARAPU@DC.GOV', 01368010
|
|
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV', 01368118
|
|
// 'CC:TIM.PERLOW@DC.GOV', 01369016
|
|
// 'CC:ESAYAS.LEMMA@DC.GOV', 01369110
|
|
// 'SUBJECT: TDEC-ESSP REPORTS SENT/RECEIVED', 01369212
|
|
// 'FILENAME:ESSP_TDEC_WAGES.TXT', 01369411
|
|
// 'FILEDESC: TDEC REPORTS RECEIVED FROM ESSP '), 01369515
|
|
// MAILFROM=DUTAS@DC.GOV 01369615
|
|
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.RPT629.TXT,DISP=SHR 01369706
|
|
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 01369800
|
|
//SYSIN DD DUMMY 01369900
|
|
//SYSUDUMP DD SYSOUT=(*,,DUMP) 01370000
|
|
//**********************************************************************01380000
|