148 lines
12 KiB
Plaintext
148 lines
12 KiB
Plaintext
//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..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 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
|
|
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX552),DISP=SHR 00213007
|
|
//* 00214007
|
|
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', 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.CONV.USER.PARMLIB(DTSSX552),DISP=SHR 00350009
|
|
//* 00360009
|
|
//* 00370041
|
|
//STEP0150 EXEC PGM=SORT,PARM='VLTEST=0', 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.CONV.USER.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
|