113 lines
8.9 KiB
Plaintext
113 lines
8.9 KiB
Plaintext
//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..PROCLIB 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,PARM='VLTEST=0', 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
|