141 lines
8.0 KiB
Plaintext
141 lines
8.0 KiB
Plaintext
//*****************************************************************
|
|
//* ES202 EXTRACT
|
|
//* INCLUDES ES202 PROCESS (DTSBD540), AND PROCESSES TO PRODUCE
|
|
//* THE ETT AND WAGE FILES (DTSBD541, DTSBD542).
|
|
//*
|
|
//****
|
|
//DTSRQ540 PROC
|
|
//****
|
|
//STEP0100 EXEC PGM=DTSBD540,
|
|
// COND=(0,LT)
|
|
//SYSOUT DD SYSOUT=*
|
|
//SYSABOUT DD SYSOUT=*
|
|
//SYSUDUMP DD SYSOUT=*
|
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
|
|
//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..PER.RPT(+1),
|
|
// DISP=(,CATLG,DELETE),
|
|
// SPACE=(8192,(1000,1000),RLSE),
|
|
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
|
|
//SYSIN DD DDNAME=EXTPARM
|
|
//*
|
|
//CNTRFILE DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(ES2CNTR),
|
|
// DISP=SHR
|
|
//ES202IMT DD DSN=DOESTAX.&LVLNODE..BD540.FTP.ES202IMT,
|
|
//* DISP=(NEW,CATLG,DELETE),
|
|
// DISP=SHR
|
|
//**** UNIT=3490,
|
|
//* UNIT=SYSDA,
|
|
//* SPACE=(27280,(150,250),RLSE),
|
|
//* DCB=(SYS3.MODEL,RECFM=FB,LRECL=1364,BLKSIZE=27280)
|
|
//ES202PRM DD DSN=&&ES202PRM,
|
|
// DISP=(NEW,PASS,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(6000,(10,10),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=6,BLKSIZE=6000)
|
|
//**
|
|
//**** SORT REPORT RECORDS
|
|
//STEP0200 EXEC DTSRSORT
|
|
//****
|
|
//STEP0300 EXEC PGM=DTSBD800, PRINT OUTPUT
|
|
// COND=(0,LT)
|
|
//SYSOUT DD SYSOUT=*
|
|
//SYSABOUT DD SYSOUT=*
|
|
//SYSUDUMP DD SYSOUT=*
|
|
//**
|
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
|
|
//DTSFVRI1 DD DSN=&&SRTRPT,DISP=(OLD,PASS,DELETE)
|
|
//**
|
|
//DTSFREF DD DSN=DOESTAX.&LVLMFILE..VSAM.REF,DISP=SHR,
|
|
// AMP=('BUFNI=5,BUFND=10')
|
|
//**
|
|
//PARMIN DD DUMMY
|
|
//**
|
|
//ATLSTIN DD DUMMY
|
|
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT
|
|
//RPT907R1 DD SYSOUT=Z,
|
|
// DEST=&LDEST.,
|
|
// HOLD=&LHOLD.
|
|
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT
|
|
//RPT907R2 DD SYSOUT=Z,COPIES=2,
|
|
// DEST=&LDEST.,
|
|
// HOLD=&LHOLD.
|
|
//** CONTROL REPORT SUMMARY
|
|
//RPT980R1 DD SYSOUT=Q,COPIES=2,
|
|
// HOLD=&LHOLD.,
|
|
// DEST=&LDEST.
|
|
//**********************************************************
|
|
//STEP0400 EXEC PGM=DTSBD541, EMPLOYER WAGE LISTING 00001899
|
|
// COND=(0,LT) 00002099
|
|
//SYSOUT DD SYSOUT=* 00003000
|
|
//SYSABOUT DD SYSOUT=* 00004000
|
|
//SYSUDUMP DD SYSOUT=* 00005000
|
|
//* 00008101
|
|
//ES202P1I DD DSN=&&ES202PRM,DISP=(OLD,PASS,DELETE) 00008299
|
|
//* 00008399
|
|
//DTSFWGH DD DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR, 00008499
|
|
// AMP=('BUFNI=5,BUFND=10') 00008599
|
|
//* 00008699
|
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00008799
|
|
//* 00008899
|
|
//OUTFILE1 DD DSN=&&OUTFILE1, 00009099
|
|
// DISP=(,PASS,DELETE), 00010099
|
|
// UNIT=SYSDA, 00020000
|
|
// SPACE=(32000,(1000,1000),RLSE), 00040099
|
|
// DCB=(RECFM=FB,LRECL=16,BLKSIZE=32000) 00050099
|
|
//* 00058000
|
|
//ES2WAGE DD DSN=DOESTAX.&LVLNODE..ES2WAGE, 00058199
|
|
//** DISP=(NEW,CATLG,DELETE), 00058299
|
|
// DISP=(OLD,KEEP,KEEP), 00058399
|
|
// UNIT=SYSDA, 00058499
|
|
// SPACE=(31200,(5000,1000),RLSE), 00058599
|
|
// DCB=(RECFM=FB,LRECL=26,BLKSIZE=31200) 00058699
|
|
//* 00058799
|
|
//EXPWAGE DD DSN=DOESTAX.&LVLNODE..FTP.ES2WAGE, 00058199
|
|
//** DISP=(NEW,CATLG,DELETE), 00058299
|
|
// DISP=(OLD,KEEP,KEEP), 00058399
|
|
// UNIT=SYSDA, 00058499
|
|
// SPACE=(27600,(1000,1000),RLSE), 00058599
|
|
// DCB=(RECFM=FB,LRECL=92,BLKSIZE=27600) 00058699
|
|
//* 00058799
|
|
//STEP0500 EXEC PGM=SORT, SORT BY SSN 00059099
|
|
// COND=(0,LT) 00060099
|
|
//SYSOUT DD SYSOUT=* 00070099
|
|
//SORTIN DD DSN=&&OUTFILE1, 00080099
|
|
// DISP=(OLD,PASS,DELETE), 00090099
|
|
// UNIT=SYSDA, 00100099
|
|
// SPACE=(CYL,(100,50),RLSE), 00110099
|
|
// DCB=(RECFM=FB,LRECL=16,BLKSIZE=32000) 00120099
|
|
//SORTOUT DD DSN=&&SRTFILE1, 00130099
|
|
// DISP=(NEW,PASS,DELETE), 00140099
|
|
// UNIT=SYSDA, 00150099
|
|
// SPACE=(CYL,(100,50),RLSE), 00160099
|
|
// DCB=(RECFM=FB,LRECL=16,BLKSIZE=32000) 00170099
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSD541),DISP=SHR 00180099
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(100,50),RLSE) 00190099
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(100,50),RLSE) 00200099
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(100,50),RLSE) 00210099
|
|
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(100,50),RLSE) 00220099
|
|
//* 00640000
|
|
//********************************************************************* 00650099
|
|
//STEP0600 EXEC PGM=DTSBD542, BUILD ETT FILE 00660099
|
|
// COND=(0,LT) 00680099
|
|
//SYSOUT DD SYSOUT=* 00700099
|
|
//SYSABOUT DD SYSOUT=* 00710099
|
|
//SYSUDUMP DD SYSOUT=* 00720099
|
|
//* 00721099
|
|
//ES202P2I DD DSN=&&ES202PRM,DISP=(OLD,DELETE,DELETE) 00722099
|
|
//* 00723099
|
|
//INFILE DD DSN=&&SRTFILE1, 00730099
|
|
// DISP=(OLD,PASS,DELETE), 00740099
|
|
// UNIT=SYSDA, 00750099
|
|
// SPACE=(CYL,(100,50),RLSE), 00760099
|
|
// DCB=(RECFM=FB,LRECL=16,BLKSIZE=32000) 00770099
|
|
//ETTFILE DD DSN=DOESTAX.&LVLNODE..ES202ETT, 00780099
|
|
//** DISP=(NEW,CATLG,DELETE), 00790099
|
|
// DISP=(OLD,KEEP,KEEP), 00791099
|
|
// UNIT=SYSDA, 00800099
|
|
//* SPACE=(32000,(1000,1000),RLSE), 00810099
|
|
// DCB=(RECFM=FB,LRECL=20,BLKSIZE=32000) 00820099
|
|
//* 00830099
|
|
//******************************************************************** 01030099
|