//DTSRQ506 JOB (UI,4300,3400,T),PRODYRLY.RATING.1,CLASS=P,              00010076
//         MSGCLASS=X,NOTIFY=ECNTSUP,                                   00020084
//***      USER=#DOADTS,                                                00030077
//****     TYPRUN=SCAN,                                                 00031074
//         REGION=0M                                                    00040000
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//****                      CHECK '***>>>' ON LINES BELOW FOR A RERUN   00050000
//****                                                                  00051000
//*  RUN YEARLY EXPERIENCE RATING PART 1 (THIS JOB)                     00052000
//*  AFTER REVIEW OF THE THESE REPORTS, MAKE NEEDED ADJUSTMENTS AND     00053000
//*  RUN YEARLY EXPERIENCE RATING PART 2A (RUNRQ503) OR 2B (RUNRQ517)   00054000
//*                                                                     00055000
//*  **  THE FOLLOWING DATA ELEMENTS MUST BE ENTERED ON     (E.G.,)     00056000
//*  **  SCREEN 83 BEFORE STARTING THIS RUN:                            00057000
//*  **   1. CREATE A NEW FUIR RECORD BY ADDING A NEW                   00058000
//*  **      SCREEN 83 OCCURRENCE FOR THE NEW RATE YEAR     (011)       00059000
//*  **   2. ENTER THE RATE CUTOFF DATE (THE DATE ON                    00060000
//*  **      WHICH THE RATING PROCESS *BEGINS*)             (120800)    00070000
//*  **      AND THE RATE NOTICE DATE)                      (120800)    00071064
//*  **   3. ENTER THE TRUST FUND INTEREST AMOUNT                       00080000
//*  **   4. ENTER THE TRUST FUND BALANCE AMOUNT                        00081064
//****                                                                  00090000
//  SET LOADLIB='PROD'       /* LOADLIB & PROCLIB YOU WANT TO USE       00100074
//  SET LVLNODE='PROD'       /* MASTER FILES YOU WANT TO USE            00101074
//  SET TPSYRQ='YR2007'      /* TPS FILE                                00110183
//  SET RATEYR='YR2007'                                                 00110283
//  SET QTRLY='RT071'                                                   00111083
//  SET BD710='071,Y'        /*  RTE-YR-START-YRQ,PURGE-MRCT-IND        00120083
//  SET BD720='071'          /*  RTE-YR-START-YRQ                       00140083
//  SET BD730='071,Y'        /*  RTE-YR-START-YRQ,RPT-EXISTING-AMT-IND  00150083
//  SET BD740='071'          /*  RTE-YR-START-YRQ                       00160083
//  SET BD745='071,N'        /*  RTE-YR-START-YRQ,OVERWRITE FUIR        00160183
//**                         /*                                         00161049
//  SET LDEST=U@PRT65                                                   00171018
//  SET LHOLD='YES'                                                     00180000
//  SET CHGNODE='PROD'                                                  00181070
//  SET UINODE='PROD'                                                   00181181
//  SET CHGMNBR='CHGM002'                                               00182048
//  SET CHGMSSN='CHGM030'                                               00183072
//****                                                                  00220000
//PROCLIB  JCLLIB ORDER=DOESTAX.&LOADLIB..PROCS.BATCH.LIB                       00231062
//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00250010
//****                                       BACKUP BEFORE THIS RUN     00260000
//****                            (NOT NEEDED IF RUN IMMEDIATELY        00270000
//****                                     *AFTER* A DAILY RUN)         00280000
//**//STEP0100 EXEC DTSUTVSM,                                           00290080
//**//           BKUPGEN='(+1)'                                         00300080
//****                                       RUN THE EXTRACT            00301016
//STEP0200 EXEC DTSUXCGP                     EXTRACT BEN CHARGES        00302026
//STEP0100.SYSIN  DD  *                                                 00302335
ANN,      ,      ,YYYYYY,000000                                         00302479
/*                                                                      00302535
//****                                  USE DISP=SHR, IF A RERUN ***>>> 00302649
//**STEP0100.DTSFVRO1 DD  DISP=SHR       /* CHG.BD205.RPT               00302879
//**STEP0100.CHGPARM  DD  DISP=SHR       /* CHG.PARM                    00302979
//**STEP0500.BD220CHG DD  DISP=SHR       /* CHG.BD220.RPT               00303079
//****                                       RUN THE EXTRACT            00310000
//STEP0300 EXEC DTSUX506                                                00320029
//****                                       SORT REPORT RECORDS        00350000
//STEP0400 EXEC PGM=SORT,                                                00360016
//             COND=(0,LT)                                              00370000
//SYSOUT   DD  SYSOUT=*                                                 00380000
//SORTIN   DD  DSN=DOESTAX.&LVLNODE..PER.RPT(+1),DISP=SHR               00390062
//         DD  DSN=DOESTAX.&LVLNODE..PER.RPT(+2),DISP=SHR               00400062
//         DD  DSN=DOESTAX.&LVLNODE..PER.RPT(+3),DISP=SHR               00410062
//         DD  DSN=DOESTAX.&LVLNODE..PER.RPT(+4),DISP=SHR               00420062
//SORTOUT  DD  DSN=&&SRPTREC,                                           00430000
//             DISP=(,PASS,DELETE),                                     00440000
//             UNIT=SYSDA,                                              00450000
//             SPACE=(8192,(1000,1000),RLSE),                           00460000
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)                   00470000
//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)                      00480000
//SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)                      00490000
//SORTWK03 DD  UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)                      00500000
//SORTWK04 DD  UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)                      00510000
//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSRREC),DISP=SHR    00520062
//**                                                                    00530000
//**                              /* SAVE SORTED REPORT FILE            00531071
//STEP0410 EXEC PGM=IDCAMS,                                             00540071
//             COND=(0,LT)                                              00550000
//SYSPRINT DD  SYSOUT=*                                                 00560000
//INDD01   DD  DSN=&&SRPTREC,                                           00570000
//             DISP=(OLD,PASS,DELETE)                                   00580000
//OUTDD01  DD  DSN=DOESTAX.&LVLNODE..RATE506.RPT.&RATEYR.,              00590062
//****                                  USE DISP=SHR, IF A RERUN ***>>> 00600000
//***             DISP=SHR,                                             00610079
//             DISP=(NEW,CATLG,DELETE),                                 00620079
//             UNIT=SYSDA,                                              00630000
//             SPACE=(8192,(1000,1000),RLSE),                           00640000
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)                   00650000
//SYSIN    DD  *                                                        00660000
  REPRO INFILE(INDD01) -                                                00670000
        OUTFILE(OUTDD01) -                                              00680000
        REPLACE                                                         00690000
/*                                                                      00700000
//****                                      RUN THE REPORTS             00710000
//STEP0500 EXEC DTSARRPT                                                00720016
//**                      INDIVIDUAL RPT OVERRIDE(S)                    00730000
//STEP0100.RPT723R1 DD DUMMY      /* TPS FILE- LEAVE ASIS               00740082
//**STEP0100.RPT520R1 DD HOLD=NO                                        00741082
//**                                                                    00750000
//****                                      BACKUP AFTER THIS RUN       00760000
//STEP0600 EXEC DTSUTVSM,                                               00770080
//           BKUPGEN='(+1)'              (IF RUN *AFTER* THE DAILY)     00780080
//**           BKUPGEN='(+2)'              (IF RUN WITH A +1 ABOVE  )   00790080
//**                                                                    00800000