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

40
Procs/JIMWRK01 Normal file
View File

@ -0,0 +1,40 @@
//********************************************************************* 01331000
//**STEP0230 EXEC PGM=SORT, MSTH BACKUP 01332000
//** COND=(0,LT) 01333000
//**SYSOUT DD SYSOUT=* 01334000
//**SORTIN DD DSN=DOESTAX.&LVLNODE..VSAM.MSTH,DISP=SHR, 01335000
//** AMP=('BUFNI=5,BUFND=30') 01336000
//**SORTOUT DD DSN=DOESTAX.&LVLNODE..&BCKNODE..MSTH&BKUPGEN., 01337000
//** DISP=(,CATLG,DELETE), 01338000
//** UNIT=CART, 01339000
//** VOLUME=(,RETAIN,REF=*.STEP0220.SORTOUT), 01339100
//** LABEL=(13,SL), 01339200
//** DCB=(SYS3.MODEL,RECFM=VB,LRECL=4096,BLKSIZE=32760) 01339300
//**SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01339400
//********************************************************************* 01339500
//STEP0240 EXEC PGM=SORT, WTC BACKUP 01339600
// COND=(0,LT) 01339700
//SYSOUT DD SYSOUT=* 01339800
//SORTIN DD DSN=DOESTAX.&LVLNODE..VSAM.WTC,DISP=SHR, 01339900
// AMP=('BUFNI=5,BUFND=30') 01340000
//SORTOUT DD DSN=DOESTAX.&LVLNODE..&BCKNODE..WTC&BKUPGEN., 01341000
// DISP=(,CATLG,DELETE), 01342000
// UNIT=CART, 01343000
// VOLUME=(,RETAIN), 01344000
// LABEL=(1,SL), 01345000
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4096,BLKSIZE=32760) 01346000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01347000
//******************************************************************* 01348000
//STEP0250 EXEC PGM=SORT, WGH BACKUP 01349000
// COND=(0,LT) 01349100
//SYSOUT DD SYSOUT=* 01349200
//SORTIN DD DSN=DOESTAX.&LVLNODE..VSAM.WGH,DISP=SHR, 01349300
// AMP=('BUFNI=5,BUFND=30') 01349400
//SORTOUT DD DSN=DOESTAX.&LVLNODE..&BCKNODE..WGH&BKUPGEN., 01349500
// DISP=(,CATLG,DELETE), 01349600
// UNIT=CART, 01349700
// VOLUME=(,RETAIN,REF=*.STEP0240.SORTOUT), 01349800
// LABEL=(2,SL), 01349900
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=24,BLKSIZE=24000) 01350000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01351000
//**** 01352000