Esta aplicación ejecuta un backup de las bibliotecas de aplicaciones (*ALLUSR). Primero efectúa un SAVLIB normal y al finalizar si hubo objetos que no se pudieron salvar, los salva con SAVACT(*SYNCLIB).

Durante el backup, va generando un archivo que se utiliza como "Cintoteca".

Para acceder a las facilidades de la cintoteca, ejecutar GO CINT00

El punto 1 del menú, se utiliza para determinar en que cinta y en que número de secuencia se encuentra el objeto que queremos restaurar.
Este es un query que hay que reemplazar "BIBLIOTECA" por el nombre de la biblioteca en cuestión y "OBJETO" por el nombre del objeto en cuestión.
Este query, mostrará todos los registros que coincidan con lo solicitado. Determinar la fecha del backup y el número de Secuencia.

Con éstos datos, montar la cinta correspondiente e ingresar al punto 2 del menú para restaurar un objeto o al punto 3 para restaurar una biblioteca.

El punto 4 del menú se utiliza para controlar que el backup halla salvado todos los objetos de las bibliotecas solicitadas.

Adjunto el archivo de salvar que contiene la biblioteca MYLIB.

Puedes bajarte los fuentes en formato de fichero de salvar aquí

Luis Necchi