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

51
Procs/EXXX2XXX Normal file
View File

@ -0,0 +1,51 @@
//***** 00010004
//* 00020004
//* ELECTRONIC MEDIA VSAM FILE RESTORE. 00030012
//* 00040004
//* 01/11/00 SPEC. VERS. TO RESTORE TEST/PROD BKP FILES TO DEVL 00041005
//* OR PROD BKP FILES TO TEST 00041107
//* (JHP) 00041207
//* 00042004
//***** 00043004
//JXXX2DVL PROC LVLNDIN='XXXX', 00044008
// LVLNDOUT='XXXX', 00044108
// BCKNODE='BACKUP', 00045004
// BKUPGEN='(+0)' 00046018
//********************************************************************* 00047004
//STEP0100 EXEC PGM=IDCAMS, DELETE AND DEFINE VSAM FILES 00048004
// COND=(0,LT) 00049004
//SYSPRINT DD SYSOUT=* 00050004
//SYSIN DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSDDMSE),DISP=SHR 00060012
// DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSDDMSF),DISP=SHR 00070012
// DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSDDMSG),DISP=SHR 00080012
//****************************************************************** 00150004
//STEP0310 EXEC PGM=SORT, MSTE RESTORE 00160012
// COND=(0,LT) 00170004
//SYSOUT DD SYSOUT=* 00180004
//SORTIN DD DSN=DOESTAX.&LVLNDIN..&BCKNODE..MSTE&BKUPGEN., 00190012
// DISP=SHR, 00200004
// VOLUME=(,RETAIN) 00210004
//SORTOUT DD DSN=DOESTAX.&LVLNDOUT..VSAM.MSTE,DISP=SHR, 00220012
// AMP=('BUFNI=5,BUFND=30') 00230004
//SYSIN DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00240005
//****************************************************************** 00250004
//STEP0320 EXEC PGM=SORT, MSTF RESTORE 00260012
// COND=(0,LT) 00270004
//SYSOUT DD SYSOUT=* 00280004
//SORTIN DD DSN=DOESTAX.&LVLNDIN..&BCKNODE..MSTF&BKUPGEN., 00290012
// DISP=SHR, 00300004
// VOLUME=(,RETAIN) 00310004
//SORTOUT DD DSN=DOESTAX.&LVLNDOUT..VSAM.MSTF,DISP=SHR, 00320012
// AMP=('BUFNI=5,BUFND=30') 00330004
//SYSIN DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00340005
//****************************************************************** 00350004
//STEP0330 EXEC PGM=SORT, MSTG RESTORE 00360012
// COND=(0,LT) 00370004
//SYSOUT DD SYSOUT=* 00380004
//SORTIN DD DSN=DOESTAX.&LVLNDIN..&BCKNODE..MSTG&BKUPGEN., 00390012
// DISP=SHR, 00400004
// VOLUME=(,RETAIN) 00410004
//SORTOUT DD DSN=DOESTAX.&LVLNDOUT..VSAM.MSTG,DISP=SHR, 00420012
// AMP=('BUFNI=5,BUFND=30') 00430004
//SYSIN DD DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00440005
//* 01040012