Heelo Gil,
If you want to change # of qualifiers, you can only do that with explicit
rename dataset pairs, with an additional constraint of 256(?) entries in the
RENUNC list.
I have built a tool some years back that reads the dataset list from a dummy
restore DFDSS sysprint list, and then uses a list of generic dsname
replacements to build a full RESTORE job with explicit RENUNC statements, and
with multiple steps, each handling up to 256 datasets .
Regards
Bruce Hewson
Sample JCL of my process.: :-)
//JOBNAME JOB (),'BRUCE
HEWSON'
//*
//*
//*
//* 1. ENSURE BACKUP DATASET NAME AND VOLSER LIST IS CORRECT.
//* 2. JOB MUST HAVE ONLY ONE PGM=ADRDSSU STEP.
//* 3. ENSURE PARM='TYPRUN=NORUN' IS CODED ON PGM=ADRDSSU STEP.
//* 4. ALL CARDS AFTER //SYSIN WILL BE IGNORED FOR GENERATED JCL.
//* 5. DSNMASKS DATASET MUST CONTAIN OLD/NEW MASK PAIRS.
//* ANY MISSING MASKS WILL CAUSE FAILURE TO GENERATE JCL.
//*
//* 6. DFDSSJCL MUST POINT TO THIS DATASET(MEMBER).
//* THIS IS NECESSARY TO GET CORRECT BACKUP DATASET DETAILS.
//*
//*
//RSTRENAM EXEC PGM=ADRDSSU,PARM='TYPRUN=NORUN'
//*
//BACKUP DD DSN=USERID.DFDSS.DUMP,
// DISP=OLD
//*
//SYSPRINT DD DISP=(,PASS),
// DSN=&&DFDSSRPT,
// UNIT=SYSDA,
// DCB=(LRECL=250,RECFM=VBA,DSORG=PS),
// SPACE=(TRK,(15,15))
//SYSIN DD *
RESTORE DATASET(INCLUDE( -
** -
)) -
INDDNAME(BACKUP) -
CATALOG -
SPHERE -
TOL(ENQF) -
REPLACE
/*
//*
//* THIS SET USES THE PREVIOUS STEPS OUTPUT TO BUILT DF/DSS
//* RESTORE/RENAME JCL.
//*
//BGISPF EXEC PGM=IKJEFT1B,DYNAMNBR=100
//*
//* LIST OF OLD/NEW DATASET MASKS...
//*
//DSNMASKS DD DISP=SHR,DSN=USERID.SOURCE(DSNMASKS)
//*
//* POINT TO OPC/ESA JOBLIB MEMBER CONTAINING THIS JCL.
//*
//DFDSSJCL DD DISP=SHR,DSN=USERID.CNTL(THISJCL)
//*
//DFDSSRPT DD DISP=(OLD,PASS),DSN=&&DFDSSRPT
//SYSTSIN DD *
ISPSTART CMD(%BLDRNJCL)
/*
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSPROC DD DISP=SHR,DSN=USERID.CMDPROC
//ISPPROF DD DISP=SHR,DSN=USERID.ISPF.ISPPROF.BGISPF
//ISPTLIB DD DISP=SHR,DSN=USERID.ISPF.ISPPROF.BGISPF
// DD DISP=SHR,DSN=SYS1.ISPF.SISPTENU
//ISPPLIB DD DISP=SHR,DSN=SYS1.ISPF.SISPPENU
//ISPMLIB DD DISP=SHR,DSN=SYS1.ISPF.SISPMENU
//ISPSLIB DD DISP=SHR,DSN=SYS1.ISPF.SISPSENU
//*
//PRINT EXEC PGM=ICEGENER
//SYSPRINT DD DUMMY
//SYSUT1 DD DISP=(OLD,DELETE),DSN=&&DFDSSRPT
//SYSUT2 DD SYSOUT=*
//SYSIN DD DUMMY
//
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
