//*****************************************************************
//*  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