From UAT Z's file modified
This commit is contained in:
159
Procs/DTSBXPAZ
Normal file
159
Procs/DTSBXPAZ
Normal file
@ -0,0 +1,159 @@
|
||||
//**** 00000010
|
||||
//* PROCESS TDEC REPORT PAYMENTS 00001700
|
||||
//* 00001700
|
||||
//* RUNS DAILY TAX UPDATE (DTSPDAY1) 00001700
|
||||
//** 00001700
|
||||
//DTSBXPAY PROC
|
||||
//** 00001700
|
||||
//STEP0100 EXEC PGM=SORT,
|
||||
// COND=(0,LT)
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//*
|
||||
//SORTIN DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT,DISP=SHR
|
||||
//*
|
||||
//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..TDEC.DOES.RPTPAY(+1),
|
||||
//* DISP=(NEW,CATLG,DELETE),
|
||||
// DISP=SHR
|
||||
//* UNIT=SYSDA,
|
||||
//* SPACE=(30720,(1000,1000),RLSE), 00008000
|
||||
//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) 00009000
|
||||
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX420),DISP=SHR
|
||||
//*
|
||||
//STEP0200 EXEC PGM=DTSBX437,
|
||||
// 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')
|
||||
//***
|
||||
//DTSFX145 DD DSN=DOESTAX.&IMPNODE..TDEC.DOES.RPTPAY(+1),
|
||||
// DISP=SHR 00006000
|
||||
//* 00001700
|
||||
//DTSPX145 DD DSN=&&PENDX140, 00005000
|
||||
// DISP=(NEW,PASS,DELETE), 00006000
|
||||
// UNIT=SYSDA, 00007000
|
||||
// SPACE=(8192,(1000,200),RLSE),
|
||||
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
//* 00001700
|
||||
//DTSFBTCO DD DSN=DOESTAX.&IMPNODE..ESSP.X437.BTC, 00005000
|
||||
//* DISP=(NEW,CATLG,DELETE), 00006000
|
||||
// DISP=SHR, 00006000
|
||||
//* DISP=MOD, 00006000
|
||||
// UNIT=SYSDA, 00007000
|
||||
// SPACE=(8192,(100,200),RLSE),
|
||||
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
|
||||
//*
|
||||
//X437RPT1 DD DSN=DOESTAX.&LVLNODE..ESSP.X437PAID.TXT(+1),
|
||||
// DISP=(,CATLG,DELETE),
|
||||
//* DISP=(OLD,KEEP,KEEP),
|
||||
// SPACE=(30000,(100,200),RLSE),
|
||||
// DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340)
|
||||
//*
|
||||
//X437RPT2 DD DSN=DOESTAX.&LVLNODE..ESSP.X437PEND.TXT(+1),
|
||||
// DISP=(,CATLG,DELETE),
|
||||
//* DISP=(OLD,KEEP,KEEP),
|
||||
// SPACE=(30000,(100,200),RLSE),
|
||||
// DCB=(RECFM=FB,LRECL=133,BLKSIZE=1330)
|
||||
//*
|
||||
//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..ESSP.BX420.RPT(+1), 00409000
|
||||
// DISP=(,CATLG,DELETE),
|
||||
//* DISP=(OLD,KEEP,KEEP), 00410000
|
||||
// SPACE=(8192,(100,200),RLSE),
|
||||
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
|
||||
//***********************************************************
|
||||
//* SEND EMAIL WHEN REPORT PAYMENTS PROCESSED
|
||||
//***********************************************************
|
||||
//*STEP0300 EXEC PGM=IEBGENER,COND=(3,LT),REGION=4M
|
||||
//*SYSPRINT DD SYSOUT=*
|
||||
//*OUT1 OUTPUT DEST=U1003,
|
||||
//* USERDATA=('TO:SRUJANI.CHANDRAGIRI@DC.GOV',
|
||||
//* 'CC:RAJINI.JUJJAVARAPU@DC.GOV',
|
||||
//* 'CC:MARGARET.HERNANDEZ@DC.GOV',
|
||||
//* 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
|
||||
//* 'CC:ZARATH.LALPUTAN@DC.GOV',
|
||||
//* 'CC:JOY.DIGGS@DC.GOV',
|
||||
//* 'CC:YINKA.OLAREWAJU-ALO@DC.GOV',
|
||||
//* 'SUBJECT: TDEC DAILY REPORT PAYMENTS ......ZL1',
|
||||
//* 'FILEDESC: DOES TDEC REPORT PAYMENTS ',
|
||||
//* 'FILENAME:TDEC_DUTAS_RPTPAYMTS.TXT'),
|
||||
//* MAILFROM=DUTAS@DC.GOV
|
||||
//*SYSUT1 DD DSN=DOESTAX.&EXTNODE..ESSP.X437PAID.TXT(+1),DISP=SHR
|
||||
//*SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
|
||||
//*SYSIN DD DUMMY
|
||||
//*
|
||||
//***********************************************************
|
||||
//*STEP0310 EXEC PGM=IEBGENER,COND=(8,NE,DECRYPT),REGION=4M
|
||||
//*SYSPRINT DD SYSOUT=*
|
||||
//*OUT1 OUTPUT DEST=U1003,
|
||||
//* USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
|
||||
//* 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
|
||||
//* 'CC:ZARATH.LALPUTAN@DC.GOV',
|
||||
//* 'SUBJECT: ++++ NO TDEC PAYMENTS TODAY ++++..ZL1',
|
||||
//* 'FILEDESC: TDEC DUTAS PAYMT REPORT ',
|
||||
//* 'FILENAME:TDEC_DUTAS.TXT'),
|
||||
//* MAILFROM=DUTAS@DC.GOV
|
||||
//*SYSUT1 DD DSN=DOESTAX.&EXTNODE..TDEC.ERORPAYT.TXT,DISP=SHR
|
||||
//*SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
|
||||
//*SYSIN DD DUMMY
|
||||
//*
|
||||
//*
|
||||
//STEP0400 EXEC PGM=IDCAMS, COPY X140 PENDING TO GDG
|
||||
// COND=(4,LT)
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//INDD01 DD DSN=&&PENDX140,
|
||||
// DISP=(OLD,DELETE,DELETE), 00006000
|
||||
// UNIT=SYSDA, 00007000
|
||||
// SPACE=(8192,(100,200),RLSE),
|
||||
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
//OUTDD01 DD DSN=DOESTAX.CONV.ESSP.PENDING.X437.PAY(+1),
|
||||
// DISP=(,CATLG,DELETE),
|
||||
//* DISP=SHR,
|
||||
// SPACE=(25600,(100,200),RLSE),
|
||||
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
|
||||
//*
|
||||
//*********************************************************************
|
||||
//*
|
||||
//STEP0410 EXEC PGM=IDCAMS, COPY X144 PENDING TO GDG
|
||||
// COND=(0,LT)
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//INDD01 DD DSN=&&PENDX144,
|
||||
// DISP=(OLD,DELETE,DELETE), 00006000
|
||||
// UNIT=SYSDA, 00007000
|
||||
// SPACE=(8192,(100,200),RLSE),
|
||||
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
//OUTDD01 DD DSN=DOESTAX.DEVL.PENDING.X435.X144,
|
||||
//* DISP=(,CATLG,DELETE),
|
||||
// DISP=SHR,
|
||||
// SPACE=(25600,(100,200),RLSE),
|
||||
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
|
||||
//*
|
||||
//*********************************************************************
|
||||
//STEP0420 EXEC PGM=IDCAMS, COPY X145 PENDING TO GDG
|
||||
// COND=(0,LT)
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//INDD01 DD DSN=&&PENDX145,
|
||||
// DISP=(OLD,DELETE,DELETE), 00006000
|
||||
// UNIT=SYSDA, 00007000
|
||||
// SPACE=(8192,(100,200),RLSE),
|
||||
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
//OUTDD01 DD DSN=DOESTAX.DEVL.PENDING.X435.X145,
|
||||
//* DISP=(,CATLG,DELETE),
|
||||
// DISP=SHR,
|
||||
// SPACE=(25600,(100,200),RLSE),
|
||||
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
|
||||
//*
|
||||
//*********************************************************************
|
||||
124
Procs/DTSBZCHK
Normal file
124
Procs/DTSBZCHK
Normal file
@ -0,0 +1,124 @@
|
||||
//**** 00000010
|
||||
//* PROCESS TDEC CHECK DEPOSIT FILES 00001700
|
||||
//* 00001700
|
||||
//* RUNS DAILY TAX UPDATE (DTSPDAY1) 00001700
|
||||
//** 00001700
|
||||
//DTSBXCHK PROC
|
||||
//** 00001700
|
||||
//STEP0210 EXEC PGM=SORT, SORT TRANSACTIONS
|
||||
// COND=(0,LT)
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//*
|
||||
//SORTIN DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS,DISP=SHR
|
||||
// DD DSN=DOESTAX.CONV.TDEC.PENDING.X429.CHKS(+0),DISP=SHR
|
||||
//*
|
||||
//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..TDECDOES.CHKPAY(+1),
|
||||
//* DISP=(NEW,CATLG,DELETE),
|
||||
// DISP=SHR,
|
||||
// UNIT=SYSDA,
|
||||
// SPACE=(30720,(1000,1000),RLSE), 00008000
|
||||
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) 00009000
|
||||
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX420),DISP=SHR
|
||||
//*
|
||||
//STEP0220 EXEC PGM=DTSBX429,
|
||||
// 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')
|
||||
//***
|
||||
//DTSFX145 DD DSN=DOESTAX.&IMPNODE..TDECDOES.CHKPAY(+1),
|
||||
// DISP=SHR 00006000
|
||||
//* 00001700
|
||||
//DTSPX145 DD DSN=&&PENDX145, 00005000
|
||||
// DISP=(NEW,PASS,DELETE), 00006000
|
||||
// UNIT=SYSDA, 00007000
|
||||
// SPACE=(8192,(1000,200),RLSE),
|
||||
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
//* 00001700
|
||||
//DTSFBTCO DD DSN=DOESTAX.&LVLNODE..TDEC.X429.BTC, 00005000
|
||||
//* DISP=(NEW,CATLG,DELETE), 00006000
|
||||
// DISP=SHR, 00006000
|
||||
//* DISP=MOD, 00006000
|
||||
// UNIT=SYSDA, 00007000
|
||||
// SPACE=(8192,(100,200),RLSE),
|
||||
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
|
||||
//*
|
||||
//X429RPT1 DD DSN=DOESTAX.&LVLNODE..TDEC.X429PAID.TXT(+1),
|
||||
// DISP=(,CATLG,DELETE),
|
||||
//* DISP=(OLD,KEEP,KEEP),
|
||||
// SPACE=(30000,(100,200),RLSE),
|
||||
// DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340)
|
||||
//*
|
||||
//X429RPT2 DD DSN=DOESTAX.&LVLNODE..TDEC.X429PEND.TXT(+1),
|
||||
// DISP=(,CATLG,DELETE),
|
||||
//* DISP=(OLD,KEEP,KEEP),
|
||||
// SPACE=(30000,(100,200),RLSE),
|
||||
// DCB=(RECFM=FB,LRECL=133,BLKSIZE=1330)
|
||||
//*
|
||||
//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..ESSP.BX420.RPT(+1), 00409000
|
||||
// DISP=(,CATLG,DELETE),
|
||||
//* DISP=(OLD,KEEP,KEEP), 00410000
|
||||
// SPACE=(8192,(100,200),RLSE),
|
||||
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
|
||||
//*
|
||||
//STEP0250 EXEC PGM=IDCAMS, COPY X145 PENDING TO GDG
|
||||
// COND=(3,LT)
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//INDD01 DD DSN=&&PENDX145,
|
||||
// DISP=(OLD,DELETE,DELETE), 00006000
|
||||
// UNIT=SYSDA, 00007000
|
||||
// SPACE=(8192,(100,200),RLSE),
|
||||
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
//OUTDD01 DD DSN=DOESTAX.CONV.TDEC.PENDING.X429.CHKS(+1),
|
||||
// DISP=(,CATLG,DELETE),
|
||||
//* DISP=SHR,
|
||||
// SPACE=(25600,(100,200),RLSE),
|
||||
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
|
||||
//*
|
||||
//*********************************************************************
|
||||
//
|
||||
//STEP0260 EXEC PGM=IDCAMS, COPY CHKS RECEIVE TO QTR FILE
|
||||
// COND=(3,LT)
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//INDD01 DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS,
|
||||
// DISP=OLD, 00006000
|
||||
// UNIT=SYSDA, 00007000
|
||||
// SPACE=(8192,(100,200),RLSE),
|
||||
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
//OUTDD01 DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS.G2014Q4,
|
||||
//* DISP=(,CATLG,DELETE),
|
||||
// DISP=MOD,
|
||||
// SPACE=(25600,(100,200),RLSE),
|
||||
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
|
||||
//
|
||||
//**************** END OF PROC FOR NOW ZL1******
|
||||
//STEP0420 EXEC PGM=IDCAMS, COPY X145 PENDING TO GDG
|
||||
// COND=(0,LT)
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//INDD01 DD DSN=&&PENDX145,
|
||||
// DISP=(OLD,DELETE,DELETE), 00006000
|
||||
// UNIT=SYSDA, 00007000
|
||||
// SPACE=(8192,(100,200),RLSE),
|
||||
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
//OUTDD01 DD DSN=DOESTAX.DEVL.PENDING.X435.X145,
|
||||
//* DISP=(,CATLG,DELETE),
|
||||
// DISP=SHR,
|
||||
// SPACE=(25600,(100,200),RLSE),
|
||||
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
|
||||
//*
|
||||
//*********************************************************************
|
||||
396
Procs/DTSRERPZ
Normal file
396
Procs/DTSRERPZ
Normal file
@ -0,0 +1,396 @@
|
||||
//*****
|
||||
//** ON REQ RPT GENERATION
|
||||
//*****
|
||||
//*DTSRQRPT PROC LDEST='U@PRT155',
|
||||
//DTSRQRPT PROC LDEST='LOCAL',
|
||||
// LVDHOLD='YES'
|
||||
//**** /* GEN A DUMMY RECORD FOR THE LABELS FILE 00001702
|
||||
//DOESLBL1 EXEC PGM=IDCAMS, 00001806
|
||||
// COND=(3,LT) 00001906
|
||||
//SYSPRINT DD SYSOUT=* 00002006
|
||||
//LBLOUT DD DSN=&&TMP901,DISP=(NEW,PASS,DELETE), 00002106
|
||||
// UNIT=SYSDA, 00002206
|
||||
// SPACE=(TRK,1), 00002306
|
||||
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00002406
|
||||
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSLBL01), 00002506
|
||||
// DISP=SHR 00002606
|
||||
//**** /* POPULATE THE LABELS WORK FILE 00003105
|
||||
//DOESLBL2 EXEC PGM=IDCAMS, 00003206
|
||||
// COND=(3,LT) 00003306
|
||||
//SYSPRINT DD SYSOUT=* 00003405
|
||||
//FILEIN DD DSN=&&TMP901, 00003505
|
||||
// DISP=(OLD,DELETE,DELETE), 00003605
|
||||
// UNIT=SYSDA 00003705
|
||||
//DOESVRO1 DD DSN=&&LBL901, 00003805
|
||||
// DISP=(NEW,PASS,DELETE), 00003905
|
||||
// UNIT=SYSDA, 00004005
|
||||
// SPACE=(8192,(1000,1000),RLSE), 00004105
|
||||
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00004205
|
||||
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSLBL02), 00004305
|
||||
// DISP=SHR 00004405
|
||||
//** 00004705
|
||||
//STEP0100 EXEC PGM=DTSBD800, OUTPUT GENERATION
|
||||
// COND=(3,LT)
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//SYSABOUT DD SYSOUT=*
|
||||
//SYSUDUMP DD SYSOUT=*
|
||||
//**
|
||||
//PARMIN DD DUMMY
|
||||
//**
|
||||
//ATLSTIN DD DUMMY
|
||||
//**
|
||||
//DTSFVRI1 DD DSN=&&SRTRPT,DISP=(OLD,DELETE,DELETE)
|
||||
//**
|
||||
//DOESVRO1 DD DSN=&&LBL901,DISP=(OLD,PASS,DELETE) 00100001
|
||||
//** 00100100
|
||||
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
|
||||
//** 00100100
|
||||
//DTSFREF DD DSN=DOESTAX.PROD.VSAM.REF,DISP=SHR,
|
||||
// AMP=('BUFNI=5,BUFND=10')
|
||||
//**
|
||||
//** NEW/REACT/DEACTIVATED EMPLYRS
|
||||
//RPT116R1 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||
// DEST=&LDEST.
|
||||
//** GENRC/DEMAND/'8 QTRS 0' INACTVATN LTR
|
||||
//RPT117R1 DD SYSOUT=W,
|
||||
// DEST=&LDEST.
|
||||
//** '8 QTRS OF NONE' REPORT
|
||||
//RPT119R1 DD SYSOUT=0,
|
||||
// DEST=&LDEST.
|
||||
//** POTENTIONALLY FICTITIOUS EMPLOYERS
|
||||
//RPT120R1 DD SYSOUT=Z,COPIES=2,
|
||||
// DEST=&LDEST.
|
||||
//** LIABILITY DETERMINATION ACTIVITY LIST
|
||||
//RPT122R1 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||
// DEST=&LDEST.
|
||||
//RPT122R2 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||
// DEST=&LDEST.
|
||||
//RPT122R3 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||
// DEST=&LDEST.
|
||||
//RPT122R4 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||
// DEST=&LDEST.
|
||||
//RPT122R5 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||
// DEST=&LDEST.
|
||||
//RPT122R6 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||
// DEST=&LDEST.
|
||||
//** EMPLYRS W/05/06/09/11 STATUS CODES
|
||||
//RPT123R1 DD SYSOUT=Z,
|
||||
// DEST=&LDEST.
|
||||
//** EMPLOYER ALPHA LIST
|
||||
//RPT125R1 DD SYSOUT=Z,
|
||||
// DEST=&LDEST.
|
||||
//** EMPLOYER FLD-REP-ID = '??' RPT
|
||||
//RPT129R1 DD SYSOUT=Z,
|
||||
// DEST=&LDEST.
|
||||
//** WEB REGISTRATION CYCLE A RPT
|
||||
//RPT130R1 DD SYSOUT=Z,
|
||||
// DEST=&LDEST.
|
||||
//** WEB REGISTRATION ERROR REPORT
|
||||
//RPT140R1 DD SYSOUT=Z,
|
||||
// DEST=&LDEST.
|
||||
//** ACCOUNT NUMBER CHANGED
|
||||
//RPT204R1 DD SYSOUT=O,
|
||||
// DEST=&LDEST.
|
||||
//** TRIAL BAL RPT
|
||||
//RPT305R1 DD SYSOUT=Z,
|
||||
// DEST=&LDEST.,
|
||||
// HOLD=&LVDHOLD.
|
||||
//** ACCT SUMMARY RPT
|
||||
//RPT306R1 DD SYSOUT=Z,
|
||||
// DEST=&LDEST.
|
||||
//** EMPLR ACCT CREDIT BAL RPT
|
||||
//RPT308R1 DD SYSOUT=Z,
|
||||
// DEST=&LDEST.
|
||||
//** STATEMENT OF ACCT (CR-MEMO-SM)
|
||||
//RPT309R1 DD SYSOUT=W,
|
||||
// DEST=&LDEST.
|
||||
//** STATEMENT OF ACCT (CR-MEMO-PC)
|
||||
//RPT309R2 DD SYSOUT=I,
|
||||
// DEST=&LDEST.
|
||||
//** STATEMENT OF ACCT - -CTRL RPT
|
||||
//RPT310R1 DD SYSOUT=Z,
|
||||
// DEST=&LDEST.
|
||||
//** STATEMENT OF ACCT - -CREDIT RPT
|
||||
//RPT315R1 DD SYSOUT=Z,
|
||||
// DEST=&LDEST.
|
||||
//** QUARTERLY LATE PAYMENT NOTICE
|
||||
//RPT320R1 DD SYSOUT=*
|
||||
//RPT320R2 DD SYSOUT=*
|
||||
//RPT320R3 DD SYSOUT=W,
|
||||
// DEST=&LDEST.
|
||||
//** QUARTERLY MISSING REPORT NOTICE
|
||||
//RPT320R4 DD SYSOUT=Z,
|
||||
// DEST=&LDEST.
|
||||
//** SI EMPLOYER ADMIN ASSESSMENT LETTER
|
||||
//RPT325R1 DD SYSOUT=W,
|
||||
// DEST=&LDEST.
|
||||
//** SI EMPLOYER ADMIN ASSESSMENT RPT2
|
||||
//RPT325R2 DD SYSOUT=Z,
|
||||
// DEST=&LDEST.
|
||||
//** SI EMPLOYER ADMIN ASSESSMENT RPT3
|
||||
//RPT325R3 DD SYSOUT=Z,
|
||||
// DEST=&LDEST.
|
||||
//** SI EMPLOYER ADMIN ASSESSMENT RPT4
|
||||
//RPT325R4 DD SYSOUT=Z,
|
||||
// DEST=&LDEST.
|
||||
//** SI EMPLOYER ADMIN ASSESSMENT RPT5
|
||||
//RPT325R5 DD SYSOUT=Z,
|
||||
// DEST=&LDEST.
|
||||
//** STATEMENT OF ACCT - -CREDIT RPT
|
||||
//RPT410R1 DD SYSOUT=Z,
|
||||
// DEST=&LDEST.
|
||||
//** OPEN BANKRUPTCIES LIST
|
||||
//RPT411R1 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||
// DEST=&LDEST.
|
||||
//** ESTIMATED REPORT LIST
|
||||
//RPT412R1 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||
// DEST=&LDEST.
|
||||
//** NO ESTIMATED REPORT LIST
|
||||
//RPT412R2 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||
// DEST=&LDEST.
|
||||
//** WRITE OFF CANDIDATES LIST
|
||||
//RPT413R1 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||
// DEST=&LDEST.
|
||||
//** MONTHLY DEBIT MEMO
|
||||
//RPT414R1 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||
// DEST=&LDEST.
|
||||
//RPT414R2 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||
// DEST=&LDEST.
|
||||
//RPT414R3 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||
// DEST=&LDEST.
|
||||
//RPT414R5 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||
// DEST=&LDEST.
|
||||
//** COMMA SEPARATED COPY OF FILE 2
|
||||
//RPT414R4 DD DUMMY
|
||||
//**
|
||||
//** ALL EMPLOYERS RECEIVIG BILLS
|
||||
//RPT414R6 DD DUMMY
|
||||
//**
|
||||
//** WRITE 416 REPORT
|
||||
//RPT416R1 DD SYSOUT=O,HOLD=&LVDHOLD.,
|
||||
// DEST=&LDEST.
|
||||
//** DELIQUENT REPORT NOTICES (UC-8)
|
||||
//RPT417R1 DD SYSOUT=W,
|
||||
// DEST=&LDEST.
|
||||
//** DELINQUERNT EMPLYR ACCT NBR LIST
|
||||
//RPT418R1 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||
// DEST=&LDEST.
|
||||
//** FINAL NOTICE DELINQUENCY LIST
|
||||
//** (NOW PRODUCED AS RPT422R2)
|
||||
//RPT420R1 DD DUMMY
|
||||
//**RPT420R1 DD SYSOUT=Z,
|
||||
//** DEST=&LDEST.
|
||||
//** FINAL DELINQUENCY NOTICE
|
||||
//RPT421R1 DD SYSOUT=W,
|
||||
// DEST=&LDEST.
|
||||
//** FINAL DELINQUENCY REPORT LIST
|
||||
//RPT422R1 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||
// DEST=&LDEST.
|
||||
//** FINAL DELINQUENCY REPORT LIST (2)
|
||||
//RPT422R2 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||
// DEST=&LDEST.
|
||||
//** PRIOR DELINQUENT LIST - FLD REP/1 ENTRY
|
||||
//RPT423R1 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||
// DEST=&LDEST.
|
||||
//** PRIOR DELINQUENT LIST - FLD REP/2 ENTRIES
|
||||
//RPT423R2 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||
// DEST=&LDEST.
|
||||
//** PRIOR DELINQUENT LIST - FLD REP/3+ ENTRIES
|
||||
//RPT423R3 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||
// DEST=&LDEST.
|
||||
//** COLLECTIONS SUMMARY RPT
|
||||
//RPT426R1 DD SYSOUT=Z,
|
||||
// DEST=&LDEST.
|
||||
//** TOTAL BAL DUE > $?? RPT
|
||||
//RPT429R1 DD SYSOUT=Z,COPIES=2,
|
||||
// DEST=&LDEST.
|
||||
//** SECOND NOTICE FOR REIMBURSBLE EMPLYS
|
||||
//RPT433R1 DD SYSOUT=W,HOLD=&LVDHOLD.,
|
||||
// DEST=&LDEST.
|
||||
//** REPORT OF SECOND NOTICE FOR VIEW DIR
|
||||
//RPT433R2 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||
// DEST=&LDEST.
|
||||
//** OVER 120 DAYS DELINQUENCY LIST
|
||||
//RPT435R1 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||
// DEST=&LDEST.
|
||||
//** EMPLOYERS AGING ACCOUNT RECEIVABLE REPORT
|
||||
//RPT442R1 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||
// DEST=&LDEST.
|
||||
//** FIRST DELINQUENT ANNUAL SELF MAILER
|
||||
//RPT451R1 DD SYSOUT=W,
|
||||
// DEST=&LDEST.
|
||||
//** FIRST DELINQUENT ANNUAL REPORT
|
||||
//RPT452R1 DD SYSOUT=Z,
|
||||
// DEST=&LDEST.
|
||||
//RPT452R2 DD SYSOUT=Z,
|
||||
// DEST=&LDEST.
|
||||
//** FINAL DELINQUENT ANNUAL SELF MAILER
|
||||
//RPT453R1 DD SYSOUT=W,
|
||||
// DEST=&LDEST.
|
||||
//** FINAL DELINQUENT ANNUAL REPORT
|
||||
//RPT454R1 DD SYSOUT=Z,
|
||||
// DEST=&LDEST.
|
||||
//RPT454R2 DD SYSOUT=Z,
|
||||
// DEST=&LDEST.
|
||||
//** ESTIMATE RPT CANDIDATES LIST
|
||||
//RPT461R1 DD SYSOUT=Z
|
||||
//RPT461R3 DD SYSOUT=Z
|
||||
//RPT461R2 DD SYSOUT=Z,
|
||||
// DEST=&LDEST.
|
||||
//** ESTIMATE RPT CANDIDATES LIST
|
||||
//RPT455R1 DD SYSOUT=Z,
|
||||
// DEST=&LDEST.
|
||||
//RPT455R2 DD SYSOUT=Z,
|
||||
// DEST=&LDEST.
|
||||
//** EMPLYRS QUALIFIED FOR EFF PENALTY
|
||||
//RPT518R1 DD SYSOUT=Z,
|
||||
// DEST=&LDEST.
|
||||
//** EMPLYRS QUALIFIED FOR PENALTY RATE
|
||||
//RPT519R1 DD SYSOUT=Z,
|
||||
// DEST=&LDEST.
|
||||
//** AUDIT SELECTION CRITERIA
|
||||
//RPT602R1 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||
// DEST=&LDEST.
|
||||
//** AUDIT CANDIDATES LIST
|
||||
//RPT602R2 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||
// DEST=&LDEST.
|
||||
//** AUDIT CANDIDATES SELF MAILER
|
||||
//RPT602R3 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||
// DEST=&LDEST.
|
||||
//** AUDIT FILE
|
||||
//RPT602F3 DD DUMMY
|
||||
//** ASSIGNMENT SUMMARY - FLD REP
|
||||
//RPT606R1 DD SYSOUT=Z,
|
||||
// DEST=&LDEST.
|
||||
//** ASSIGNMENT DETAIL - FLD REP
|
||||
//RPT607R1 DD SYSOUT=I,
|
||||
// DEST=&LDEST.
|
||||
//** ASSIGNMENT MANAGEMENT RPTS
|
||||
//RPT609R1 DD SYSOUT=Z,
|
||||
// DEST=&LDEST.
|
||||
//** ASSIGNMENT MANAGEMENT RPTS
|
||||
//RPT609R2 DD SYSOUT=Z,
|
||||
// DEST=&LDEST.
|
||||
//** ACT EMPLYRS BY ZIPCODE CNTS
|
||||
//RPT611R1 DD SYSOUT=Z,
|
||||
// DEST=&LDEST.
|
||||
//****CBDATA DD DUMMY
|
||||
//****CBDATA DD DSN=DOES.CICS.FIN730.CBDATA.EX100102,DISP=SHR
|
||||
//** AUDIT ASSGNMNTS W/NO AUDIT RESULTS
|
||||
//RPT612R1 DD SYSOUT=Z,
|
||||
// DEST=&LDEST.
|
||||
//** FEILD ASSIGNMENT - DELINQUENCY
|
||||
//RPT615R1 DD SYSOUT=0
|
||||
//** SUCCESSFUL FUTA CERTIFICATIONS
|
||||
//RPT704R1 DD SYSOUT=Z,
|
||||
// DEST=&LDEST.
|
||||
//** FAILED FUTA CERTIFICATIONS
|
||||
//RPT705R1 DD SYSOUT=Z,
|
||||
// DEST=&LDEST.
|
||||
//** POTENTIAL NON-FEDERAL FILERS
|
||||
//RPT708R1 DD SYSOUT=Z,
|
||||
// DEST=&LDEST.
|
||||
//** REQ. FOR FED-ID LETTER (MASS MAILING)
|
||||
//RPT712R1 DD SYSOUT=W,
|
||||
// DEST=&LDEST.
|
||||
//** ETA-581 ELEMENT RECORDS (EXPORT)
|
||||
//RPT713R1 DD DUMMY
|
||||
//**
|
||||
//** ETA-581 SPEC DEPT OF LABOR REPORT
|
||||
//RPT713R2 DD SYSOUT=O,COPIES=2,
|
||||
// DEST=&LDEST.
|
||||
//**
|
||||
//RPT715R1 DD SYSOUT=Z,
|
||||
// DEST=&LDEST.
|
||||
//**
|
||||
//***** SEE PROC DTSTPRPT FOR TPS FILES
|
||||
//** TPS EXPERIENCE RATING (EXPORT)
|
||||
//**RPT723R1 IS IN DTSARRPT
|
||||
//**
|
||||
//** ACCTS AVAIL FOR PURGE LST
|
||||
//RPT729R1 DD SYSOUT=Z,
|
||||
// DEST=&LDEST.
|
||||
//** ACCTS AVAIL FOR PURGE LST
|
||||
//RPT730R1 DD SYSOUT=Z,
|
||||
// DEST=&LDEST.
|
||||
//** WAGE FILE/TAX FILE COMPARISON
|
||||
//RPT737R1 DD SYSOUT=Z,
|
||||
// DEST=&LDEST.
|
||||
//** ELECTRONIC FILER LIST
|
||||
//RPT740R1 DD SYSOUT=Z,
|
||||
// DEST=&LDEST.
|
||||
//** LIST OF NEW EMPLOYERS WITHIN RPT PERIOC.
|
||||
//RPT763R1 DD SYSOUT=Z,
|
||||
// DEST=&LDEST.
|
||||
//** CICS OP ID LIST
|
||||
//RPT791R1 DD SYSOUT=Z,COPIES=3,
|
||||
// DEST=&LDEST.
|
||||
//** EMPLYRS W/A MISSING SIC
|
||||
//RPT792R1 DD SYSOUT=Z,
|
||||
// DEST=&LDEST.
|
||||
//** FUTA QTRLY FEIN CHANGES
|
||||
//RPT793R1 DD SYSOUT=W,
|
||||
// DEST=&LDEST.
|
||||
//** FUTA QTRLY FEIN CHANGES
|
||||
//RPT793R2 DD SYSOUT=Z,
|
||||
// DEST=&LDEST.
|
||||
//** WAGE RPTS (UC-30 QTRLY)
|
||||
//DTS902F1 DD DUMMY
|
||||
//**
|
||||
//** WAGE RPTS (UC-30 DAILY)
|
||||
//*RPT902R1 DD DUMMY
|
||||
//RPT902R1 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||
// DEST=&LDEST.
|
||||
//** ONLINE UPDT LOG PARMS (MUST BE HERE*)
|
||||
//PARM906 DD DUMMY,DCB=BLKSIZE=80
|
||||
//** ONLINE UPDATE LOG RPT
|
||||
//RPT906R1 DD SYSOUT=Z,
|
||||
// DEST=&LDEST.
|
||||
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT
|
||||
//RPT907R1 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||
// DEST=&LDEST.
|
||||
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT
|
||||
//RPT907R2 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
||||
// DEST=&LDEST.
|
||||
//** UC-30 CNTS RPTN
|
||||
//RPT908R1 DD SYSOUT=Z,
|
||||
// DEST=&LDEST.
|
||||
//RPT909R1 DD SYSOUT=W,HOLD=&LVDHOLD.,
|
||||
// DEST=&LDEST.
|
||||
//RPT909R2 DD SYSOUT=W,HOLD=&LVDHOLD.,
|
||||
// DEST=&LDEST.
|
||||
//RPT909R3 DD SYSOUT=W,HOLD=&LVDHOLD.,
|
||||
// DEST=&LDEST.
|
||||
//RPT909R4 DD SYSOUT=W,HOLD=&LVDHOLD.,
|
||||
// DEST=&LDEST.
|
||||
//RPT909R5 DD SYSOUT=W,HOLD=&LVDHOLD.,
|
||||
// DEST=&LDEST.
|
||||
//RPT909R6 DD SYSOUT=W,HOLD=&LVDHOLD.,
|
||||
// DEST=&LDEST.
|
||||
//** WAGE RPTS (UC-30H YRLY)
|
||||
//DTS910F1 DD DUMMY
|
||||
//**
|
||||
//** WAGE RPTS (UC-30H DAILY)
|
||||
//RPT910R1 DD DUMMY
|
||||
//** CONTROL REPORT SUMMARY
|
||||
//RPT980R1 DD SYSOUT=Q,HOLD=&LVDHOLD.,
|
||||
// DEST=&LDEST.
|
||||
//** EXPORT CONTROL REPORTS
|
||||
//RPT991R1 DD SYSOUT=Q,COPIES=2,
|
||||
// DEST=&LDEST.
|
||||
//****
|
||||
//*DOESLBLP EXEC PGM=DOESLABL, /* PRINT DOES LABELS 00131001
|
||||
//* COND=(0,LT), 00140000
|
||||
//* REGION=4096K 00150000
|
||||
//*DOESVRI1 DD DSN=&&LBL901, 00150101
|
||||
//* DISP=(OLD,DELETE,DELETE) 00150201
|
||||
//*SYSOUT DD SYSOUT=* 00151000
|
||||
//*SYSABOUT DD SYSOUT=* 00152000
|
||||
//*SYSABEND DD SYSOUT=* 00153000
|
||||
//*CAIMRPTS DD SYSOUT=* 00154000
|
||||
//*DOESLBL1 DD SYSOUT=(C), 00155101
|
||||
//* FCB=P104, 00155201
|
||||
//* DEST=&LDEST., 00155302
|
||||
//* HOLD=&LVDHOLD. 00155403
|
||||
//** 00157001
|
||||
//**
|
||||
87
Procs/DTSZX425
Normal file
87
Procs/DTSZX425
Normal file
@ -0,0 +1,87 @@
|
||||
//**** 00000010
|
||||
//* IMPORT EMPLOYER DATA FROM WEB DATABASE 00001700
|
||||
//* TO MAINFRAME 00001700
|
||||
//* 00001700
|
||||
//* RUNS DAILY PRIOR TO TAX UPDATE (DTSPDAY1) 00001700
|
||||
//** 00001700
|
||||
//DTSBX420 PROC
|
||||
//** 00001700
|
||||
//***** 00001700
|
||||
//STEP0110 EXEC PGM=SORT, SORT TRANSACTIONS
|
||||
// COND=(0,LT)
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//*
|
||||
//SORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT,DISP=SHR 00005000
|
||||
//*ORTIN DD DSN=DOESTAX.CONV.ESSP.ACHDD.ARCHIVE(+1),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=&&WEBIMPRT,
|
||||
// DISP=(NEW,PASS,DELETE),
|
||||
// UNIT=SYSDA,
|
||||
// SPACE=(30720,(1000,1000),RLSE), 00008000
|
||||
// DCB=(RECFM=FB,LRECL=94,BLKSIZE=9400) 00009000
|
||||
//*
|
||||
//SYSIN DD DSN=DOESTAX.DEVL.PARMLIB(DTSSX425),DISP=SHR
|
||||
//*
|
||||
//STEP0200 EXEC PGM=DTSBX425,
|
||||
// COND=(0,LT),
|
||||
// REGION=4096K
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//SYSABOUT DD SYSOUT=*
|
||||
//SYSABEND DD SYSOUT=*
|
||||
//SYSUDUMP DD SYSOUT=*
|
||||
//* 00001700
|
||||
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
|
||||
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
|
||||
// AMP=('BUFNI=5,BUFND=10')
|
||||
//***
|
||||
//EFTFACH DD DSN=&&WEBIMPRT,
|
||||
// DISP=(OLD,DELETE,DELETE),
|
||||
//* DISP=(OLD,KEEP,KEEP),
|
||||
// UNIT=SYSDA,
|
||||
// SPACE=(30720,(1000,1000),RLSE), 00008000
|
||||
// DCB=(RECFM=FB,LRECL=94,BLKSIZE=9400) 00009000
|
||||
//* 00001700
|
||||
//X425RPT1 DD DSN=DOESTAX.CONV.ESSP.X425ACHD(+1),
|
||||
// DISP=(,CATLG,DELETE),
|
||||
//* DISP=SHR,
|
||||
// UNIT=SYSDA,
|
||||
// SPACE=(25600,(100,100),RLSE),
|
||||
// DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340)
|
||||
//*
|
||||
//X425TOTL DD DSN=DOESTAX.CONV.ESSP.DAILY.ACHDTOTL,
|
||||
//* DISP=(,CATLG,DELETE),
|
||||
// DISP=SHR
|
||||
//* UNIT=SYSDA,
|
||||
//* SPACE=(25600,(100,100),RLSE),
|
||||
//* DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340)
|
||||
//*
|
||||
//DTSFBTCO DD DSN=DOESTAX.DEVL.BX425.BTC,
|
||||
//* DISP=(NEW,CATLG,DELETE),
|
||||
// DISP=(OLD,KEEP,KEEP),
|
||||
// SPACE=(8192,(100,200),RLSE),
|
||||
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
|
||||
//*
|
||||
//STEP0320 EXEC PGM=IEBGENER,COND=(3,LT),REGION=4M
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUT1 OUTPUT DEST=U1003,
|
||||
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
|
||||
// 'TO:PANKAJ.SHARMA@SAGITEC.COM',
|
||||
// 'TO:RYAN.MOORE-LEE@DC.GOV',
|
||||
// 'CC:NANCY.HUDAK@DC.GOV',
|
||||
// 'CC:MARGARET.HERNANDEZ@DC.GOV',
|
||||
// 'CC:ESAYAS.LEMMA@DC.GOV',
|
||||
//* 'CC:ZARATH.LALPUTAN@DC.GOV',
|
||||
// 'SUBJECT: ESSP DAILY WELLS FARGO ACH DEPOSITS-VERIFY',
|
||||
//* 'SUBJECT: ESSP 11-2 WELLS FARGO ACH DEPOSITS ',
|
||||
// 'FILEDESC: ESSP ACH DEPOSITS FOR WELLF FARGO ',
|
||||
// 'FILENAME:ESSP_DUTAS_ACHDEPOSITS.TXT'),
|
||||
// MAILFROM=DUTAS@DC.GOV
|
||||
//SYSUT1 DD DSN=DOESTAX.&LVLNODE..ESSP.X425ACHD(+1),DISP=SHR
|
||||
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
|
||||
//SYSIN DD DUMMY
|
||||
//*
|
||||
//*********************************************************************
|
||||
127
Procs/DTSZXPAY
Normal file
127
Procs/DTSZXPAY
Normal file
@ -0,0 +1,127 @@
|
||||
//**** 00000010
|
||||
//* PROCESS TDEC REPORT PAYMENTS 00001700
|
||||
//* 00001700
|
||||
//* RUNS DAILY TAX UPDATE (DTSPDAY1) 00001700
|
||||
//** 00001700
|
||||
//DTSBXPAY PROC
|
||||
//** 00001700
|
||||
//STEP0100 EXEC PGM=SORT, SORT TRANSACTIONS
|
||||
// COND=(0,LT)
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//*
|
||||
//SORTIN DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT,DISP=SHR
|
||||
//*
|
||||
//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..TDEC.DOES.RPTPAY(+1),DISP=SHR
|
||||
//* DISP=(NEW,CATLG,DELETE),
|
||||
//* DISP=SHR,
|
||||
//* UNIT=SYSDA,
|
||||
//* SPACE=(30720,(1000,1000),RLSE), 00008000
|
||||
//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) 00009000
|
||||
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX420),DISP=SHR
|
||||
//*
|
||||
//STEP0200 EXEC PGM=DTSBX437,
|
||||
// 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')
|
||||
//***
|
||||
//DTSFX145 DD DSN=DOESTAX.&IMPNODE..TDEC.DOES.RPTPAY(+1),
|
||||
// DISP=SHR 00006000
|
||||
//* 00001700
|
||||
//DTSPX145 DD DSN=&&PENDX140, 00005000
|
||||
// DISP=(NEW,PASS,DELETE), 00006000
|
||||
// UNIT=SYSDA, 00007000
|
||||
// SPACE=(8192,(1000,200),RLSE),
|
||||
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
//* 00001700
|
||||
//DTSFBTCO DD DSN=DOESTAX.&IMPNODE..ESSP.ZX437.BTC, 00005000
|
||||
//* DISP=(NEW,CATLG,DELETE), 00006000
|
||||
// DISP=SHR, 00006000
|
||||
//* DISP=MOD, 00006000
|
||||
// UNIT=SYSDA, 00007000
|
||||
// SPACE=(8192,(100,200),RLSE),
|
||||
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
|
||||
//*
|
||||
//X437RPT1 DD DSN=DOESTAX.&LVLNODE..ESSP.X437PAID.TXT(+1),
|
||||
// DISP=(,CATLG,DELETE),
|
||||
//* DISP=(OLD,KEEP,KEEP),
|
||||
// SPACE=(30000,(100,200),RLSE),
|
||||
// DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340)
|
||||
//*
|
||||
//X437RPT2 DD DSN=DOESTAX.&LVLNODE..ESSP.X437PEND.TXT(+1),
|
||||
// DISP=(,CATLG,DELETE),
|
||||
//* DISP=(OLD,KEEP,KEEP),
|
||||
// SPACE=(30000,(100,200),RLSE),
|
||||
// DCB=(RECFM=FB,LRECL=133,BLKSIZE=1330)
|
||||
//*
|
||||
//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..ESSP.BX420.RPT(+1), 00409000
|
||||
// DISP=(,CATLG,DELETE),
|
||||
//* DISP=(OLD,KEEP,KEEP), 00410000
|
||||
// SPACE=(8192,(100,200),RLSE),
|
||||
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
|
||||
//***********************************************************
|
||||
//* SEND EMAIL WHEN REPORT PAYMENTS PROCESSED
|
||||
//***********************************************************
|
||||
//*
|
||||
//STEP0400 EXEC PGM=IDCAMS, COPY X140 PENDING TO GDG
|
||||
// COND=(4,LT)
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//INDD01 DD DSN=&&PENDX140,
|
||||
// DISP=(OLD,DELETE,DELETE), 00006000
|
||||
// UNIT=SYSDA, 00007000
|
||||
// SPACE=(8192,(100,200),RLSE),
|
||||
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
//OUTDD01 DD DSN=DOESTAX.CONV.ESSP.PENDING.X437.PAY(+1),
|
||||
// DISP=(,CATLG,DELETE),
|
||||
//* DISP=SHR,
|
||||
// SPACE=(25600,(100,200),RLSE),
|
||||
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
|
||||
//*
|
||||
//*********************************************************************
|
||||
//*
|
||||
//STEP0410 EXEC PGM=IDCAMS, COPY X144 PENDING TO GDG
|
||||
// COND=(0,LT)
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//INDD01 DD DSN=&&PENDX144,
|
||||
// DISP=(OLD,DELETE,DELETE), 00006000
|
||||
// UNIT=SYSDA, 00007000
|
||||
// SPACE=(8192,(100,200),RLSE),
|
||||
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
//OUTDD01 DD DSN=DOESTAX.DEVL.PENDING.X435.X144,
|
||||
// DISP=(,CATLG,DELETE),
|
||||
//* DISP=SHR,
|
||||
// SPACE=(25600,(100,200),RLSE),
|
||||
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
|
||||
//*
|
||||
//*********************************************************************
|
||||
//STEP0420 EXEC PGM=IDCAMS, COPY X145 PENDING TO GDG
|
||||
// COND=(0,LT)
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//INDD01 DD DSN=&&PENDX145,
|
||||
// DISP=(OLD,DELETE,DELETE), 00006000
|
||||
// UNIT=SYSDA, 00007000
|
||||
// SPACE=(8192,(100,200),RLSE),
|
||||
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
//OUTDD01 DD DSN=DOESTAX.DEVL.PENDING.X435.X145,
|
||||
// DISP=(,CATLG,DELETE),
|
||||
//* DISP=SHR,
|
||||
// SPACE=(25600,(100,200),RLSE),
|
||||
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
|
||||
//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
|
||||
//*
|
||||
//*********************************************************************
|
||||
//
|
||||
83
Procs/DTSZZBX425
Normal file
83
Procs/DTSZZBX425
Normal file
@ -0,0 +1,83 @@
|
||||
//**** 00000010
|
||||
//* IMPORT EMPLOYER DATA FROM WEB DATABASE 00001700
|
||||
//* TO MAINFRAME 00001700
|
||||
//* File="E:\Innova\Code\MP\Git\DUTAS]PROCS <<<<
|
||||
//* 00001700
|
||||
//* RUNS DAILY PRIOR TO TAX UPDATE (DTSPDAY1) 00001700
|
||||
//** 00001700
|
||||
//DTSBX425 PROC
|
||||
//** 00001700
|
||||
//***** 00001700
|
||||
//STEP0110 EXEC PGM=SORT,
|
||||
// REGION=4096K,
|
||||
// COND=(0,LT)
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//*
|
||||
//SORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT,DISP=SHR 00005000
|
||||
//*ORTIN DD DSN=DOESTAX.CONV.ESSP.ACHDD.ARCHIVE(+1),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=&&ACHIMP,
|
||||
// DISP=(NEW,PASS,DELETE),
|
||||
// UNIT=SYSDA,
|
||||
// SPACE=(30720,(1000,1000),RLSE), 00008000
|
||||
// DCB=(RECFM=FB,LRECL=94,BLKSIZE=9400) 00009000
|
||||
//*
|
||||
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX425),DISP=SHR
|
||||
//*
|
||||
//STEP0200 EXEC PGM=DTSBX425,
|
||||
// COND=(0,LT),
|
||||
// REGION=4096K
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//SYSABOUT DD SYSOUT=*
|
||||
//SYSABEND DD SYSOUT=*
|
||||
//SYSUDUMP DD SYSOUT=*
|
||||
//* 00001700
|
||||
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
|
||||
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
|
||||
// AMP=('BUFNI=5,BUFND=10')
|
||||
//***
|
||||
//EFTFACH DD DSN=&&ACHIMP,
|
||||
// DISP=(OLD,DELETE,DELETE),
|
||||
//* DISP=(OLD,KEEP,KEEP),
|
||||
// UNIT=SYSDA,
|
||||
// SPACE=(30720,(1000,1000),RLSE), 00008000
|
||||
// DCB=(RECFM=FB,LRECL=94,BLKSIZE=9400) 00009000
|
||||
//* 00001700
|
||||
//X425RPT1 DD DSN=DOESTAX.CONV.ESSP.X425ACHD(+1),
|
||||
// DISP=(,CATLG,DELETE),
|
||||
//* DISP=SHR,
|
||||
// UNIT=SYSDA,
|
||||
// SPACE=(25600,(100,100),RLSE),
|
||||
// DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340)
|
||||
//*
|
||||
//X425TOTL DD DSN=DOESTAX.CONV.ESSP.DAILY.ACHDTOTL,
|
||||
// DISP=(,CATLG,DELETE),
|
||||
//* DISP=SHR
|
||||
//* UNIT=SYSDA,
|
||||
//* SPACE=(25600,(100,100),RLSE),
|
||||
//* DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340)
|
||||
//*
|
||||
//STEP0320 EXEC PGM=IEBGENER,COND=(3,LT),REGION=4M
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUT1 OUTPUT DEST=U1003,
|
||||
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
|
||||
// 'TO:PANKAJ.SHARMA@SAGITEC.COM',
|
||||
// 'TO:RYAN.MOORE-LEE@DC.GOV',
|
||||
// 'CC:NANCY.HUDAK@DC.GOV',
|
||||
// 'CC:MARGARET.HERNANDEZ@DC.GOV',
|
||||
// 'CC:ESAYAS.LEMMA@DC.GOV',
|
||||
//* 'CC:ZARATH.LALPUTAN@DC.GOV',
|
||||
// 'SUBJECT: ESSP DAILY WELLS FARGO ACH DEPOSITS-VERIFY',
|
||||
//* 'SUBJECT: ESSP 11-2 WELLS FARGO ACH DEPOSITS ',
|
||||
// 'FILEDESC: ESSP ACH DEPOSITS FOR WELLF FARGO ',
|
||||
// 'FILENAME:ESSP_DUTAS_ACHDEPOSITS.TXT'),
|
||||
// MAILFROM=DUTAS@DC.GOV
|
||||
//SYSUT1 DD DSN=DOESTAX.&LVLNODE..ESSP.X425ACHD(+1),DISP=SHR
|
||||
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
|
||||
//SYSIN DD DUMMY
|
||||
//*
|
||||
//*********************************************************************
|
||||
Reference in New Issue
Block a user