//**** 00000010 //* IMPORT EMPLOYER DATA FROM ESSP SYSTEM FOR PROCESSING 00001700 //* TO MAINFRAME TAX SYSTEM DAILY BATCH CYCLE 00001700 //* 00001700 //* RUNS DAILY PRIOR TO TAX UPDATE (DTSPDAY1) 00001700 //** 00001700 //DTSBXREG PROC //** 00001700 //STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS // COND=(0,LT) //SYSOUT DD SYSOUT=* //* //SORTIN DD DSN=ECNTSUP.DOESTAX.&IMPNODE..FROMESSP.X102,DISP=SHR 00005000 // DD DSN=ECNTSUP.DOESTAX.&IMPNODE..FROMESSP.X104,DISP=SHR 00005000 // DD DSN=ECNTSUP.DOESTAX.&IMPNODE..FROMESSP.X106,DISP=SHR 00005000 // DD DSN=ECNTSUP.DOESTAX.&IMPNODE..FROMESSP.X108,DISP=SHR 00005000 // DD DSN=ECNTSUP.DOESTAX.&IMPNODE..FROMESSP.X110,DISP=SHR 00005000 // DD DSN=ECNTSUP.DOESTAX.&IMPNODE..FROMESSP.X120,DISP=SHR 00005000 //* DD DSN=DOESTAX.DEVL.FROMESSP,DISP=SHR 00005000 //* //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) //SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) //SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) //SORTOUT DD DSN=DOESTAX.&IMPNODE..FROMESSP(+1), // DISP=(NEW,CATLG,DELETE), //* DISP=SHR, // UNIT=SYSDA, // SPACE=(30720,(1000,1000),RLSE), 00008000 // DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00009000 //SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX420),DISP=SHR //* //STEP0200 EXEC PGM=DTSBX420, // COND=(0,LT), // REGION=0M //SYSOUT DD SYSOUT=* //SYSABOUT DD SYSOUT=* //SYSABEND DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //* 00001700 //DTSFMSTR INCLUDE MEMBER=DTSIMSTR //DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR, // AMP=('BUFNI=5,BUFND=10') //DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, // AMP=('BUFNI=5,BUFND=10') //*** //WEBREG DD DSN=DOESTAX.&IMPNODE..FROMESSP(+1), // DISP=SHR 00006000 //* 00001700 //PENDX140 DD DUMMY //*ENDX140 DD DSN=DOESTAX.&IMPNODE..ESSP.PENDX140, //* DISP=(NEW,CATLG,DELETE), //* DISP=SHR, //* UNIT=SYSDA, //* SPACE=(8192,(100,200),RLSE), //* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) //* //PENDX144 DD DUMMY //*ENDX144 DD DSN=DOESTAX.&IMPNODE..ESSP.PENDX144, //* DISP=(NEW,CATLG,DELETE), //* DISP=SHR, //* UNIT=SYSDA, //* SPACE=(8192,(100,200),RLSE), //* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) //* //PENDX145 DD DUMMY //*ENDX145 DD DSN=DOESTAX.&IMPNODE..ESSP.PENDX145, //* DISP=(NEW,CATLG,DELETE), //* DISP=SHR, //* UNIT=SYSDA, //* SPACE=(8192,(100,200),RLSE), //* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) //* //X424BTC DD DSN=DOESTAX.&MSTNODE..ESSP.X424.BTC, 00005000 //* DISP=(NEW,CATLG,DELETE), 00006000 // DISP=SHR, 00006000 // UNIT=SYSDA, 00007000 // SPACE=(8192,(100,200),RLSE), // DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) //* 00001700 //X422BTC DD DUMMY 00005000 //*422BTC DD DSN=DOESTAX.&IMPNODE..ESSP.X422.BTC, 00005000 //* DISP=(NEW,CATLG,DELETE), 00006000 //* DISP=SHR, 00006000 //* UNIT=SYSDA, 00007000 //* SPACE=(8192,(100,200),RLSE), //* DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) //* 00001700 //X423BTC DD DUMMY 00005000 //*423BTC DD DSN=DOESTAX.&IMPNODE..ESSP.X423.BTC, 00005000 //* DISP=(NEW,CATLG,DELETE), 00006000 //* DISP=SHR, 00006000 //* UNIT=SYSDA, 00007000 //* SPACE=(8192,(100,200),RLSE), //* DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) //* 00001700 //X430BTC DD DUMMY //*430BTC DD DSN=DOESTAX.&IMPNODE..ESSP.X430.BTC, //* DISP=(NEW,CATLG,DELETE), //* DISP=SHR, //* UNIT=SYSDA, //* SPACE=(8192,(100,200),RLSE), //* DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) //* //X421BTC DD DSN=DOESTAX.&MSTNODE..ESSP.X421.BTC, //* DISP=(NEW,CATLG,DELETE), // DISP=(OLD,KEEP,KEEP), // SPACE=(8192,(100,200),RLSE), // DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) //* //WAGETEMP DD DUMMY //*AGETEMP DD DSN=DOESTAX.&IMPNODE..ESSP.WAGETMP, //* DISP=(,CATLG,DELETE), //* DISP=(OLD,KEEP,KEEP), //* UNIT=SYSDA, //* SPACE=(25600,(100,100),RLSE), //* DCB=(RECFM=FB,LRECL=128,BLKSIZE=25600) //* //DTSFW4GE DD DUMMY //*TSFW4GE DD DSN=DOESTAX.&IMPNODE..ESSP.W4FILE, //* DISP=(,CATLG,DELETE), //* DISP=(OLD,KEEP,KEEP), //* SPACE=(25600,(100,200),RLSE), //* DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=8000) //* //WAGEOUT DD DUMMY //*AGEOUT DD DSN=ECNTSUP.DOESTAX.&IMPNODE..ESSP.FTP.X144, //* DISP=(,CATLG,DELETE), //* DISP=(OLD,KEEP,KEEP), //* SPACE=(25600,(100,200),RLSE), //* DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=25600) //* //BX214422 DD DSN=DOESTAX.&IMPNODE..ESSP.BX422.BX214, // DISP=(OLD,KEEP,KEEP), // SPACE=(30000,(100,200),RLSE), // DCB=(RECFM=FB,LRECL=30,BLKSIZE=30000) //* //BX214423 DD DSN=DOESTAX.&IMPNODE..ESSP.BX423.BX214, // DISP=(OLD,KEEP,KEEP), // SPACE=(30000,(100,200),RLSE), // DCB=(RECFM=FB,LRECL=30,BLKSIZE=30000) //* //DTSFVRO1 DD DSN=DOESTAX.&IMPNODE..ESSP.BX420.RPT(+0), 00409000 //* DISP=(,CATLG,DELETE), // DISP=(OLD,KEEP,KEEP), 00410000 // SPACE=(8192,(100,200),RLSE), // DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) //* //X434RPT1 DD DUMMY //X421RPT1 DD DSN=DOESTAX.&LVLNODE..ESSP.X421PAID.TXT(+1), // DISP=(,CATLG,DELETE), //** DISP=(OLD,KEEP,KEEP), // SPACE=(30000,(100,200),RLSE), // DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340) //* //X434RPT2 DD DUMMY //X421RPT2 DD DSN=DOESTAX.&LVLNODE..ESSP.X421PEND.TXT, //** DISP=(,CATLG,DELETE), // DISP=(OLD,KEEP,KEEP) //** SPACE=(30000,(100,200),RLSE), //** DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340) //X424RPT1 DD DSN=DOESTAX.CONV.ESSP.X424PAID.TXT, //* DISP=(,CATLG,DELETE), // DISP=(OLD,KEEP,KEEP), // SPACE=(30000,(100,200),RLSE), // DCB=(RECFM=FB,LRECL=201,BLKSIZE=2010) //* //X424RPT2 DD DSN=DOESTAX.CONV.ESSP.X424PEND.TXT, //* DISP=(,CATLG,DELETE), // DISP=(OLD,KEEP,KEEP), // SPACE=(30000,(100,200),RLSE), // DCB=(RECFM=FB,LRECL=133,BLKSIZE=1330) //* //*********************************************************** //* SEND EMAIL WHEN INPUT FILES EMPTY //*********************************************************** //STEP0300 EXEC PGM=IEBGENER,COND=(0,LT),REGION=4M //SYSPRINT DD SYSOUT=* //OUT1 OUTPUT DEST=U1003, // USERDATA=('TO:JOY.DIGGS@DC.GOV', // 'CC:ANA.CORONADO@DC.GOV', // 'CC:ROSALIND.HOLBROOK@DC.GOV', // 'CC:TANYA.BARNES@DC.GOV', // 'CC:ARAVIND.VITTA@DC.GOV', // 'CC:TIMOTHY.PERLOW@DC.GOV', // 'CC:SRUJANI.CHANDRAGIRI@DC.GOV', // 'CC:ZARATH.LALPUTAN@DC.GOV', // 'CC:HONEYMAE.DEHN@DC.GOV', // 'SUBJECT: DAILY ESSP REGISTRATIONS TO DUTAS.....ZL1', // 'FILEDESC: ESSP DUTAS DAILY REGISTRATIONS ', // 'FILENAME:ESSP_DUTAS_REGISTR.CSV'), // MAILFROM=DUTAS@DC.GOV //SYSUT1 DD DSN=DOESTAX.&LVLNODE..ESSP.X421PAID.TXT(+1),DISP=SHR //SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 //SYSIN DD DUMMY //* //STEP0400 EXEC PGM=IEBGENER,COND=(0,LT),REGION=4M //SYSPRINT DD SYSOUT=* //OUT1 OUTPUT DEST=U1003, // USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV', // 'CC:ROSALIND.HOLBROOK@DC.GOV', // 'CC:SRUJANI.CHANDRAGIRI@DC.GOV', // 'CC:JOY.DIGGS@DC.GOV', //* 'CC:MACARENA.CANTELAS@DC.GOV', // 'SUBJECT: ESSP REGISTRATIONS ADDRESSES....ZL1', // 'FILEDESC: DAILY REGISTRATIONS ', // 'FILENAME:ESSP_DUTAS_REGADDR.TXT'), // MAILFROM=DUTAS@DC.GOV //SYSUT1 DD DSN=DOESTAX.&LVLNODE..ESSP.X424PAID.TXT,DISP=SHR //SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 //SYSIN DD DUMMY //* //************ END OF REGISTRATION PROC 01/03/15 ZL1