//DTSRQ506 JOB (UI,4300,3400,T),DTSYRLY.RATING.1,CLASS=P, 00010099 // MSGCLASS=X,NOTIFY=ECNTSUP, 00020096 //** USER=#DOADTS, 00021099 //**** TYPRUN=SCAN, 00030066 // REGION=0M 00040000 //**** CHECK '***>>>' ON LINES BELOW FOR A RERUN 00050000 //**** 00051000 //**** LEAVE JOBNAME DTSRQ506 TO CAPTURE VIEW DIRECT REPORTS ZL1 00051199 //**** 00051299 //* RUN YEARLY EXPERIENCE RATING PART 1 (DTSRQ500) 00052099 //* AFTER REVIEW OF THE THESE REPORTS, MAKE NEEDED ADJUSTMENTS AND 00053000 //* RUN YEARLY EXPERIENCE RATING PART 2 (DTSRQ517) 00054099 //* 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 ACHYEAR='FY2009' /* ARCHIVING YEAR 00100098 // SET LOADLIB='PROD' /* LOADLIB & PROCLIB YOU WANT TO USE 00100198 // SET LVLNODE='PROD' /* MASTER FILES YOU WANT TO USE 00101096 // SET MSTNODE='PROD' /* MASTER FILES YOU WANT TO USE 00102096 // SET UINODE='PROD' /* BENEFITS MASTER 00103075 // SET RATEYR='YR2025' 00110099 // SET TPSYRQ='YR2025' 00110199 // SET QTRLY='RT251' 00111099 // SET BD710='251,N,Y,R' /* (1):RTE-YR-START-YRQ,(2):PURGE-MRCT-IND 00120099 //* (3):UPD MASTER,(4):RUN TYPE 00130099 // SET BD720='251' /* RTE-YR-START-YRQ 00140099 // SET BD730='251,Y' /* RTE-YR-START-YRQ,RPT-EXISTING-AMT-IND 00150099 // SET BD740='251' /* RTE-YR-START-YRQ 00160099 // SET BD745='251,Y' /* RTE-YR-START-YRQ,OVERWRITE FUIR 00160199 //** /* 00161049 // SET LDEST='LOCAL' 00171018 // SET LHOLD='YES' 00180000 // SET CHGNODE='PROD' 00181070 // SET CHGMNBR='CHGM002' 00182048 // SET CHGMSSN='CHGM030' 00183072 //**** 00184080 //**** DEFINE INITIAL INPUT FILE(S) 00190000 //**** 00220000 //PROCLIB JCLLIB ORDER=DOESTAX.&LOADLIB..PROCS.BATCH.LIB 00231095 //LOADLIBS INCLUDE MEMBER=DTSIJLIB 00250095 //**** BACKUP BEFORE THIS RUN 00260000 //**** (NOT NEEDED IF RUN IMMEDIATELY 00270000 //**** *AFTER* A DAILY RUN) 00280000 //STEP0100 EXEC DTSUTVSM, 00290099 // BKUPGEN='(+1)' 00300099 //**** RUN THE EXTRACT 00301016 //STEP0200 EXEC DTSUXCGE EXTRACT BEN CHARGES 00302093 //STEP0300.SYSIN DD * 00302382 ANN, , ,YYYYY,000000 00302445 /* 00302535 //**** USE DISP=SHR, IF A RERUN ***>>> 00302649 //*STEP0100.DTSFVRO1 DD DISP=SHR /* CHG.BD205.RPT 00302875 //*STEP0300.CHGPARM DD DISP=SHR /* CHG.PARM 00302993 //*STEP1400.BD220CHG DD DISP=SHR /* CHG.BD220.RPT 00303091 //**** RUN THE EXTRACT 00310000 //STEP0300 EXEC DTSUX500 00320080 //**** 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 00520096 //** 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, 00610091 // DISP=(NEW,CATLG,DELETE), 00620091 // 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 DTSVRRPT 00720099 //** INDIVIDUAL RPT OVERRIDE(S) 00730000 //**STEP0100.RPT520R1 DD HOLD=NO 00740071 //STEP0100.RPT723R1 DD DUMMY 00741096 //** 00750000 //**** BACKUP AFTER THIS RUN 00760000 //STEP0600 EXEC DTSUTVSM, 00770096 // BKUPGEN='(+2)' (IF RUN *AFTER* THE DAILY) 00780099 //** BKUPGEN='(+2)' (IF RUN WITH A +1 ABOVE ) 00790099 //** 00800000