• principal_3

    Desde 2015, enseñando sobre el sistema operativo z/OS de IBM en esta web. z/OS se utiliza en máquinas llamadas Mainframe.

  • principal_1

    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.

  • principal_2

    Es utilizado por grandes empresas (bancos, aseguradoras...). Aquí aprenderás a instalar y configurar productos relacionados con z/OS.

  • principal_4

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

Extensiones libres y aumentar extensión máxima en un disco

Extensiones libres y aumentar extensión máxima en un disco

Adjuntos:
Descargar este archivo (MOVEDISK.txt)MOVDISK[JOB - ADRDSSU para mover fichero de disco]1 kB
Descargar este archivo (VTOCFORM.txt)VTOCFORM[REXX formatea report VTOC del JOB VTOCLIST]5 kB
Descargar este archivo (VTOCLIST.txt)VTOCLIST[JOB - Genera report VTOC de un disco]2 kB

En esta ocasión usaremos dos métodos distintos (un job usando IEHLIST y la herramienta File Manager) para intentar resolver la siguiente situación:

A veces ocurre que intentamos crear un fichero contiguo (parámetro CONTIG), por algún requerimiento, en un disco y falla por espacio. Miramos el espacio ocupado del disco y vemos que, en general, tiene espacio disponible de sobra, pero la extensión más larga que permite no es suficiente para meter el fichero al requerir espacio contiguo.

Entonces para intentar resolverlo, migramos o movemos ficheros a otro disco y aumenta el espacio disponible, pero máxima extensión permitida sigue siendo la misma porque no hemos elegido los ficheros “correctos”.

Veremos cómo identificarlos de forma sencilla por ambos métodos.

Partimos de este job de ejemplo que creará un fichero en el disco PRD000 de 6975 pistas de espacio contiguo.

 01 watermark

 

Lo ejecutamos y falla por espacio insuficiente.

 02 watermark

03 watermark

 

Vemos el estado del disco desde 3.4 de ISPF (opción V).

 04 watermark

 

Vemos que tiene 19.933 pistas libres (recordamos que nuestro nuevo fichero necesita 6.975 pistas seguidas) y la máxima extensión es de 6945 (es decir, pistas seguidas dentro del disco), por lo tanto, por 30 pistas no entra nuestro nuevo fichero.

También nos fijamos en que la extensión máxima son 463 cilindros y una VTOC de 150 tracks.

05 watermark

 

He hecho un job que utiliza el PGM IEHLIST para leer la información de la VTOC del disco deseado y genera un informe. Mediante un programa REXX, que también he hecho, se formatea ese informe para ver los datos mejor y más rápido.

NOTA: Ambos podéis descárgalos al principio de la página.

JOB VTOCLIST

06 watermark

 

REXX VTOCFORM

07 watermark

 

Antes de ejecutar el job, indicaremos en el paso “STEP2” el disco del que queremos extraer el report. Una vez hecho, lo ejecutamos.

08 watermark

 

Terminará correctamente y generará un report.

09 watermark

 

Vemos el report y los campos son:

  • DATA SET NAME. Nombre del dataset. En el caso de extesiones libres, indicará el espacio disponible en esa extensión.
  • EXTN. Es el número de extensión de un fichero concreto.
  • STR CYL. Es la posición de inicio del fichero dentro del disco.
  • END CYL. Es la posición de fin del fichero dentro del disco. Restando la anterior, obtenemos lo que ocupa en cilindros.

El método consiste en buscar la extensión más grande (en esta caso, es 463 vimos anteriormente) y mover/migrar los ficheros que haya “al lado” de esa extensión dentro del disco (siempre y cuando se puedan mover, cuidado con esto).

En mi caso, el “STR CYL” empieza en el 10 porque mi VTOC ocupa 10 cyls (150 tracks).

NOTA: Siempre y cuando sean ficheros que se puedan mover. Cuidado al mover librerías tipo PARMLIB, librerías de módulos, etc.

10 watermark

 

Busco en el report la extensión más larga (463 cyl) y veo que el fichero “ZDBUG.V142.SMPLOG” es el siguiente que está en el disco. Al moverlo dejaría libre ese hueco de 28 cilindros (2447 – 2419).

11 watermark

 

Si el sistema con el que trabajáis tiene disponible File Manager (puede ser que no esté, por eso ofrezco la opción del job), también podemos ver esta información.

Vamos a revisar la VTOC del disco para identificar qué ficheros están “cerca” de nuestra extensión máxima en el disco para así saber qué ficheros debemos migrar/mover a otro disco.

La información debería ser la misma que el report anterior.

Dentro de File Manager, vamos a la opción 3 – Utilities.

12 watermark

 

Opción 5 – VTOC.

13 watermark

 

Ponemos el disco deseado (PRD000 en mi caso) y pulsamos intro.

14 watermark

 

Ordenamos por la columna “Begin”.

15 watermark

 

Pulsamos F11 para ver cuánto ocupan las extensiones y buscar la que se corresponde con la máxima extensión.

En este caso, la información es la misma que el report que generamos anteriormente pero mostrada en TRACKs en vez de CYLs.

El fichero que tendríamos que mover en este caso es el ZDBUG.V142.SMPLOG.

16 watermark

 

Con el siguiente job (ADRDSSU), vamos a mover el fichero ZDBUG.V142.SMPLOG del disco PRD000 al PRD001.

NOTA: Lo podéis descargar al principio de la entrada.

17 watermark

 

Una vez revisado el job (sobre todo el parámetro STORCLAS para ficheros SMS o NULLSTORCLAS para NO-SMS), lo ejecutamos.

18 watermark

 

Terminará correctamente.

19 watermark

20 watermark

 

Ahora vamos a mirar el disco desde 3.4 de ISPF, opción V.

Vemos que la extensión máxima ha aumentado hasta los 7.380 tracks – 492 cyls.

21 watermark

 

Ahora vamos a ejecutar de nuevo el job que genera el report de la VTOC para ver el estado.

Veremos que en esa posición del disco, la extensión ha aumentado y el siguiente fichero en el disco es el ZDBUG.V142.SMPLOGA.

22 watermark

 

También lo podemos comprobar en File Manager. La información es la misma.

23 watermark

 

Por último, dejo un report de un disco lleno completamente.

24 watermark

 

Podemos observar que el dataset”IBMUSER.FICHERO.GRANDE2” tiene 2 extensiones, por ejemplo. También vemos que no hay extensiones libres.

25 watermark

 

Si relanzamos el job que falló al principio por espacio, ahora terminará correctamente.

 26 watermark

 

Espero que os haya gustado y os sea útil cuando tengáis problemas de espacio.

 

 

Publish modules to the "offcanvs" position.