//DTSBX553 JOB (UI,4300,3400,P),'UIXMATCH ',CLASS=A,MSGLEVEL=(1,1), 00010001 // USER=#DOADTS, 00011008 // MSGCLASS=X,REGION=2048K,NOTIFY=ECNTZL1 00020000 //** 00050300 //** 1/7/16 VERIFY AMENDED X140 WAGES MARKED FOR AMEND REPORTS 00051008 //** HAVE AN AT LEAST 1 X144(ADD WAGES) OR (X147(DELETE WAGE) RECORD 00053008 //** ZL1 00054000 //** 00055000 // SET PRGNODE='DEVL.BEN' 00056000 // SET LVLNODE='CONV' 00056100 // SET IMPNODE='CONV' 00056200 // SET UINODE='PROD' 00057000 //** 00057100 //PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB 00058000 //JOBLIB DD DSN=DOESTAX.&PRGNODE..LOADLIB,DISP=SHR 00060000 // DD DSN=DOESTAX.DEVL.BATCH.LOADLIB,DISP=SHR 00060100 // DD DSN=UI.&UINODE..DOCS.LOADLIB,DISP=SHR 00061000 // 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.ESSPAMEN.DAYX140(+0),DISP=SHR 00130008 //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=&&DAYX140, 00180001 // DISP=(NEW,PASS,DELETE), 00190001 // UNIT=SYSDA, 00210000 // SPACE=(30720,(2000,2000),RLSE), 00211000 // DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00212000 //SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX553),DISP=SHR 00213003 //* 00214000 //* 00215001 //STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS 00216002 // COND=(0,LT) 00217002 //SYSOUT DD SYSOUT=* 00218002 //* 00219002 //SORTIN DD DSN=DOESTAX.CONV.ESSPAMEN.DAYX144(+0),DISP=SHR 00220008 //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=&&DAYX144, 00280001 // DISP=(NEW,PASS,DELETE), 00300001 // UNIT=SYSDA, 00320000 // SPACE=(30720,(2000,2000),RLSE), 00330000 // DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00340000 //SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX553),DISP=SHR 00350003 //* 00360000 //* 00370005 //STEP0300 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS 00380005 // COND=(0,LT) 00390005 //SYSOUT DD SYSOUT=* 00400005 //* 00410005 //SORTIN DD DSN=DOESTAX.CONV.ESSPAMEN.DAYX147(+0),DISP=SHR 00420009 //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00430005 //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00440005 //SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00450005 //SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00460005 //SORTOUT DD DSN=&&DAYX147, 00470005 // DISP=(NEW,PASS,DELETE), 00480005 // UNIT=SYSDA, 00490005 // SPACE=(30720,(2000,2000),RLSE), 00500005 // DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00510005 //SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX553),DISP=SHR 00520005 //* 00530005 //************************************************************** 01210000 //* CREATE REPORT FROM DC SORTED ECTRACT AND UI MASTER FILES FOR 01220000 //* ANY SSN THAT HAVE A CLAIM PAID WITHIN THE DC PAY PERIOD 01221000 //***************************************************************** 01230000 //STP0400 EXEC PGM=DTSBX553 01240005 //SYSPRINT DD SYSOUT=* 01250000 //SYSDBOUT DD SYSOUT=* 01260000 //SYSCOUNT DD DUMMY 01270000 //SYSUDUMP DD DUMMY 01280000 //DTSFX147 DD DSN=&&DAYX147,DISP=(OLD,DELETE,DELETE) 01291005 //DTSFX144 DD DSN=&&DAYX144,DISP=(OLD,DELETE,DELETE) 01291102 //DTSFX140 DD DSN=&&DAYX140,DISP=(OLD,DELETE,DELETE) 01292002 //DTSFD147 DD DSN=DOESTAX.CONV.AMENDOES.DAYX144,DISP=SHR 01300008 //DTSFO140 DD DSN=DOESTAX.CONV.AMENDOES.DAYX140,DISP=SHR 01301007 //RPT552R1 DD DSN=DOESTAX.DEVL.RPT552R1,DISP=SHR 01307006 //ESSPMAIL EXEC PGM=IEBGENER,COND=(0,LT), 01307106 // REGION=4M 01307206 //SYSPRINT DD SYSOUT=* 01307306 //OUT1 OUTPUT DEST=U1003, 01307406 // USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV', 01307506 // 'SUBJECT: ESSP AMENDED ERROR REPORT', 01307606 // 'FILENAME:ESSP_X140S.TXT'), 01307710 // MAILFROM=DUTAS@DC.GOV 01307810 //SYSUT1 DD DSN=DOESTAX.DEVL.RPT552R1,DISP=SHR 01307906 //SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 01308006 //SYSIN DD DUMMY 01308106 //SYSUDUMP DD SYSOUT=(*,,DUMP) 01308206 //SYSOUT DD SYSOUT=* 01309000 //* 01360000 //**********************************************************************01370000