//DTSRQ518 JOB (UI,4300,3400,T),YRLY.ANN.RATEN,CLASS=S,MSGCLASS=X,      00000100
//         NOTIFY=ECNTSUP,                                              00000300
//         USER=#DOADTS,                                                00000400
//****     TYPRUN=SCAN,                                                 00000500
//         REGION=0M                                                    00000600
//****                                                                  00000800
//*        RATE NOTIFICATION PROCESS FOR ANNUAL FILERS                  00000900
//*                                                                     00001000
//*        NORMALLY RUNS IN MAY AFTER ALL TIMELY ANNUAL REPORTS         00001100
//*        HAVE BEEN ENTERED.                                           00001200
//*        RECALCULATES ESTIMATED RATES BASED ON REPORTED DATA          00001300
//*        AND PRINTS RATE NOTICES FOR ALL ANNUAL FILERS.               00001400
//****                                                                  00001500
//*  ***  THE FOLLOWING DATA ELEMENTS MUST BE AVAILABLE      ***        00002300
//*  ***  BEFORE STARTING THIS RUN:                          ***        00002400
//*  ***     1. THE RATE NOTICE DATE (THE DATE               ***        00002500
//*  ***        PRINTED ON THE RATE NOTICES) ON SCREEN 83    ***        00002600
//*  ***     2. A CALENDAR YEAR REFERENCE FILE RECORD        ***        00002700
//*  ***        (FCYR) ON SCREEN 81. THIS RECORD WILL        ***        00002800
//*  ***        INCLUDE THE TAXABLE WAGE BASE AND THE        ***        00002900
//*  ***        FUTA CREDIT RATE FOR THE NEW RATE YEAR.      ***        00003000
//****                                                                  00003100
//  SET MSTNODE='PROD'            REGION VSAM MASTER FILES              00003200
//  SET LVLNODE='PROD'            REGION BATCH LOADLIB/PROCLIB          00003300
//*                                                                     00003400
//  SET ACHYEAR='FY2009'                                                00003500
//  SET RATEYR='AN2013'                                                 00003600
//  SET QTRLY='AN2013'                                                  00003700
//  SET LDEST='LOCAL'                                                   00003800
//  SET LHOLD='YES'                                                     00003900
//  SET BD710='131,N,Y,A'    (1):RTE-YR-START-YRQ,(2):PURGE-MRCT-IND    00004000
//*                          (3):UPD-MST-IND,(4):RUN-TYPE               00004100
//  SET BD750='131,Y,A'  /*  RTE-YR-START-YRQ,UPD-MST-IND,RUN-TYPE      00004200
//  SET BD790='131'      /*  RTE-YR-START-YRQ                           00004300
//****                                                                  00004400
//  SET CHGNODE='PROD'                                                  00004500
//  SET CHGMNBR='CHGM002'                                               00004600
//  SET BCKNODE='BACKUP'                                                00004700
//****                                                                  00004800
//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB                       00004900
//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00005000
//****                                       BACKUP BEFORE THIS RUN     00005100
//****                         (NOT NEEDED IF RUN RIGHT AFTER A DAILY)  00005200
//*STEP0100 EXEC DTSUTVSM,                                              00005300
//*             BKUPGEN='(+1)'                                          00005400
//****                                       RUN THE EXTRACT            00005500
//****                                       RUN THE EXTRACT            00005600
//STEP0200 EXEC DTSUXCGE                     EXTRACT BEN CHARGES        00005700
//STEP0300.SYSIN  DD  *                                                 00005800
ANN,      ,      ,YYYYY,000000                                          00005900
/*                                                                      00006000
//****                                                                  00006100
//STEP0200 EXEC DTSUX518                                                00007000
//****                                       SORT REPORT RECORDS        00041600
//STEP0300 EXEC PGM=SORT,                                                00041700
//             COND=(0,LT)                                              00041800
//SYSOUT   DD  SYSOUT=*                                                 00041900
//SORTIN   DD  DSN=DOESTAX.&LVLNODE..PER.RPT(+1),DISP=SHR               00042000
//         DD  DSN=DOESTAX.&LVLNODE..PER.RPT(+2),DISP=SHR               00043000
//SORTOUT  DD  DSN=&&SRPTREC,                                           00044100
//             DISP=(,PASS,DELETE),                                     00045000
//             UNIT=SYSDA,                                              00046000
//             SPACE=(8192,(1000,1000),RLSE),                           00047000
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)                   00048000
//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)                      00049000
//SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)                      00050000
//SORTWK03 DD  UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)                      00060000
//SORTWK04 DD  UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)                      00070000
//SORTWK05 DD  UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)                      00071000
//SORTWK06 DD  UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)                      00072000
//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSRREC),DISP=SHR    00080000
//**                                                                    00081000
//STEP0310 EXEC PGM=IDCAMS,       SAVE SORTED REPORT FILE               00082000
//             COND=(0,LT)                                              00082100
//SYSPRINT DD  SYSOUT=*                                                 00082200
//INDD01   DD  DSN=&&SRPTREC,                                           00082300
//             DISP=(OLD,PASS,DELETE)                                   00082400
//OUTDD01  DD  DSN=DOESTAX.&LVLNODE..RATE517.RPT.&RATEYR.,              00082800
//****                                  USE DISP=SHR, IF A RERUN ***>>> 00082900
//**           DISP=SHR,                                                00083000
//             DISP=(NEW,CATLG,DELETE),                                 00083100
//             UNIT=SYSDA,                                              00083200
//             SPACE=(8192,(1000,1000),RLSE),                           00083300
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)                   00083400
//SYSIN    DD  *                                                        00083500
  REPRO INFILE(INDD01) -                                                00083600
        OUTFILE(OUTDD01) -                                              00083700
        REPLACE                                                         00083800
/*                                                                      00083900
//****                                      RUN THE REPORTS             00084000
//STEP0400 EXEC DTSVARPT                                                00090000
//**                            TEXT VERSION OF ETA204 FOR DOWNLOAD     00110000
//STEP0100.RPT517R2 DD  DSN=DOESTAX.&LVLNODE..RATE204.&RATEYR.,         00130000
//***                                   USE DISP=SHR, IF A RERUN ***>>> 00131000
//*            DISP=SHR                                                 00140000
//             DISP=(NEW,CATLG,DELETE),                                 00141000
//             UNIT=SYSDA,                                              00150000
//             SPACE=(800,(10,10),RLSE),                                00160000
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=80)                       00170000
//****                                                                  00171000
//****                          /ARCHIVE ANNUAL FILERS 503 RECORDS      00180000
//STEP0500 EXEC DTSAR518                                                00190000
//****                                      BACKUP AFTER THIS RUN       00650000
//STEP0600 EXEC DTSUTVSM,                                               00660000
//             BKUPGEN='(+1)'            /* IF NO BKP IN STEP0100       00670000
//*            BKUPGEN='(+2)'            /* IF BKP RUN IN STEP0100)     00671000
//**                                                                    00680000