92 lines
7.2 KiB
Plaintext
92 lines
7.2 KiB
Plaintext
//DTSRQ503 JOB (UI,4300,3400,T),PRODYRLY.RATING.2A,CLASS=P, 00000197
|
|
// MSGCLASS=X, 00000261
|
|
// NOTIFY=ECNTSUP, 00000394
|
|
//*** USER=#DOADTS, 00000499
|
|
//**** TYPRUN=SCAN, 00000597
|
|
// REGION=0M 00000697
|
|
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
|
//**** 00000797
|
|
//* AFTER YEARLY EXPERIENCE RATING PART 1 (RUNRQ506) 00000897
|
|
//* & AFTER REPORT REVIEW AND ANY NEEDED ADJUSTMENTS, 00000997
|
|
//* RUN YEARLY EXPERIENCE RATING PART 2A (THIS RUN) (*NO* MST UPDATE) 00001097
|
|
//* AND/OR 00001197
|
|
//* RUN YEARLY EXPERIENCE RATING PART 2B (RUNRQ517) (WITH MST UPDATE) 00001297
|
|
//**** 00001397
|
|
//* *** THE FOLLOWING DATA ELEMENT MUST BE AVAILABLE (E.G.,) 00001497
|
|
//* *** BEFORE STARTING THIS RUN: 00001597
|
|
//* *** 1. ENTER THE RATE NOTICE DATE (THE DATE (010801) 00001762
|
|
//* *** PRINTED ON THE RATE NOTICES) ON SCREEN 83 00001862
|
|
//* *** 2. ADD A CALENDAR YEAR REFERENCE FILE RECORD (01) 00001962
|
|
//* *** (FCYR) ON SCREEN 81. THIS RECORD WILL 00002062
|
|
//* *** INCLUDE THE TAXABLE WAGE BASE AND THE (9,000.00) 00002162
|
|
//* *** FUTA CREDIT RATE FOR THE NEW RATE YEAR. (5.4) 00002262
|
|
//**** 00002360
|
|
// SET RATEYR='YR2007' 00002599
|
|
// SET TPSYRQ='YR2007' 00002699
|
|
// SET LDEST=U@PRT65 00002760
|
|
// SET LHOLD='YES' 00002860
|
|
// SET BD750='071,N,R' RTE-YR-START-YRQ,UPD-MSTR,R= REG;A= ANN 00002999
|
|
// SET BD790='071' RTE-YR-START-YRQ 00003099
|
|
//**** 00003190
|
|
// SET LVLNODE='PROD' 00003299
|
|
// SET CHGNODE='PROD' 00003399
|
|
// SET CHGMNBR='CHGM002' 00003499
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00003599
|
|
//**** 00003699
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00003799
|
|
//**** /* BKP BEFORE RUN (NOT NEEDED 00004498
|
|
//*STEP0100 EXEC DTSUTVSM, /* IF RUN RIGHT AFTER DAILY) 00004599
|
|
//* BKUPGEN='(+1)' 00004699
|
|
//**** 00004867
|
|
//STEP0200 EXEC DTSUX503 00004947
|
|
//STEP0100.DTSFBTCO DD DUMMY 00005061
|
|
//**** SORT REPORT RECORDS 00041639
|
|
//STEP0300 EXEC PGM=SORT,PARM='VLTEST=0', 00041739
|
|
// COND=(0,LT) 00041839
|
|
//SYSOUT DD SYSOUT=* 00041939
|
|
//SORTIN DD DSN=DOESTAX.&LVLNODE..PER.RPT(+1),DISP=SHR 00042042
|
|
//** DD DSN=DOESTAX.&LVLNODE..PER.RPT(+2),DISP=SHR 00043066
|
|
//SORTOUT DD DSN=&&SRPTREC, 00044039
|
|
// DISP=(,PASS,DELETE), 00045039
|
|
// UNIT=SYSDA, 00046039
|
|
// SPACE=(8192,(1000,1000),RLSE), 00047039
|
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00048039
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00049039
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00050039
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00060039
|
|
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00070039
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSRREC),DISP=SHR 00080042
|
|
//** 00081040
|
|
//** /* SAVE SORTED REPORT FILE 00082098
|
|
//STEP0410 EXEC PGM=IDCAMS, 00082198
|
|
// COND=(0,LT) 00082298
|
|
//SYSPRINT DD SYSOUT=* 00082398
|
|
//INDD01 DD DSN=&&SRPTREC, 00082498
|
|
// DISP=(OLD,PASS,DELETE) 00082598
|
|
//OUTDD01 DD DSN=DOESTAX.&LVLNODE..RATE503.RPT.&RATEYR., 00082698
|
|
//**** USE DISP=SHR, IF A RERUN ***>>> 00082798
|
|
//*** DISP=SHR, 00082898
|
|
// DISP=(NEW,CATLG,DELETE), 00082998
|
|
// UNIT=SYSDA, 00083098
|
|
// SPACE=(8192,(1000,1000),RLSE), 00083198
|
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00083298
|
|
//SYSIN DD * 00083398
|
|
REPRO INFILE(INDD01) - 00083498
|
|
OUTFILE(OUTDD01) - 00083598
|
|
REPLACE 00083698
|
|
/* 00083798
|
|
//**** RUN THE REPORTS 00084040
|
|
//STEP0500 EXEC DTSARRPT 00090098
|
|
//*STEP0100.PARMIN DD * 00091080
|
|
//*DTSBD800,EXC,515 00092080
|
|
//*/* 00093080
|
|
//STEP0100.RPT723R1 DD DUMMY /* TPS FILE 00100099
|
|
//**STEP0100.RPT503R1 DD DUMMY /* RATE NOTICES (W) NOT NEEDED 00100199
|
|
//**STEP0100.RPT503R2 DD DUMMY /* PENALTY RATES (W) NOT NEEDED 00101095
|
|
//**STEP0100.RPT517R2 DD DUMMY /* ETA204 DOWNLOAD NOT NEEDED 00110095
|
|
//** 00680039
|
|
//**** /* BKP AFTER THE RUN 00690097
|
|
//STEP0600 EXEC DTSUTVSM, /* MAKE IT (+2) IF BKP IN STEP0100 00700098
|
|
// BKUPGEN='(+1)' /* ALSO RUN 00710099
|
|
//** 00720099
|