//DTSRQ120 JOB (UI,4300,3400,T),PROD.BE120,CLASS=P,MSGCLASS=X,          00010013
//         NOTIFY=ECNTSUP,                                              00020018
//         REGION=0M                                                    00050000
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//**                                                                    00051000
//  SET  UINODE='PROD'       /*                                         00051121
//  SET PRGNODE='PROD'       /*                                         00051221
//  SET LVLNODE='PROD'       /*                                         00051321
//  SET CHGNODE='PROD'                                                  00051421
//  SET CHGMNBR='CHGM002'                                               00051521
//  SET CHGMSSN='CHGM030'                                               00051621
//  SET   QTRLY='SPE0316'                                               00051721
//  SET   LDEST=U@PRT65                                                 00051821
//  SET   LHOLD='YES'                                                   00051921
//*                                                                     00054000
//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB                       00060000
//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00070000
//****                                                                  00080000
//*    ON REQUEST REPORT DTSBR120 -                                     00130000
//*                      POTENTIALLY FICTITIOUS EMPLOYERS               00140000
//****                                                                  00160000
//*          NO BACKUP NEEDED BEFORE THIS REPORT                        00200003
//****                                                                  00250003
//*                  THIS COMPARISON USUALLY CONSISTS OF:               00251003
//*   BENEFIT/CHRG DATA FOR THE LAST FOUR COMPLETED QUARTERS, WITH      00260003
//*   THE UI TAX LIABILITY DATA PRECEDING THIS BENEFIT/CHRG SPAN        00261001
//*   BY 180 DAYS.   E.G.:                                              00262001
//*  (*) IF THIS JOB RUNS ON 04/04/01, THEN THE BENEFIT/CHARGE DATA     00270003
//*                 USED ARE 04/01/00 TO 03/31/01                       00271001
//*                                   AND THE UI TAX LIABILITY DATA     00272001
//*                 USED ARE 10/01/99 TO 09/30/00                       00272101
//*  10/01/99-09/30/00 PRECEDES 04/01/00-03/31/01 BY 180 DAYS.          00273001
//*                                                                     00273101
//**   BEN/CHRG DATA ->    |  00/2  |  00/3  |  00/4  |  01/1  | (*)    00274010
//**     |  99/4  |  00/1  |  00/2  |  00/3  |   <- UI TAX DATA         00275010
//****                                                                  00281001
//*   STEP0100 WILL EXTRACT BENEFIT CHARGE DATA FOR THE DESIRED SPAN:   00282003
//*                                                                     00283003
//*  COLS.       RUN TYPE:                                              00283103
//*  01-03 RPT    = REPRINT REPORTS SPECIFIED IN REPORT TYPE PARM       00283204
//*  05-10 MMDDYY = START DATE OF SELECTION                             00283903
//*  12-17 MMDDYY = END DATE OF SELECTION                               00284003
//*  19-23 YNNNN  = REPORT TYPES DESIRED:                               00284204
//*                 - Y/N  RATED REPORT             (W)(O)              00284304
//*                                                                     00284803
//****SET EXTRACT PARM IN DOESTAX.&LVLNODE.APPL.PARMLIB(CHGPARM)        00285203
//*                                             (OR NOT... FOR NOW)     00285303
//****                                                                  00285403
//STEP0100 EXEC DTSUXCGP                                                00285503
//STEP0100.SYSIN DD *                                                   00285603
RPT,040116,123117,YNNNN,000000                                          00285720
/*                                     /* USE THESE FOR A RERUN <==     00285803
//*TEP0100.CHGPARM  DD  DISP=SHR       /* CHARGE PARM                   00285913
//*TEP0100.DTSFVRO1 DD  DISP=SHR       /* CHG.BD205.RPT                 00286013
//*TEP0500.BD220CHG DD  DISP=SHR       /* CHG.BD220.RPT                 00286113
//****                                                                  00286303
//*              SYSIN CARD: RPT,070101,063002,YNNNN,000000             00286403
//****                                                                  00286503
//*   STEP0200 WILL EXTRACT UI TAX LIABILIY DATA FOR THE DESIRED SPAN:  00286604
//*                                                                     00286704
//*  COLS.                                                              00286804
//*  01-03 120    = EXTRACT FOR RPT120                                  00286904
//*  05-10 MMDDYY = START DATE OF SELECTION                             00287004
//*  12-17 MMDDYY = END DATE OF SELECTION                               00287104
//*  19-21 NNN    = MAX. NBR. OF EMPLOYEES PER EMPLOYER TO BE EXAMINED  00287304
//*                                                                     00287504
//STEP0200 EXEC DTSUX120,                                               00287611
//             RUNTYPE='OR'                                             00287704
//STEP0100.SORTIN  DD DSN=DOESTAX.&LVLNODE..CHG.BD220.RPT.&QTRLY,       00287806
//          DISP=SHR                                                    00287906
//STEP0200.EXTPARM DD *                                                 00288006
120,070114,063015,005                                                   00288120
/*                                                                      00288206
//****                                                                  00288306
//*              SYSIN CARD: 120,010101,123101,005                      00288406
//****                                                                  00288506
//****                     REPORT RECORD SORT                           00288606
//STEP0250 EXEC DTSRSORT                                                00288706
//****                     REPORT GENERATION                            00289004
//STEP0300 EXEC DTSRQRPT                                                00290002
//**                           POTENTIALLY FICTITIOUS EMPLYRS           00310121
//*TEP0100.RPT120R1 DD  SYSOUT=(V,DTS120R1),HOLD=&LVDHOLD.,             00310221
//STEP0100.RPT120R1 DD  SYSOUT=*                                        00310221
//STEP0100.RPT907R1 DD  SYSOUT=*                                        00310421
//STEP0100.RPT907R2 DD DUMMY                                            00310621
//STEP0100.RPT980R1 DD  SYSOUT=*                                        00310721
//STEP0100.CHGPARM  DD DSN=DOESTAX.&LVLNODE..CHG.PARM.&QTRLY,           00310908
//            DISP=SHR                                                  00311008
//DOESLBLP.DOESLBL1 DD DUMMY                      LABELS                00312007
//****                                                                  00320004