107 lines
8.4 KiB
Plaintext
107 lines
8.4 KiB
Plaintext
//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..PROCLIB 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,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 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
|