//DTSBX552 JOB (UI,4300,3400,P),'UIXMATCH ',CLASS=A,MSGLEVEL=(1,1), 00010001 // MSGCLASS=X,USER=#DOADTS, 00020042 // REGION=2048K,NOTIFY=ECNTZL1 00030042 //** 00050300 //** 1/7/16 VERIFY AMENDED X147 WAGES MARKED FOR DELETION DO NOT 00051002 //** HAVE AN ACTIVE CLAIM. IF ACTIVE CLAIM FOUND DO NOT DELETE RECORD 00053002 //** ZL1 00054003 //** 00055000 // SET PRGNODE='DEVL.BEN' 00056000 // SET LVLNODE='CONV' 00056108 // SET IMPNODE='CONV' 00056208 // SET UINODE='PROD' 00057000 //** 00057100 //PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB 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, SORT TRANSACTIONS 00090007 // COND=(0,LT) 00100007 //SYSOUT DD SYSOUT=* 00110007 //* 00120007 //SORTIN DD DSN=DOESTAX.&IMPNODE..ESSPAMEN.DAYX147(+0),DISP=SHR 00131022 //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00140007 //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00150007 //SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00160007 //SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00170007 //SORTOUT DD DSN=&&SRTX147, 00180021 // DISP=(NEW,PASS,DELETE), 00190021 // UNIT=SYSDA, 00210007 //* SPACE=(30720,(2000,4000),RLSE), 00211048 // SPACE=(CYL,(20,50),RLSE), 00211149 // DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00212007 //SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX552),DISP=SHR 00213007 //* 00214007 //STEP0200 EXEC PGM=SORT, SORT TRANSACTIONS 00216009 // COND=(0,LT) 00217009 //SYSOUT DD SYSOUT=* 00218009 //* 00219009 //SORTIN DD DSN=DOESTAX.&IMPNODE..ESSPAMEN.DAYX144(+0),DISP=SHR 00230022 //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00240009 //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00250009 //SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00260009 //SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00270009 //SORTOUT DD DSN=&&SRTX144, 00280021 // DISP=(NEW,PASS,DELETE), 00300021 // UNIT=SYSDA, 00320021 //* SPACE=(30720,(2000,4000),RLSE), 00330048 // SPACE=(CYL,(50,50),RLSE), 00331048 // DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00340021 //SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX552),DISP=SHR 00350009 //* 00360009 //* 00370041 //STEP0150 EXEC PGM=SORT, SORT TRANSACTIONS 00380041 // COND=(0,LT) 00390041 //SYSOUT DD SYSOUT=* 00400041 //* 00410041 //SORTIN DD DSN=DOESTAX.&IMPNODE..ESSPAMEN.DAYX140(+0),DISP=SHR 00420041 //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00430041 //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00440041 //SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00450041 //SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00460041 //SORTOUT DD DSN=&&SRTX140, 00470041 // DISP=(NEW,PASS,DELETE), 00480041 // UNIT=SYSDA, 00490041 // SPACE=(30720,(2000,4000),RLSE), 00500041 // DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00510041 //SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX552),DISP=SHR 00520041 //* 00530041 //************************************************************** 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 //STP0300 EXEC PGM=DTSBX551 01240041 //SYSPRINT DD SYSOUT=* 01250000 //SYSDBOUT DD SYSOUT=* 01260000 //SYSCOUNT DD DUMMY 01270000 //SYSUDUMP DD DUMMY 01280000 //ESP960F1 DD DSN=UI.PROD.DOCS.ESP960F1,DISP=SHR, 01280101 // AMP='BUFND=5,BUFNI=5,BUFSP=184320' 01280201 //EOP960F1 DD DSN=UI.PROD.DOCS.EOP960F1,DISP=SHR, 01280301 // AMP='BUFND=5,BUFNI=5,BUFSP=184320' 01280401 //EWG960F1 DD DSN=UI.PROD.DOCS.EWG960F1,DISP=SHR, 01280542 // AMP='BUFND=5,BUFNI=5,BUFSP=184320' 01280641 //DTSFX140 DD DSN=&&SRTX140,DISP=(OLD,DELETE,DELETE) 01290241 //DTSFX144 DD DSN=&&SRTX144,DISP=(OLD,DELETE,DELETE) 01290341 //DTSFX147 DD DSN=&&SRTX147,DISP=(OLD,DELETE,DELETE) 01290441 //DTSFB147 DD DSN=DOESTAX.CONV.AMENDOES.SAVEX147(+1), 01301023 // DISP=(NEW,CATLG,DELETE), 01302023 // UNIT=SYSDA, 01303023 //* SPACE=(30720,(2000,4000),RLSE), 01304050 // SPACE=(CYL,(20,50),RLSE), 01304150 // DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 01305023 //DTSFA147 DD DSN=DOESTAX.CONV.AMENDOES.DELTX147(+1), 01306039 // DISP=(NEW,CATLG,DELETE), 01306139 // UNIT=SYSDA, 01306239 //* SPACE=(30720,(1000,1000),RLSE), 01306348 // SPACE=(CYL,(20,50),RLSE), 01306450 // DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 01306539 //RPT551R1 DD DSN=DOESTAX.CONV.ESSP.RPT552,DISP=SHR 01307042 //SYSOUT DD SYSOUT=* 01308000 // 01360053 //ESSPMAIL EXEC PGM=IEBGENER,COND=(0,LT), 01361019 // REGION=4M 01362019 //SYSPRINT DD SYSOUT=* 01363019 //OUT1 OUTPUT DEST=U1003, 01364019 // USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV', 01365019 // 'TO:CASS.INNOCENT@DC.GOV', 01366044 // 'TO:HELEN.FOSTER@DC.GOV', 01366143 // 'TO:ANDRE.CHISHOLM@DC.GOV', 01366244 // 'TO:GERALD.SMART@DC.GOV', 01367046 // 'TO:TIMOTHY.PERLOW@DC.GOV', 01367146 //** 'TO:DAVON.MALLARD@DC.GOV', 01367252 // 'CC:SRUJANI.CHANDRAGIRI@DC.GOV', 01368051 // 'SUBJECT: AMENDED WAGES DELETION REPORT', 01369233 // 'FILENAME:DOCS_WAGE_DELETION_RPT.TXT'), 01369445 // MAILFROM=DUTAS@DC.GOV 01369545 //SYSUT1 DD DSN=DOESTAX.CONV.ESSP.RPT552,DISP=SHR 01369619 //SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 01369719 //SYSIN DD DUMMY 01369819 //SYSUDUMP DD SYSOUT=(*,,DUMP) 01369919 //**********************************************************************01370000 //* 01371028 //STEP0400 EXEC PGM=IDCAMS, COPY X147 REPORT TO GDG 01372033 // COND=(4,LT) 01373033 //SYSPRINT DD SYSOUT=* 01374033 //INDD01 DD DSN=DOESTAX.CONV.ESSP.RPT552,DISP=SHR 01375033 //OUTDD01 DD DSN=DOESTAX.CONV.ESSP.RPT552.TXT(+1), 01379133 // DISP=(,CATLG,DELETE), 01379233 // SPACE=(25600,(100,200),RLSE), 01379333 // DCB=(SYS3.MODEL,RECFM=FB,LRECL=133,BLKSIZE=1330) 01379433 //SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR 01379533 // 01379633 //ESSZMAIL EXEC PGM=IEBGENER,COND=(0,LT), 01390031 // REGION=4M 01400026 //SYSPRINT DD SYSOUT=* 01410026 //OUT1 OUTPUT DEST=U1003, 01420026 // USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV', 01430026 // 'SUBJECT: ESSP X147 RECS WITH NO X144 -STAFF VERIFY', 01440032 // 'FILENAME:ESSP_WAGES_X147.TXT') 01450026 //SYSUT1 DD DSN=DOESTAX.CONV.AMENDOES.SAVEX147(+1),DISP=SHR 01460030 //SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 01470026 //SYSIN DD DUMMY 01480026 //SYSUDUMP DD SYSOUT=(*,,DUMP) 01490026 //**********************************************************************01500026