//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 (RUNRQ500)                   00000931
//*   & AFTER REPORT REVIEW AND ANY NEEDED ADJUSTMENTS,                 00001031
//*  RUN YEARLY EXPERIENCE RATING PART 2A (DTSRQ517) (MST UPDATE)       00001131
//*                    AND/OR                                           00001231
//*  RUN YEARLY EXPERIENCE RATING PART 2B (DTSRQ503) (NO 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='YR2025'                                                 00002665
//  SET RATEYR='YR2025'                                                 00002765
//  SET LDEST=U@PRT65                                                   00002864
//  SET LHOLD='YES'                                                     00002964
//  SET BD750='251,Y,R'  /*  RTE-YR-START-YRQ,UPD-MST-IND,RUN-TYPE      00003065
//  SET BD790='251'      /*  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
//*TEP0050 EXEC DTSUTVSM,                                               00004065
//*            BKUPGEN='(+1)'                                           00004165
//****                                       RUN THE EXTRACT            00004263
//****                                       RUN THE EXTRACT
//STEP0100 EXEC DTSUEXT,              CREATE TAX/TOT AVG RATE FOR
//          RUNTYPE='OR',             204 REPORT
//          PREBACK='N'
//STEP0100.EXTPARM  DD  *
530
/*
//****                                       SORT REPORT RECORDS        00041600
//STEP0200 EXEC DTSUX517                                                00004304
//****                                       SORT REPORT RECORDS        00041600
//STEP0300 EXEC PGM=SORT,                                                00041700
//             COND=(0,LT)                                              00041800
//SYSOUT   DD  SYSOUT=*                                                 00041900
//SORTIN   DD  DSN=DOESTAX.&LVLNODE..PER.RPT(+2),DISP=SHR               00042000
//         DD  DSN=DOESTAX.&LVLNODE..PER.RPT(+3),DISP=SHR               00043000
//SORTOUT  DD  DSN=&&SRPTREC,                                           00044113
//             DISP=(,PASS,DELETE),                                     00045015
//             UNIT=SYSDA,                                              00046000
//             SPACE=(8192,(3000,2000),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,                                                00083060
//             DISP=(NEW,CATLG,DELETE),                                 00083160
//             UNIT=SYSDA,                                              00083224
//             SPACE=(8192,(3000,2000),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 DTSVRRPT                                                00090000
//**                            TEXT VERSION OF ETA204 FOR DOWNLOAD     00110024
//STEP0100.RPT517R2 DD  DSN=DOESTAX.&LVLNODE..RATE204.&RATEYR.,         00130037
//****                                  USE DISP=SHR, IF A RERUN ***>>> 00131030
//***          DISP=SHR,                                                00140060
//             DISP=(NEW,CATLG,DELETE),                                 00141060
//             UNIT=SYSDA,                                              00150024
//             SPACE=(800,(10,10),RLSE),                                00160024
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=80)                       00170024
//**                                                                    00180061
//****                                      BACKUP AFTER THIS RUN       00650000
//STEP0500 EXEC DTSUTVSM,                                               00660065
//         BKUPGEN='(+1)'                  /* IF NO BKP IN STEP0100     00670065
//**       BKUPGEN='(+2)'            /* IF BKP RUN IN STEP0100)         00671031
//**                                                                    00680000