DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
27
JCL/DTSRQ330.jcl
Normal file
27
JCL/DTSRQ330.jcl
Normal file
@ -0,0 +1,27 @@
|
||||
//DTSRQ330 JOB (UI,4300,3400,T),DTSBE330,CLASS=P, 00000199
|
||||
// MSGCLASS=X, 00000261
|
||||
// NOTIFY=ECNTSUP, 00000399
|
||||
//**** TYPRUN=SCAN, 00000499
|
||||
// REGION=0M 00000522
|
||||
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
||||
//**** 00000625
|
||||
//** 00000799
|
||||
//** CREATE DAILY CREDITS AND DEBITS ESTABLISHED REPORT. 00000899
|
||||
//** (*NO* MSTR UPDATE) 00000999
|
||||
//** 00001099
|
||||
//**** 00003090
|
||||
// SET LVLNODE='PROD' 00003199
|
||||
// SET MSTNODE='PROD' 00003299
|
||||
// SET LHOLD='YES' 00003399
|
||||
//**** 00003499
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCLIB 00003599
|
||||
//**** 00003636
|
||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00003736
|
||||
//**** 00004486
|
||||
//STEP0100 EXEC DTSUX330, 00004999
|
||||
// RUNTYPE='QE' 00005099
|
||||
//STEP0100.EXTPARM DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRQ330), 00005299
|
||||
// DISP=SHR 00005599
|
||||
//* 00005699
|
||||
//STEP0200 EXEC DTSRP330 PRINT REPORT 00005799
|
||||
//**** 00041699
|
||||
Reference in New Issue
Block a user