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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN