//DTSRQ503 JOB (UI,4300,3400,T),PRODYRLY.RATING.2A,CLASS=P,             00000197
//         MSGCLASS=X,                                                  00000261
//         NOTIFY=ECNTSUP,                                              00000394
//***      USER=#DOADTS,                                                00000499
//****     TYPRUN=SCAN,                                                 00000597
//         REGION=0M                                                    00000697
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//****                                                                  00000797
//*  AFTER YEARLY EXPERIENCE RATING PART 1 (RUNRQ506)                   00000897
//*   & AFTER REPORT REVIEW AND ANY NEEDED ADJUSTMENTS,                 00000997
//*  RUN YEARLY EXPERIENCE RATING PART 2A (THIS RUN) (*NO* MST UPDATE)  00001097
//*                    AND/OR                                           00001197
//*  RUN YEARLY EXPERIENCE RATING PART 2B (RUNRQ517) (WITH MST UPDATE)  00001297
//****                                                                  00001397
//*  ***  THE FOLLOWING DATA ELEMENT MUST BE AVAILABLE     (E.G.,)      00001497
//*  ***  BEFORE STARTING THIS RUN:                                     00001597
//*  ***     1. ENTER THE RATE NOTICE DATE (THE DATE       (010801)     00001762
//*  ***        PRINTED ON THE RATE NOTICES) ON SCREEN 83               00001862
//*  ***     2. ADD A CALENDAR YEAR REFERENCE FILE RECORD  (01)         00001962
//*  ***        (FCYR) ON SCREEN 81. THIS RECORD WILL                   00002062
//*  ***        INCLUDE THE TAXABLE WAGE BASE AND THE      (9,000.00)   00002162
//*  ***        FUTA CREDIT RATE FOR THE NEW RATE YEAR.    (5.4)        00002262
//****                                                                  00002360
//  SET RATEYR='YR2007'                                                 00002599
//  SET TPSYRQ='YR2007'                                                 00002699
//  SET LDEST=U@PRT65                                                   00002760
//  SET LHOLD='YES'                                                     00002860
//  SET BD750='071,N,R'  RTE-YR-START-YRQ,UPD-MSTR,R= REG;A= ANN        00002999
//  SET BD790='071'            RTE-YR-START-YRQ                         00003099
//****                                                                  00003190
//  SET LVLNODE='PROD'                                                  00003299
//  SET CHGNODE='PROD'                                                  00003399
//  SET CHGMNBR='CHGM002'                                               00003499
//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB                       00003599
//****                                                                  00003699
//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00003799
//****                               /* BKP BEFORE RUN  (NOT NEEDED     00004498
//*STEP0100 EXEC DTSUTVSM,            /* IF RUN RIGHT AFTER DAILY)      00004599
//*            BKUPGEN='(+1)'                                           00004699
//****                                                                  00004867
//STEP0200 EXEC DTSUX503                                                00004947
//STEP0100.DTSFBTCO DD  DUMMY                                           00005061
//****                                       SORT REPORT RECORDS        00041639
//STEP0300 EXEC PGM=SORT,PARM='VLTEST=0',                               00041739
//             COND=(0,LT)                                              00041839
//SYSOUT   DD  SYSOUT=*                                                 00041939
//SORTIN   DD  DSN=DOESTAX.&LVLNODE..PER.RPT(+1),DISP=SHR               00042042
//**       DD  DSN=DOESTAX.&LVLNODE..PER.RPT(+2),DISP=SHR               00043066
//SORTOUT  DD  DSN=&&SRPTREC,                                           00044039
//             DISP=(,PASS,DELETE),                                     00045039
//             UNIT=SYSDA,                                              00046039
//             SPACE=(8192,(1000,1000),RLSE),                           00047039
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)                   00048039
//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)                      00049039
//SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)                      00050039
//SORTWK03 DD  UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)                      00060039
//SORTWK04 DD  UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)                      00070039
//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSRREC),DISP=SHR    00080042
//**                                                                    00081040
//**                              /* SAVE SORTED REPORT FILE            00082098
//STEP0410 EXEC PGM=IDCAMS,                                             00082198
//             COND=(0,LT)                                              00082298
//SYSPRINT DD  SYSOUT=*                                                 00082398
//INDD01   DD  DSN=&&SRPTREC,                                           00082498
//             DISP=(OLD,PASS,DELETE)                                   00082598
//OUTDD01  DD  DSN=DOESTAX.&LVLNODE..RATE503.RPT.&RATEYR.,              00082698
//****                                  USE DISP=SHR, IF A RERUN ***>>> 00082798
//***          DISP=SHR,                                                00082898
//             DISP=(NEW,CATLG,DELETE),                                 00082998
//             UNIT=SYSDA,                                              00083098
//             SPACE=(8192,(1000,1000),RLSE),                           00083198
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)                   00083298
//SYSIN    DD  *                                                        00083398
  REPRO INFILE(INDD01) -                                                00083498
        OUTFILE(OUTDD01) -                                              00083598
        REPLACE                                                         00083698
/*                                                                      00083798
//****                                      RUN THE REPORTS             00084040
//STEP0500 EXEC DTSARRPT                                                00090098
//*STEP0100.PARMIN DD *                                                 00091080
//*DTSBD800,EXC,515                                                     00092080
//*/*                                                                   00093080
//STEP0100.RPT723R1 DD DUMMY    /* TPS FILE                             00100099
//**STEP0100.RPT503R1 DD DUMMY    /* RATE NOTICES  (W) NOT NEEDED       00100199
//**STEP0100.RPT503R2 DD DUMMY    /* PENALTY RATES (W) NOT NEEDED       00101095
//**STEP0100.RPT517R2 DD DUMMY    /* ETA204 DOWNLOAD   NOT NEEDED       00110095
//**                                                                    00680039
//****                            /* BKP AFTER THE RUN                  00690097
//STEP0600 EXEC DTSUTVSM,         /* MAKE IT (+2) IF BKP IN STEP0100    00700098
//            BKUPGEN='(+1)'      /*                 ALSO RUN           00710099
//**                                                                    00720099