DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
25
JCL/DTSBX347.jcl
Normal file
25
JCL/DTSBX347.jcl
Normal file
@ -0,0 +1,25 @@
|
||||
//ECNTGD17 JOB (UI,4300,3400,T),RUNBX347,CLASS=S, 00010099
|
||||
// MSGCLASS=X, 00020061
|
||||
// NOTIFY=ECNTSUP, 00030099
|
||||
// REGION=0M 00050022
|
||||
//**** 00060025
|
||||
//* BUILD ATC TRANSACTION UPDATE FILE EXTRACT FOR 00070099
|
||||
//* EXPORT TO SERVER DATABASE. 00081099
|
||||
//* 00082099
|
||||
//* NO MASTER FILE UPDATES 00090099
|
||||
//* 00100099
|
||||
//* 00110099
|
||||
//**** 00130090
|
||||
// SET LVLNODE='PROD' 00140099
|
||||
// SET MSTNODE='PROD' 00150099
|
||||
//**** 00151099
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCLIB 00160099
|
||||
//**** 00170036
|
||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00180036
|
||||
//**** 00190086
|
||||
//STEP0100 EXEC DTSBX347 EXTRACT MAINFRAME DATA 00200099
|
||||
//* 00250099
|
||||
//STEP0100.DTSFBTCO DD DUMMY 00260099
|
||||
//STEP0100.DTSFVRO1 DD DUMMY 00270099
|
||||
//* 00280099
|
||||
//**** 00284099
|
||||
Reference in New Issue
Block a user