//DTSRQ517 JOB (UI,4300,3400,T),PRODYRLY.RATING.2B,                     00000163
//         CLASS=P,MSGCLASS=X,                                          00000261
//         NOTIFY=ECNTSUP,                                              00000363
//****     TYPRUN=SCAN,                                                 00000458
//***      USER=#DOADTS,                                                00000563
//         REGION=0M                                                    00000631
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//****                      CHECK '***>>>' ON LINES BELOW FOR A RERUN   00000731
//****                                                                  00000831
//*  AFTER YEARLY EXPERIENCE RATING PART 1 (RUNRQ506)                   00000931
//*   & AFTER REPORT REVIEW AND ANY NEEDED ADJUSTMENTS,                 00001031
//*  RUN YEARLY EXPERIENCE RATING PART 2A (RUNRQ503) (*NO* MST UPDATE)  00001131
//*                    AND/OR                                           00001231
//*  RUN YEARLY EXPERIENCE RATING PART 2B (THIS RUN) (WITH MST UPDATE)  00001331
//****                                                                  00001431
//*  ***  THE FOLLOWING DATA ELEMENTS MUST BE AVAILABLE      ***        00001531
//*  ***  BEFORE STARTING THIS RUN:                          ***        00001631
//*  ***     1. THE RATE NOTICE DATE (THE DATE               ***        00001731
//*  ***        PRINTED ON THE RATE NOTICES) ON SCREEN 83    ***        00001831
//*  ***     2. A CALENDAR YEAR REFERENCE FILE RECORD        ***        00001931
//*  ***        (FCYR) ON SCREEN 81. THIS RECORD WILL        ***        00002031
//*  ***        INCLUDE THE TAXABLE WAGE BASE AND THE        ***        00002131
//*  ***        FUTA CREDIT RATE FOR THE NEW RATE YEAR.      ***        00002231
//****                                                                  00002331
//  SET LOADLIB='PROD'                                                  00002461
//  SET LVLNODE='PROD'                                                  00002561
//  SET TPSYRQ='YR2007'                                                 00002665
//  SET RATEYR='YR2007'                                                 00002765
//  SET LDEST=U@PRT65                                                   00002864
//  SET LVDHOLD='YES'                                                   00002964
//  SET BD750='071,Y,R'  /*  RTE-YR-START-YRQ,UPD-MST-IND,RUN-TYPE      00003065
//  SET BD790='071'      /*  RTE-YR-START-YRQ             A=ANNUAL      00003165
//****                   /*                               R=REGULAR     00003265
//  SET CHGNODE='PROD'                                                  00003364
//  SET CHGMNBR='CHGM002'                                               00003464
//****                                                                  00003564
//PROCLIB  JCLLIB ORDER=DOESTAX.&LOADLIB..PROCS.BATCH.LIB                       00003664
//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00003764
//****                                       BACKUP BEFORE THIS RUN     00003800
//****                         (NOT NEEDED IF RUN RIGHT AFTER A DAILY)  00003931
//*TEP0100 EXEC DTSUTVSM,                                               00004065
//*            BKUPGEN='(+1)'                                           00004165
//****                                       RUN THE EXTRACT            00004263
//****                                       SORT REPORT RECORDS        00041600
//STEP0400 EXEC DTSARRVD                                                00090000
//**                            TEXT VERSION OF ETA204 FOR DOWNLOAD     00110024
//**                                                                    00680000