105 lines
7.9 KiB
Plaintext
105 lines
7.9 KiB
Plaintext
//DTSRQ517 JOB (UI,4300,3400,T),PRODYRLY.RATING.2B, 00000163
|
|
// CLASS=P,MSGCLASS=X, 00000261
|
|
// NOTIFY=ECNTSUP, 00000363
|
|
//**** TYPRUN=SCAN, 00000458
|
|
// USER=#DOADTS, 00000563
|
|
// REGION=0M 00000631
|
|
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
|
//**** CHECK '***>>>' ON LINES BELOW FOR A RERUN 00000731
|
|
//**** 00000831
|
|
//* AFTER YEARLY EXPERIENCE RATING PART 1 (RUNRQ500) 00000931
|
|
//* & AFTER REPORT REVIEW AND ANY NEEDED ADJUSTMENTS, 00001031
|
|
//* RUN YEARLY EXPERIENCE RATING PART 2A (DTSRQ517) (MST UPDATE) 00001131
|
|
//* AND/OR 00001231
|
|
//* RUN YEARLY EXPERIENCE RATING PART 2B (DTSRQ503) (NO MST UPDATE) 00001331
|
|
//**** 00001431
|
|
//* *** THE FOLLOWING DATA ELEMENTS MUST BE AVAILABLE *** 00001531
|
|
//* *** BEFORE STARTING THIS RUN: *** 00001631
|
|
//* *** 1. THE RATE NOTICE DATE (THE DATE *** 00001731
|
|
//* *** PRINTED ON THE RATE NOTICES) ON SCREEN 83 *** 00001831
|
|
//* *** 2. A CALENDAR YEAR REFERENCE FILE RECORD *** 00001931
|
|
//* *** (FCYR) ON SCREEN 81. THIS RECORD WILL *** 00002031
|
|
//* *** INCLUDE THE TAXABLE WAGE BASE AND THE *** 00002131
|
|
//* *** FUTA CREDIT RATE FOR THE NEW RATE YEAR. *** 00002231
|
|
//**** 00002331
|
|
// SET LOADLIB='PROD' 00002461
|
|
// SET LVLNODE='PROD' 00002561
|
|
// SET TPSYRQ='YR2025' 00002665
|
|
// SET RATEYR='YR2025' 00002765
|
|
// SET LDEST=U@PRT65 00002864
|
|
// SET LHOLD='YES' 00002964
|
|
// SET BD750='251,Y,R' /* RTE-YR-START-YRQ,UPD-MST-IND,RUN-TYPE 00003065
|
|
// SET BD790='251' /* RTE-YR-START-YRQ A=ANNUAL 00003165
|
|
//**** /* R=REGULAR 00003265
|
|
// SET CHGNODE='PROD' 00003364
|
|
// SET CHGMNBR='CHGM002' 00003464
|
|
//**** 00003564
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LOADLIB..PROCS.BATCH.LIB 00003664
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00003764
|
|
//**** BACKUP BEFORE THIS RUN 00003800
|
|
//**** (NOT NEEDED IF RUN RIGHT AFTER A DAILY) 00003931
|
|
//*TEP0050 EXEC DTSUTVSM, 00004065
|
|
//* BKUPGEN='(+1)' 00004165
|
|
//**** RUN THE EXTRACT 00004263
|
|
//**** RUN THE EXTRACT
|
|
//STEP0100 EXEC DTSUEXT, CREATE TAX/TOT AVG RATE FOR
|
|
// RUNTYPE='OR', 204 REPORT
|
|
// PREBACK='N'
|
|
//STEP0100.EXTPARM DD *
|
|
530
|
|
/*
|
|
//**** SORT REPORT RECORDS 00041600
|
|
//STEP0200 EXEC DTSUX517 00004304
|
|
//**** SORT REPORT RECORDS 00041600
|
|
//STEP0300 EXEC PGM=SORT, 00041700
|
|
// COND=(0,LT) 00041800
|
|
//SYSOUT DD SYSOUT=* 00041900
|
|
//SORTIN DD DSN=DOESTAX.&LVLNODE..PER.RPT(+2),DISP=SHR 00042000
|
|
// DD DSN=DOESTAX.&LVLNODE..PER.RPT(+3),DISP=SHR 00043000
|
|
//SORTOUT DD DSN=&&SRPTREC, 00044113
|
|
// DISP=(,PASS,DELETE), 00045015
|
|
// UNIT=SYSDA, 00046000
|
|
// SPACE=(8192,(3000,2000),RLSE), 00047000
|
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00048015
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00049027
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00050027
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00060027
|
|
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00070027
|
|
//SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00071027
|
|
//SORTWK06 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00072027
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSRREC),DISP=SHR 00080000
|
|
//** 00081000
|
|
//STEP0310 EXEC PGM=IDCAMS, SAVE SORTED REPORT FILE 00082013
|
|
// COND=(0,LT) 00082113
|
|
//SYSPRINT DD SYSOUT=* 00082213
|
|
//INDD01 DD DSN=&&SRPTREC, 00082313
|
|
// DISP=(OLD,PASS,DELETE) 00082415
|
|
//OUTDD01 DD DSN=DOESTAX.&LVLNODE..RATE517.RPT.&RATEYR., 00082825
|
|
//**** USE DISP=SHR, IF A RERUN ***>>> 00082924
|
|
//*** DISP=SHR, 00083060
|
|
// DISP=(NEW,CATLG,DELETE), 00083160
|
|
// UNIT=SYSDA, 00083224
|
|
// SPACE=(8192,(3000,2000),RLSE), 00083324
|
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00083425
|
|
//SYSIN DD * 00083524
|
|
REPRO INFILE(INDD01) - 00083624
|
|
OUTFILE(OUTDD01) - 00083724
|
|
REPLACE 00083824
|
|
/* 00083924
|
|
//**** RUN THE REPORTS 00084000
|
|
//STEP0400 EXEC DTSVRRPT 00090000
|
|
//** TEXT VERSION OF ETA204 FOR DOWNLOAD 00110024
|
|
//STEP0100.RPT517R2 DD DSN=DOESTAX.&LVLNODE..RATE204.&RATEYR., 00130037
|
|
//**** USE DISP=SHR, IF A RERUN ***>>> 00131030
|
|
//*** DISP=SHR, 00140060
|
|
// DISP=(NEW,CATLG,DELETE), 00141060
|
|
// UNIT=SYSDA, 00150024
|
|
// SPACE=(800,(10,10),RLSE), 00160024
|
|
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=80) 00170024
|
|
//** 00180061
|
|
//**** BACKUP AFTER THIS RUN 00650000
|
|
//STEP0500 EXEC DTSUTVSM, 00660065
|
|
// BKUPGEN='(+1)' /* IF NO BKP IN STEP0100 00670065
|
|
//** BKUPGEN='(+2)' /* IF BKP RUN IN STEP0100) 00671031
|
|
//** 00680000
|