| Con este sencillo mandato, te presentamos una utilidad que
será de gran uso para mantener eficazmente nuestra base de datos. Este mandato te
permite recuperar en un fichero toda la información sobre los ficheros de tu base de
datos y conocer datos interesantes sobre los mismos (número de miembros, registros
utilizados, registros suprimidos, fecha última utilización, tamaño)
Este es el código:
PGM
DSPFD FILE(MiBiblioteca/*ALL) TYPE(*MBRLIST) +
OUTPUT(*OUTFILE) FILEATR(*PF) +
OUTFILE(QGPL/FICHEROS)
ENDPGM
Con esta CL, crearemos un fichero llamado FICHEROS en la biblioteca QGPL. Este fichero
tiene la siguiente descripción
| Nombre Campo |
Descripción |
| MLRCEN |
Siglo de recuperación |
| MLRDAT |
Fecha recuperación |
| MLRTIM |
Hora recuperación |
| MLFILE |
Longitud Archivo |
| MLLIB |
Biblioteca |
| MLFTYP |
Tipo De Archivo |
| MLFILA |
Atributo Archivo |
| MLMXD |
Reservado |
| MLFATR |
Atributo Archivo |
| MLSYSN |
Nombre Sistema Origen si archivo es DDM |
| MLASP |
ID agrupación almacenam. auxiliar |
| MLRES |
Reservado |
| MLNOMB |
Número De Miembros |
| MLNAME |
Miembro |
| MLNRCD |
Número actual de registros |
| MLNDTR |
Número de registros suprimidos |
| MLSIZE |
Espacio datos y tam. índice en bytes |
| MLSEU |
Tipo fuente para Vista S/38 como aparecía en S/38 |
| MLCCEN |
Siglo de creación de miembro |
| MLCDAT |
Fecha creación miembro |
| MLCHGC |
Siglo de último cambio |
| MLCHGD |
Fecha último cambio: año/mes/día |
| MLCHGT |
Hora último cambio |
| MLMTXT |
Texto 'descripción' |
| MLSEU2 |
Tipo de fuente |
| MLUCEN |
Siglo de última utilización |
| MLUDAT |
Fecha de última utilización |
| MLUCNT |
Cuenta de Días de Utilización |
| MLTCEN |
Siglo restablec. utilización datos |
| MLTDAT |
Fecha restauración utiliz. datos: año/mes/día |
| MLSIZ2 |
Espacio de datos y tamaño del índice en bytes |
Una vez recuperada la información de nuestra biblioteca en el fichero FICHEROS, podemos
crear un QUERY o un programa que nos liste los ficheros que ocupan más de XXX Mb, que
lleven más de XXX días sin utilizar o que tengan XXXX registros suprimidos.
Fecha 17-06-2000
 |
