DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
40
JCL/DTSRR517.jcl
Normal file
40
JCL/DTSRR517.jcl
Normal file
@ -0,0 +1,40 @@
|
||||
//DTSRQ517 JOB (UI,4300,3400,T),RERUN.REPORTS, 00000163
|
||||
// CLASS=P,MSGCLASS=X, 00000261
|
||||
// NOTIFY=ECNTSUP, 00000363
|
||||
//**** TYPRUN=SCAN, 00000458
|
||||
// REGION=0M 00000631
|
||||
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
||||
//******************************************************************* 00000731
|
||||
//**** 00000831
|
||||
//* AFTER YEARLY EXPERIENCE RATING PART 1 (RUNRQ500) 00000931
|
||||
//* YEARLY EXPERIENCE RATING PART 2 (DTSRQ517) (MST UPDATE) 00001131
|
||||
//**** 00001431
|
||||
//********* USE THIS JOB TO RERUN RATE REPORTS ONLY *** 00001531
|
||||
//**** FOR TRMS YEARLY RATE REPORTS 111217 ZL1 *** 00001631
|
||||
//******************************************************************* 00001731
|
||||
//**** 00002331
|
||||
// SET LOADLIB='PROD' 00002461
|
||||
// SET LVLNODE='PROD' 00002561
|
||||
// SET TPSYRQ='YR2018' 00002665
|
||||
// SET RATEYR='YR2018' 00002765
|
||||
// SET LDEST=U@PRT65 00002864
|
||||
// SET LHOLD='YES' 00002964
|
||||
//**** 00003564
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.&LOADLIB..PROCLIB 00003664
|
||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00003764
|
||||
//**** BACKUP BEFORE THIS RUN 00003800
|
||||
//STEP0400 EXEC DTSRRRPT 00090000
|
||||
//** TEXT VERSION OF ETA204 FOR DOWNLOAD 00110024
|
||||
//STEP0100.RPT517R2 DD DSN=DOESTAX.&LVLNODE..RATE204A.&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
|
||||
//*TEP0500 EXEC DTSUTVSM, 00660065
|
||||
//* BKUPGEN='(+1)' /* IF NO BKP IN STEP0100 00670065
|
||||
//** BKUPGEN='(+2)' /* IF BKP RUN IN STEP0100) 00671031
|
||||
//** 00680000
|
||||
Reference in New Issue
Block a user