Bruce, BYPASSNQ is just what I needed. Works GREAT! I will have to take a look at what else is in CBT183.
THANKS! Jerry Bruce Hewson <[EMAIL PROTECTED]> Sent by: IBM Mainframe Discussion List <IBM-MAIN@BAMA.UA.EDU> 04/24/2008 01:09 AM Please respond to IBM Mainframe Discussion List <IBM-MAIN@BAMA.UA.EDU> To IBM-MAIN@BAMA.UA.EDU cc Subject Re: Help with applying maintenance Hello Jerry, I use this JCL. It does require the BYPASSSNQ APF authourized program from the Free Software written by Gilbert Saint-Flour available on CBT file 183. BYPASSNQ Assembler program. Scratch or Rename a Data Set without SYSDSN ENQ BYPASSNQ is a driver that allows you to run any utility program (such as IEHPROGM or IDCAMS) and bypass dsname ENQ that is normally performed by the DYNALLOC, SCRATCH and RENAME SVCs. This technique allows data sets to be deleted or renamed using standard MVS services and is fully compatible with indexed VTOCs and SMS. Regards Bruce Hewson Set the Variables to required values, and do "C ALL 'SYSRES' 'your_volser'" //SYDBHBIG JOB (ACCT#),'Enlarge APPC.ISPCLIB', // CLASS=A, // MSGCLASS=X, // NOTIFY=&SYSUID //* //*------------------------------------------------------------------* //* Make dataset single extent. * //*------------------------------------------------------------------* //* Tracks % XT Device Dsorg Recfm Lrecl Blksz //* ---------------------------------------------- //* SYS1.DATASET //* 450 9 1 3390 PO FB 80 10720 //* ---------------------------------------------- //* // SET PRIMSPC=450 // SET SECSPC=15 // SET SPCUNIT=TRK // SET DIRBLKS=90 //* // SET RECFMT=FB // SET RECLEN=80 // SET BLKSIZ=10720 //* //* //********************************************************* ************* //* Allocate dataset large enough for all data within a single extent //********************************************************* ************* //* //* //DEFINE EXEC PGM=IEFBR14 //NEWDSN DD DISP=(NEW,KEEP), // DSN=SYS1.DATASET.BIGGER, // UNIT=3390, // VOL=SER=SYSRES, // SPACE=(&SPCUNIT,(&PRIMSPC,&SECSPC,&DIRBLKS)), // RECFM=&RECFMT, // LRECL=&RECLEN, // BLKSIZE=&BLKSIZ //* //* //* //COPY EXEC PGM=IEBCOPY,COND=(0,NE,DEFINE) //SYSPRINT DD SYSOUT=* //SYSUT1 DD DISP=SHR, // UNIT=3390, // VOL=SER=SYSRES, // DSN=SYS1.DATASET //SYSUT2 DD DISP=SHR, // UNIT=3390, // VOL=SER=SYSRES, // DSN=SYS1.DATASET.BIGGER //SYSIN DD * COPY INDD=SYSUT1,OUTDD=SYSUT2 /* //* //********************************************************* ************* //* Delete dataset - uses GSF BYPASSNQ program //********************************************************* ************* //* //DELETE EXEC PGM=BYPASSNQ,PARM=IEHPROGM,COND= (0,NE,COPY) //STEPLIB DD DISP=SHR,DSN=SSSY.MSY.AUTHLIB //SYSPRINT DD SYSOUT=* //TARGET DD DISP=OLD,UNIT=SYSDA,VOL=SER=SYSRES //SYSIN DD * SCRATCH VOL=3390=SYSRES,DSNAME=SYS1.DATASET /* //* //********************************************************* ************* //* Rename new dataset to target datasetname //********************************************************* ************* //* //RENAME EXEC PGM=IEHPROGM,COND=(0,NE,DELETE) //SYSPRINT DD SYSOUT=* //SYSRES DD UNIT=3390,VOL=SER=SYSRES,DISP=OLD //SYSIN DD * RENAME VOL=3390=SYSRES, * DSNAME=SYS1.DATASET.BIGGER, * NEWNAME=SYS1.DATASET /* //* //* ---------------------------------------------------------------------- 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 ---------------------------------------------------------------------- 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