//DTSRQ127 JOB (UI,4300,3400,T),PROD.BE127.NO-UPDT,CLASS=A,             00000010
//       MSGCLASS=X,                                                    00000010
//       NOTIFY=ECNTZL1,
//       USER=#DOADTS,
//****   TYPRUN=SCAN,
//       REGION=0M
//****
//    SET LVLNODE='PROD'
//    SET MSTNODE='PROD'
//    SET   LHOLD='YES'
//****                                                             |
//****  ANNUAL FILERS ADMIN OUT PROCESS - RUN BEFORE ANNUAL LATE PEN
//****                                                             |
//* RPT127R1  = '8 QUARTERS AND 0 WAGE REPORTS FILED           ZL1
//****                                                             |
//*================================================================|
//***
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//*
//*********************************************************************
//STEP0100 EXEC DTSUEXT,                    BD400 EXTRACT
//          RUNTYPE='OR',
//          PREBACK='Y'
//*                                         031/YYM IN SYSIN
//STEP0100.EXTPARM  DD  *
127,ECNTSUP ,221,234,Y,
/*
//***                                       SORT REPORT RECORDS
//STEP0200 EXEC DTSRSORT
//*STEP0200 EXEC DTSSR332
//***
//*                                         REPORT GENERATION
//STEP0300 EXEC DTSRQRPT
//*                                         SPECIFIC OVERRIDES
//STEP0100.RPT117R2 DD  HOLD=YES
//STEP0100.RPT980R1 DD  HOLD=YES
//*