Mark, Thanks. I will try your suggestion. --- On Wed, 23/12/09, Mark Jacobs <mark.jac...@custserv.com> wrote:
From: Mark Jacobs <mark.jac...@custserv.com> Subject: Re: INCREASING SIZE OF VIR - VTOC INDEX RECORD To: IBM-MAIN@bama.ua.edu Received: Wednesday, 23 December, 2009, 6:09 AM On 12/22/09 10:04, John Dawes wrote: > Good Evening To All, > We have noticed that some of the VIRs on several volumes are very small. >We would like to increase the size. I am not sure if I am on the right track >this is why I need your help. > The VIR exsists on the volume and in order to increase the size I will need >to purge it and reallocate it. Below are the 2 jobs I would like to use. >Would they work? Is there another way of going about it? I would welcome >your suggestions. Job to delete the VTOCIX > //STEP1 EXEC PGM=ICKDSF,REGION=3M //MYVOL DD >UNIT=(3390,,DEFER),VOL=SER=PROD21, // >DSN=SYS1.VTOCIX.PROD21,DISP=SHR //SYSIN DD * > //SYSPRINT DD SYSOUT=* //SYSIN DD * > BUILDIX DDNAME(MYVOL) OSVTOC PURGE /* > Job to build the VTOCIX > /* //STEP01 EXEC >PGM=ICKDSF,REGION=4M,PARM='NOREPLYU' //PROD21 DD >DSN=SYS1.VTOCIX.PROD21,UNIT=SYSALLDA, // >VOL=SER=PROD21,DISP=NEW,SPACE=(CYL,(2)) //SYSPRINT DD SYSOUT=* > //SYSIN DD * > BUILDIX IXVTOC,DDNAME(PROD21) /* > // > Thanks in advance > > > > Looks like you can dynamically increase both the index and vtoc using ICKDSF. 2.14.4.1.4 Expanding the VTOC and the index in the ICKDSF R17 Users guide. The following is an example of expanding the VTOC and the Index using the EXTVTOC and EXTINDEX parameters. //EXAMPLE JOB // EXEC PGM=ICKDSF //VOLDD DD DISP=SHR,UNIT=3380,VOL=SER=TMP121 //SYSPRINT DD SYSOUT=A //SYSIN DD * REFORMAT DDNAME(VOLDD) VERIFY(TMP121) EXTVTOC(200) EXTINDEX(16) /* -- Mark Jacobs Time Customer Service Tampa, FL ---- To one large turkey add one gallon of vermouth and a demijohn of Angostura bitters. Shake. -- F. Scott Fitzgerald, recipe for turkey cocktail. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html __________________________________________________________________________________ See what's on at the movies in your area. Find out now: http://au.movies.yahoo.com/session-times/ ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html