221 lines
11 KiB
Plaintext
221 lines
11 KiB
Plaintext
//DESBZ300 PROC 00000010
|
|
//**************************************************************** 00001700
|
|
//* BUILD THE WGH EMPLOYER ORIENTED WAGE FILE FROM DATA IN
|
|
//* THE BENEFITS WAGE FILE
|
|
//**************************************************************** 00001700
|
|
//STEP0100 EXEC PGM=DESBD300, EXTRACT DATA FROM WAGE FILE
|
|
// COND=(0,LT),
|
|
// REGION=4096K
|
|
//SYSOUT DD SYSOUT=*
|
|
//SYSABOUT DD SYSOUT=*
|
|
//SYSABEND DD SYSOUT=*
|
|
//*
|
|
//DOCFMSTR INCLUDE MEMBER=DOCIMSTR
|
|
//*
|
|
//DTSFNAME DD DSN=DOESTAX.&LVLNODE..VSAM.WAGE.NAME,DISP=SHR,
|
|
// AMP=('BUFNI=5,BUFND=10')
|
|
//WGEOUT1 DD DSN=&&WGEOUT1,
|
|
// DISP=(NEW,PASS,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(18000,(8000,1000),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=18,BLKSIZE=18000)
|
|
//* 00014000
|
|
//DTSFVRO1 DD DSN=&&RPT1, 00014000
|
|
// DISP=(NEW,PASS,DELETE), 00014000
|
|
// UNIT=SYSDA, 00014000
|
|
// SPACE=(8192,(500,200),RLSE), 00014000
|
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00014000
|
|
//* 00014000
|
|
//**************************************************************** 00001700
|
|
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', SORT IN EMPLYER ORDER 00007602
|
|
// COND=(0,LT) 00007702
|
|
//SYSOUT DD SYSOUT=* 00007802
|
|
//SORTIN DD DSN=&&WGEOUT1, 00007917
|
|
// DISP=(OLD,DELETE,DELETE) 00008002
|
|
//SORTOUT DD DSN=&&WGESRT1, 00008417
|
|
// DISP=(,PASS,DELETE), 00008502
|
|
// UNIT=SYSDA, 00008602
|
|
// SPACE=(18000,(8000,1000),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=18,BLKSIZE=18000)
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSWGE1),DISP=SHR 00008917
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) 00009002
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) 00009102
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) 00009202
|
|
//* 00009302
|
|
//**************************************************************** 00001700
|
|
//STEP0300 EXEC PGM=DESBD310, CHECK TAX MASTER FILE
|
|
// COND=(0,LT), FIND SUCCESSOR IF ANY
|
|
// REGION=4096K
|
|
//SYSOUT DD SYSOUT=*
|
|
//SYSABOUT DD SYSOUT=*
|
|
//SYSABEND DD SYSOUT=*
|
|
//* 00001700
|
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00001700
|
|
//DTSFWGHI DD DSN=&&WGESRT1,
|
|
// DISP=(OLD,PASS,DELETE)
|
|
//*
|
|
//DTSFWGHO DD DSN=&&WGEOUT2,
|
|
// DISP=(NEW,PASS,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(18000,(8000,5000),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=18,BLKSIZE=18000)
|
|
//*
|
|
//DTSFWESQ DD DSN=&&WESQOUT1,
|
|
// DISP=(NEW,PASS,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(25000,(8000,5000),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000)
|
|
//*
|
|
//DTSFVRO1 DD DSN=&&RPT2,
|
|
// DISP=(NEW,PASS,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(8192,(1000,200),RLSE),
|
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
|
|
//*
|
|
//**************************************************************** 00001700
|
|
//STEP0400 EXEC PGM=SORT,PARM='VLTEST=0', SORT BY EMP 00790055
|
|
// COND=(0,LT) 00800055
|
|
//SYSOUT DD SYSOUT=* 00810055
|
|
//SYSPRINT DD SYSOUT=* 00820055
|
|
//SORTIN DD DSN=&&WGEOUT2, 00830055
|
|
// DISP=(OLD,DELETE,DELETE) 00840055
|
|
//SORTOUT DD DSN=&&WGESRT2,
|
|
// DISP=(NEW,PASS,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(18000,(8000,5000),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=18,BLKSIZE=18000)
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSWGE1),DISP=SHR 00870056
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00880055
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00890055
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00900055
|
|
//*
|
|
//**************************************************************** 00001700
|
|
//STEP0500 EXEC PGM=DESBD315, MERGE SUCCESSOR RECORDS
|
|
// COND=(0,LT),
|
|
// REGION=4096K
|
|
//SYSOUT DD SYSOUT=*
|
|
//SYSABOUT DD SYSOUT=*
|
|
//SYSABEND DD SYSOUT=*
|
|
//* 00001700
|
|
//DTSFWGHI DD DSN=&&WGESRT2,
|
|
// DISP=(OLD,DELETE,DELETE)
|
|
//*
|
|
//DTSFWGHO DD DSN=&&WGEOUT3,
|
|
// DISP=(NEW,PASS,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(18000,(8000,5000),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=18,BLKSIZE=18000)
|
|
//*
|
|
//**************************************************************** 00001700
|
|
//STEP0510 EXEC PGM=DESBD316, IDENTIFY NEW/DEL/CHG RECS 00740053
|
|
// COND=(0,LT), 00780053
|
|
// REGION=4096K
|
|
//SYSOUT DD SYSOUT=* 00750053
|
|
//SYSPRINT DD SYSOUT=* 00750053
|
|
//SYSABOUT DD SYSOUT=* 00750053
|
|
//SYSABEND DD SYSOUT=* 00750053
|
|
//DTSFWGIN DD DSN=&&WGEOUT3,
|
|
// DISP=(OLD,PASS,DELETE)
|
|
//*
|
|
//DTSFWGH DD DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR, 00850055
|
|
// AMP=('BUFNI=5,BUFND=30') 00860055
|
|
//*
|
|
//DTSFWGC DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.WAGE,
|
|
// DISP=(OLD,KEEP,KEEP)
|
|
//DTSFXSEQ DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.WAGE.SEQ,
|
|
// DISP=(OLD,KEEP,KEEP),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(14,(14,14),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=14,BLKSIZE=14)
|
|
//*
|
|
//*
|
|
//STEP0800 EXEC PGM=SORT,PARM='VLTEST=0', SORT WESQ - EMP/SSN/QTR 00790055
|
|
// COND=(0,LT) 00800055
|
|
//SYSOUT DD SYSOUT=* 00810055
|
|
//SYSPRINT DD SYSOUT=* 00820055
|
|
//SORTIN DD DSN=&&WESQOUT1, 00830055
|
|
// DISP=(OLD,DELETE,DELETE) 00840055
|
|
//SORTOUT DD DSN=&&WESQSRT1,
|
|
// DISP=(NEW,PASS,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(25000,(8000,5000),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000)
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSWGE1),DISP=SHR 00870056
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00880055
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00890055
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00900055
|
|
//*
|
|
//**************************************************************** 00001700
|
|
//STEP0900 EXEC PGM=DESBD317, ADD YTD EARNINGS TO WESQ
|
|
// COND=(0,LT),
|
|
// REGION=4096K
|
|
//SYSOUT DD SYSOUT=*
|
|
//SYSABOUT DD SYSOUT=*
|
|
//SYSABEND DD SYSOUT=*
|
|
//* 00001700
|
|
//DTSFWESI DD DSN=&&WESQSRT1,
|
|
// DISP=(OLD,DELETE,DELETE)
|
|
//*
|
|
//DTSFWESO DD DSN=&&WESQOUT2,
|
|
// DISP=(NEW,PASS,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(25000,(8000,5000),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000)
|
|
//*
|
|
//*
|
|
//STEP1000 EXEC PGM=SORT,PARM='VLTEST=0', SORT WESQ - EMP/QTR/SSN 00790055
|
|
// COND=(0,LT) 00800055
|
|
//SYSOUT DD SYSOUT=* 00810055
|
|
//SYSPRINT DD SYSOUT=* 00820055
|
|
//SORTIN DD DSN=&&WESQOUT2, 00830055
|
|
// DISP=(OLD,DELETE,DELETE) 00840055
|
|
//SORTOUT DD DSN=&&WESQSRT2,
|
|
// DISP=(NEW,PASS,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(25000,(8000,5000),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000)
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSWESQ),DISP=SHR 00870056
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00880055
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00890055
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00900055
|
|
//*
|
|
//**************************************************************** 00001700
|
|
//STEP1100 EXEC PGM=DESBD318, REFORMAT WESQ RECORDS
|
|
// COND=(0,LT),
|
|
// REGION=4096K
|
|
//SYSOUT DD SYSOUT=*
|
|
//SYSABOUT DD SYSOUT=*
|
|
//SYSABEND DD SYSOUT=*
|
|
//* 00001700
|
|
//DTSFWESI DD DSN=&&WESQSRT2,
|
|
// DISP=(OLD,DELETE,DELETE)
|
|
//*
|
|
//DTSFWESO DD DSN=&&WESQOUT3,
|
|
// DISP=(NEW,PASS,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(25000,(8000,5000),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000)
|
|
//*
|
|
//**************************************************************** 00001700
|
|
//STEP1200 EXEC PGM=IDCAMS DELETE AND DEFINE 00740053
|
|
//SYSPRINT DD SYSOUT=* 00750053
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSDDWSQ),DISP=SHR 00760053
|
|
//* 00780053
|
|
//STEP1300 EXEC PGM=IDCAMS LOAD VSAM FILE 00740053
|
|
//SYSPRINT DD SYSOUT=* 00750053
|
|
//INDD01 DD DSN=&&WESQOUT3,
|
|
// DISP=(OLD,DELETE,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(25000,(8000,5000),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000)
|
|
//OUTDD01 DD DSN=DOESTAX.&LVLNODE..VSAM.WESQ,DISP=SHR, 00850055
|
|
// AMP=('BUFNI=5,BUFND=30') 00860055
|
|
//*OUTDD01 DD DSN=DOESTAX.&LVLNODE..WESQ, 00850055
|
|
//* DISP=(OLD,KEEP,KEEP),
|
|
//* UNIT=SYSDA,
|
|
//* SPACE=(25000,(8000,5000),RLSE),
|
|
//* DCB=(RECFM=FB,LRECL=25,BLKSIZE=25000)
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE), 00760053
|
|
// DISP=SHR 00770053
|
|
//*********************************************************************
|