121 lines
6.4 KiB
Plaintext
121 lines
6.4 KiB
Plaintext
//DESBD300 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=*
|
|
//*
|
|
//DOCSMSTR 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)
|
|
//*
|
|
//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
|
|
//STEP0600 EXEC PGM=IDCAMS DELETE AND DEFINE 00740053
|
|
//SYSPRINT DD SYSOUT=* 00750053
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSDDWGH), 00760053
|
|
// DISP=SHR 00770053
|
|
//* 00780053
|
|
//STEP0700 EXEC PGM=IDCAMS LOAD VSAM FILE 00740053
|
|
//SYSPRINT DD SYSOUT=* 00750053
|
|
//INDD01 DD DSN=&&WGEOUT3,
|
|
// DISP=(OLD,PASS,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(18000,(8000,5000),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=18,BLKSIZE=18000)
|
|
//OUTDD01 DD DSN=DOESTAX.&LVLNODE..VSAM.WGH,DISP=SHR, 00850055
|
|
// AMP=('BUFNI=5,BUFND=30') 00860055
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE), 00760053
|
|
// DISP=SHR 00770053
|
|
//*********************************************************************
|