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
