• EMUFRAME

    EMUFRAME

    Desde 2015, enseñando sobre el sistema operativo z/OS de IBM en esta web.

    z/OS se utiliza en máquinas llamadas Mainframe y es utilizado por grandes empresas (bancos, aseguradoras, hoteles, etc.).

    Aquí aprenderás a instalar y configurar productos relacionados con z/OS.

     

  • Emulación de Mainframe y z/OS

    Emulación de Mainframe y z/OS

    Para realizar el contenido, utilizo el producto de IBM llamado z/Development and Test Environtment Personal Edition.

    Este software permite emular un Mainframe y así poder utilizar z/OS para aprender.

     

  • z/OS - ADCD

    z/OS - ADCD

    ADCD es una distribución de z/OS que contiene productos de IBM como IMS, DB2, CICS, ZOWE, TWS, NetView, System Automation, etc.

    Así tenemos un entorno de desarrollo o de aprendizaje, como es mi caso, muy completo.

     

Extender VTOC de un disco

Adjuntos:
Descargar este archivo (EXTNVTOC.txt)EXTNVTOC[Job para extender VTOC]0.4 kB

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 :

 

 

 

Publish modules to the "offcanvs" position.