//DTSRQ518 JOB (UI,4300,3400,T),ANN.RATE.NOTIC,CLASS=S,MSGCLASS=X,      00000158
//         NOTIFY=ECNTSUP,                                              00000358
//****     TYPRUN=SCAN,                                                 00000418
//         USER=#DOADTS,                                                00000559
//         REGION=0M                                                    00000631
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//****                      CHECK '***>>>' ON LINES BELOW FOR A RERUN   00000731
//****                                                                  00000831
//*        RATE NOTIFICATION PROCESS FOR ANNUAL FILERS                  00000945
//*                                                                     00001046
//*        NORMALLY RUNS IN MAY AFTER ALL TIMELY ANNUAL REPORTS         00001145
//*        HAVE BEEN ENTERED.                                           00001245
//*        RECALCULATES ESTIMATED RATES BASED ON REPORTED DATA          00001345
//*        AND PRINTS RATE NOTICES FOR ALL ANNUAL FILERS.               00001445
//****                                                                  00001545
//*  YEARLY EXPERIENCE RATING PART 2B (RUNRQ517) MUST HAVE              00002045
//*  RUN PRIOR TO RUNNING THIS JOB.                                     00002145
//****                                                                  00002231
//*  ***  THE FOLLOWING DATA ELEMENTS MUST BE AVAILABLE      ***        00002331
//*  ***  BEFORE STARTING THIS RUN:                          ***        00002431
//*  ***     1. THE RATE NOTICE DATE (THE DATE               ***        00002531
//*  ***        PRINTED ON THE RATE NOTICES) ON SCREEN 83    ***        00002631
//*  ***     2. A CALENDAR YEAR REFERENCE FILE RECORD        ***        00002731
//*  ***        (FCYR) ON SCREEN 81. THIS RECORD WILL        ***        00002831
//*  ***        INCLUDE THE TAXABLE WAGE BASE AND THE        ***        00002931
//*  ***        FUTA CREDIT RATE FOR THE NEW RATE YEAR.      ***        00003031
//****                                                                  00003131
//  SET MSTNODE='PROD'            REGION VSAM MASTER FILES              00003257
//  SET LVLNODE='PROD'            REGION BATCH LOADLIB/PROCLIB          00003357
//*                                                                     00003451
//  SET TPSYRQ='YR2007'                                                 00003560
//  SET RATEYR='AN2007'                                                 00003660
//  SET LDEST=U@PRT65                                                   00003760
//  SET LHOLD='YES'                                                     00003860
//  SET BD750='071,Y,A'  /*  RTE-YR-START-YRQ,UPD-MST-IND,RUN-TYPE      00003960
//  SET BD790='071'      /*  RTE-YR-START-YRQ                           00004060
//****                                                                  00004160
//  SET CHGNODE='PROD'                                                  00004260
//  SET CHGMNBR='CHGM002'                                               00004360
//****                                                                  00004460
//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB                       00004560
//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00004660
//****                                       BACKUP BEFORE THIS RUN     00004760
//****                         (NOT NEEDED IF RUN RIGHT AFTER A DAILY)  00004860
//*STEP0100 EXEC DTSUTVSM,                                              00004960
//*             BKUPGEN='(+1)'                                          00005060
//****                                       RUN THE EXTRACT            00005160
//STEP0200 EXEC DTSUX518                                                00006050
//****                                       SORT REPORT RECORDS        00041600
//STEP0300 EXEC PGM=SORT,PARM='VLTEST=0',                               00041700
//             COND=(0,LT)                                              00041800
//SYSOUT   DD  SYSOUT=*                                                 00041900
//SORTIN   DD  DSN=DOESTAX.&LVLNODE..PER.RPT(+1),DISP=SHR               00042000
//SORTOUT  DD  DSN=&&SRPTREC,                                           00044113
//             DISP=(,PASS,DELETE),                                     00045015
//             UNIT=SYSDA,                                              00046000
//             SPACE=(8192,(1000,1000),RLSE),                           00047000
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)                   00048015
//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)                      00049027
//SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)                      00050027
//SORTWK03 DD  UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)                      00060027
//SORTWK04 DD  UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)                      00070027
//SORTWK05 DD  UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)                      00071027
//SORTWK06 DD  UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)                      00072027
//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSRREC),DISP=SHR    00080000
//**                                                                    00081000
//STEP0310 EXEC PGM=IDCAMS,       SAVE SORTED REPORT FILE               00082013
//             COND=(0,LT)                                              00082113
//SYSPRINT DD  SYSOUT=*                                                 00082213
//INDD01   DD  DSN=&&SRPTREC,                                           00082313
//             DISP=(OLD,PASS,DELETE)                                   00082415
//OUTDD01  DD  DSN=DOESTAX.&LVLNODE..RATE517.RPT.&RATEYR.,              00082825
//****                                  USE DISP=SHR, IF A RERUN ***>>> 00082924
//***          DISP=SHR,                                                00083057
//             DISP=(NEW,CATLG,DELETE),                                 00083157
//             UNIT=SYSDA,                                              00083224
//             SPACE=(8192,(1000,1000),RLSE),                           00083324
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)                   00083425
//SYSIN    DD  *                                                        00083524
  REPRO INFILE(INDD01) -                                                00083624
        OUTFILE(OUTDD01) -                                              00083724
        REPLACE                                                         00083824
/*                                                                      00083924
//****                                      RUN THE REPORTS             00084000
//STEP0400 EXEC DTSARRPT                                                00090000
//**                            TEXT VERSION OF ETA204 FOR DOWNLOAD     00110024
//STEP0100.RPT723R1 DD  DUMMY             /*LEAVE ASIS TPS FILE         00130060
//STEP0100.RPT517R2 DD  DSN=DOESTAX.&LVLNODE..RATE204.&RATEYR.,         00130160
//****                                  USE DISP=SHR, IF A RERUN ***>>> 00131030
//***          DISP=SHR,                                                00140057
//             DISP=(NEW,CATLG,DELETE),                                 00141057
//             UNIT=SYSDA,                                              00150024
//             SPACE=(800,(10,10),RLSE),                                00160024
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=80)                       00170024
//****                                      BACKUP AFTER THIS RUN       00650000
//STEP0500 EXEC DTSUTVSM,                                               00660057
//             BKUPGEN='(+1)'              /* IF NO BKP IN STEP0100     00670057
//**             BKUPGEN='(+2)'            /* IF BKP RUN IN STEP0100)   00671031
//**                                                                    00680000