41 lines
3.2 KiB
Plaintext
41 lines
3.2 KiB
Plaintext
//***** 00010000
|
|
//* UI TAX VSAM CHGMXXX FILE RESTORE. 00030001
|
|
//***** 00080000
|
|
//** PARMS ARE: CHGNOD2I='PROD' 00081007
|
|
//** : CHGNOD2O='PROD' 00082007
|
|
//** : CHGMN2R='CHGM002' 00083007
|
|
//** : CHGNOD3I='PROD' 00083107
|
|
//** : CHGNOD3O='PROD' 00083207
|
|
//** : CHGMN3R='CHGM030' 00083307
|
|
//** - BKP='BKP' 00084007
|
|
//** - BKPGEN='(+0)' 00085007
|
|
//**** 00086001
|
|
//DTSCHGMR PROC BKP='BKP' 00087003
|
|
//**** 00120001
|
|
//STEP0100 EXEC PGM=IDCAMS, DELETE AND DEFINE VSAM FILE 00130001
|
|
// COND=(0,LT) 00140000
|
|
//SYSPRINT DD SYSOUT=* 00150000
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(CHGDD002),DISP=SHR 00160001
|
|
// DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(CHGDD030),DISP=SHR 00170007
|
|
//**** 00280001
|
|
//STEP0310 EXEC PGM=SORT, /* VSAM CHGMXXX RESTORE 00290001
|
|
// COND=(0,LT) 00300000
|
|
//SYSOUT DD SYSOUT=* 00310000
|
|
//SORTIN DD DSN=DOESTAX.&CHGNOD2I..&BKP..&CHGMN2R.&BKPGEN., 00320007
|
|
// DISP=SHR, 00330008
|
|
// VOLUME=(,RETAIN) 00340008
|
|
//SORTOUT DD DSN=DOESTAX.&CHGNOD2O..VSAM.&CHGMN2R., 00350007
|
|
// DISP=SHR,AMP=('BUFNI=5,BUFND=30') 00360002
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00370000
|
|
//**** 00371007
|
|
//STEP0320 EXEC PGM=SORT, /* VSAM CHGMXXX RESTORE 00372007
|
|
// COND=(0,LT) 00373007
|
|
//SYSOUT DD SYSOUT=* 00374007
|
|
//SORTIN DD DSN=DOESTAX.&CHGNOD3I..&BKP..&CHGMN3R.&BKPGEN., 00375009
|
|
// DISP=SHR, 00376108
|
|
// VOLUME=(,RETAIN) 00376208
|
|
//SORTOUT DD DSN=DOESTAX.&CHGNOD3O..VSAM.&CHGMN3R., 00377007
|
|
// DISP=SHR,AMP=('BUFNI=5,BUFND=30') 00378007
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00379007
|
|
//**** 00380001
|