Hi all I make a mistake .When the size of VTOC is being extended to the space of VTOC index, the VTOC index is rebuilt to the other free space .
if the space of VTOC index follow the VTOC,it is ok. From: [email protected] Date: 2017-11-14 10:43 To: IBM-MAIN Subject: Re: VTOC extended Hi all The DISKMAP is great. We init our DASD as the following IBM recommended options DEVICE VTOC INDEX -- ------ ------- ------- 3390-1 0,1,0029 02,0,006 3390-2 0,1,0059 04,0,012 3390-3 0,1,0074 05,0,015 3390-9 0,1,0224 15,0,045 3390-27 0,1,0672 45,0,135 3390-54 0,1,1344 90,0,270 The VTOC index always follow the VTOC Does it mean there isn't any free space available following the current location of the VTOC? Thanks a lot! Best Regards, Jason Cai From: Nims,Alva John (Al) Date: 2017-11-09 22:23 To: IBM-MAIN Subject: Re: VTOC extended IEHLIST of the VTOC? One of the DISKMAP programs at CBTTAPE.ORG? Al Nims Systems Admin/Programmer 3 UFIT University of Florida (352) 273-1298 -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of [email protected] Sent: Thursday, November 09, 2017 2:13 AM To: [email protected] Subject: VTOC extended Hi all The size of VTOC is smaller,we want to extend VTOC using the following JCL . // EXEC PGM=ICKDSF //DD1 DD DISP=SHR,UNIT=3390,VOL=SER=xxxxxx //SYSPRINT DD SYSOUT=A //SYSIN DD * REFORMAT DDNAME(DD1) VERIFY(xxxxxx) EXTVTOC(30) EXTINDEX(15) Run REFORMAT EXTVTOC(n) where 'n' is the total size of the new VTOC in tracks. There must be free space available to allow for contiguous expansion of the VTOC. If there isn't free space available following the current location of the VTOC, an error message will be issued. 'n' must be greater than the old VTOC size. Before running REFORMAT EXTVTOC(n),is there any utility or REXX t which could tell whether there is any free space available following the current location of the VTOC? Thanks a lot! Best Regards, Jason Cai ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
