giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DUTAS re-platformed to Raincode - Initial Source Code

Browse Source
This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
JCL/DTSBZ22X.jcl Normal file
View File

@ -0,0 +1,38 @@
//DTSBZ22X JOB (UI,4300,3400,T),PROD.HHCONV.SPEC, 00010002
// CLASS=P,MSGCLASS=X, 00020000
// NOTIFY=ECNTSUP, 00030001
//*** USER=OPCSUB, 00040000
// REGION=0M 00050000
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//**** 00060000
// SET LVLNODE='PROD' 00070003
//**** 00080000
//* 11/10/02 - JHP 00090001
//* THOSE STEPS FROM THE HH PARALLEL RUN TO CONVERT THE 00100001
//* PROD FILES FOR NEW FIELDS 00110001
//* NOTE: BEFORE RUNNING THIS JOB, CLOSE THE HTST FILES 00120000
//**** 00130000
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00190000
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00200000
//**** 00261000
//**** /* SPEC. CONV. STEP TO INIT NEW MRTE & MRCT DATA ELEMENTS 00270000
//STEP0030 EXEC PGM=DTSBZ220, 00270100
// COND=(0,LT) 00270200
//SYSOUT DD SYSOUT=* 00270400
//SYSABOUT DD SYSOUT=* 00270500
//SYSABEND DD SYSOUT=* 00270600
//CAIMRPTS DD SYSOUT=* 00270700
//* 00270800
//DTSFMSTR INCLUDE MEMBER=DTSIMSTX 00270900
//**** 00271100
//**** /* SPEC. CONV. STEP TO INIT NEW FUIR DATA ELEMENTS 00271200
//STEP0040 EXEC PGM=DTSBZ225, 00271300
// COND=(0,LT) 00271400
//SYSOUT DD SYSOUT=* 00271500
//SYSABOUT DD SYSOUT=* 00271600
//SYSABEND DD SYSOUT=* 00271700
//CAIMRPTS DD SYSOUT=* 00271800
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00271900
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00272000
// AMP=('BUFNI=5,BUFND=10') 00273000
//**** 00279101