Comprimir Libreria de Objetos en ISPF

Uno de los problemas típicos con los que se encuentra el desarrollador de Cobol es el consistente en el llenado de alguna de sus librerías de Objetos. Cuando esto ocurre, al intentar realizar un SAVE sobre cualquier objeto contenido en ella se obtiene un error de SYSTEM ABEND '0E37'.

IEC032I E37-04,IFG0554P,IBMUSER,DBSPROC,ISP11417,0A80,ZARES1,LIBPR.FUENTES.JJ00
***                                                                        

Para solucionar este problema, podemos realizar 3 posibles actuaciones sobre nuestra librería:

1) Comprimir el contenido de la librería, liberando espacio de la misma.

2) Ampliar el espacio de la librería.

3) Ampliar los bloques del directorio.

En el post que nos ocupa vamos a indicar cómo se puede acometer la primera solución propuesta, esto es, la compresión del contenido de la misma.

Una librería se puede comprimir de dos formas diferentes:

A) Opción 3.1 del ISPF

Se accede a la opción 3 del ISPF.

3  Utilities     Perform utility functions        

Y, a continuación, a la opción 1.

1  Library     Compress or print data set.  Print index listing.  Print, rename, delete, browse, edit or view members        

En la pantalla accedida se inserta el comando "C" en la línea "Option" y en el apartado "ISPF Library" se introduce el nombre de la librería que deseamos comprimir.



Tras pulsar INTRO, si todo ha ido correctamente se mostrará el mensaje:

Compress successful

B) Opción 3.4 del ISPF

Se accede a la opción 3 del ISPF.

3  Utilities     Perform utility functions        

Y, a continuación, a la opción 4.

4  Dslist      Print or display (to process) list of data set names. Print or display VTOC information               

Posteriormente, indicamos las librerías que queremos que se visualicen en la línea "Dsname Level". Por ejemplo, en nuestro caso introduciremos LIBPR*.

Enter one or both of the parameters below:
   Dsname Level . . . LIBPR*             
   Volume serial  . .                   

En la pantalla mostrada, introducimos el comando "Z" a la izquierda de la librería que deseamos comprimir.

Tras la ejecución, si todo ha ido bien, se mostrará el mensaje:

Compress successful

Tras realizar esta acción, ya no deberíamos tener problemas a la hora de almacenar más información en nuestra librería. Si, a pesar de ello, continuamos teniendo problemas de espacio, entonces no nos quedará más remedio que recurrir a las soluciones 2º ó 3º mencionadas más arriba (Ampliar el espacio de la librería o Ampliar los bloques del directorio). Pero esto ya lo veremos en un post aparte.

Saludos.