Es posible que tengamos un disco con espacio disponible, pero no podamos crear datasets nuevos porque nos hemos quedado sin espacio en la VTOC (Volume Table Of Contents). Para solucionar esto, podremos crear una nueva VTOC o expandir la que tenemos actualmente. En mi caso, no puedo poner offline la unidad, por lo tanto, expandiré la VTOC.
Comprobaremos la situación actual del disco desde la opción 3.4 de ISPF. Escogemos la opción V – Display VTOC information y ponemos el disco deseado en Volume serial.
Aunque tengo espacio disponible en la VTOC, tener 10 tracks podría quedarse corto frente a los 250.425 tracks de espacio total que tenemos.
También ampliaremos el índice, que tiene 5 tracks.
Utilizaremos un job como el de la imagen. Debemos añadir el parámetro REGION para evitar el error “ICK31405I NO STORAGE AVAILABLE”.
Este job extenderá la VTOC a 28 tracks y el índice a 16 tracks del disco USER10. El parámetro VERIFY debe coincidir con el nombre de volumen que hemos puesto en la DD “VOLDD”.
NOTA: Se puede descargar al principio de la entrada.
Si no tenemos el disco montado como “PRIVATE”, no podremos expandir su VTOC. Aparecerá el mensaje “ICK31025I VOLUME NOT MOUNTED PRIVATE”
Vamos a comprobar cómo tenemos montado el disco, además de apuntar su unidad. Usaremos el comando:
D U,VOL=nombre_disco
En este caso lo tenemos montado como “STORAGE”. La unidad es 0AC0.
Voy a cambiar dinámicamente el montaje a PRIVATE. Más tarde, lo dejaré de nuevo como STORAGE. Usare el comando:
m /unidad,vol=(sl,nombre_disco),use=uso
Por ejemplo:
m /0AC0,vol=(sl,USER10),use=PRIVATE
Volvemos a comprobar el estado de la unidad con el comando:
D U,VOL=nombre_disco
Volveremos a ejecutar el job ya que falló anteriormente. Responderemos al reply con “U”, para continuar.
El job terminará correctamente.
Comprobaremos el nuevo estado de la VTOC. Veremos que, en mi caso, ahora tiene 28 tracks.
Además, el fichero de índice ha pasado a ser de 16 tracks.
Volvemos a montar el disco con su uso original, en mi caso, STORAGE.
Verificamos que el estado es el correcto.
Es posible que cuando queramos extender la VTOC, como el espacio tiene que ser contiguo, tengamos el problema de que haya datasets que estén en ese espacio y estemos limitados a la hora de hacer la extensión. Si no podemos crear una VTOC nueva, tendremos que intentar mover esos datasets a otro disco o “jugar” con el espacio que le daremos al a VTOC para salir del paso y tener tiempo de trabajar en otra solución.
Aparecerán los mensajes:
ICK03091I EXISTING VOLUME SERIAL READ = USER10
ICK31545I FREE SPACE IS NOT AVAILABLE FOR THE NEW VTOC
ICK31544I SPECIFIED VTOC EXTENT WAS OCCUPIED BY THE FOLLOWING DATA SETS :