Francisco Rubio Enr�quez
Analista
Cibernos Consulting, SAU
----- Mensaje Original ----- De: ALDAVE-OLAVERRI Juan-Jose <[EMAIL PROTECTED]> Fecha: Lunes 18 Octubre 2004 11:26 Asunto: Reorgainzar ficheros > Hola a todos:
> Existe algun comando para reorganizar todos los ficheros de una
> bibliotecasin tener que hacerlo uno a uno. ?
> Se trara de eliminar registros deleteados.
> Muchas gracias
>
> Saludos
>
> > Juanjo Aldave - Spain, Burlada I.C.F.
> >
> > FAURECIA - IT3SE - Information Technologies Shared Services Southern
> > Europe
> >
> > Phone : +34 948 13 33 00
> > Fax : +34 948 13 33 32
> > Email : [EMAIL PROTECTED]
> >
> >
>
> _____________________________________________________
> Forum.HELP400 es un servicio m�s de NEWS/400.
> � Publicaciones Help400, S.L. - Todos los derechos reservados
> http://www.help400.es
> _____________________________________________________
>
> Para darte de baja, env�a el mensaje resultante de pulsar
> [EMAIL PROTECTED]
>
0001.00 /********************************************************/
0002.00 /* */
0003.00 /* Cibernos Consulting, S.A. Sistemas */
0004.00 /* */
0005.00 /********************************************************/
0006.00 /* */
0007.00 /* Reorganizar Ficheros en Bloque */
0008.00 /* */
0009.00 /********************************************************/
0010.00 CMD PROMPT('Reorganizar F�sicos Biblioteca')
0011.00 PARM KWD(BIBL) TYPE(QUAL1) MIN(1) +
0012.00 PROMPT('Biblioteca:')
0013.00 QUAL1: QUAL TYPE(*NAME) LEN(10)
0001.00 /* ******************************************************/
0002.00 /* */
0003.00 /* REORGANIZAR FICHEROS FISICOS DE UNA BIBLIOTECA */
0004.00 /* */
0005.00 /* Se asume que ya existe el fichero KICESPASO/DSPFDMBR */
0006.00 /* Para ello se ha ejecutado previamente DSPFD *MBR */
0007.00 /* */
0008.00 /* ******************************************************/
0009.00 PGM PARM(&BIBLIO)
0010.00 DCLF FILE(KICESPASO/DSPFDMBR)
0011.00 DCL VAR(&BIBLIO) TYPE(*CHAR) LEN(10)
0012.00 DCL VAR(&PANTALLA) TYPE(*CHAR) LEN(10)
0013.00 DCL VAR(&MENSAJE) TYPE(*CHAR) LEN(512)
0014.00 /* NORMAL*/ DCL VAR(&HEX20) TYPE(*CHAR) LEN(1) VALUE(X'20')
0015.00 /* ROJO */ DCL VAR(&HEX28) TYPE(*CHAR) LEN(1) VALUE(X'28')
0016.00 /* ----------------------------------------------------*/
0017.00 RTVJOBA JOB(&PANTALLA)
0018.00 /* ----------------------------------------------------*/
0019.00 CHKOBJ OBJ(QSYS/&BIBLIO) OBJTYPE(*LIB)
0020.00 MONMSG MSGID(CPF9801) EXEC(DO)
0021.00 SNDBRKMSG MSG('Biblioteca: ' *CAT &BIBLIO *BCAT ' no +
0022.00 encontrada.') TOMSGQ(&PANTALLA)
0023.00 GOTO CMDLBL(FINAL)
0024.00 ENDDO
0025.00 /* ----------------------------------------------------*/
0026.00 DSPFD FILE(&BIBLIO/*ALL) TYPE(*MBR) +
0027.00 OUTPUT(*OUTFILE) FILEATR(*PF) +
0028.00 OUTFILE(KICESPASO/DSPFDMBR)
0029.00 MONMSG MSGID(CPF3012) EXEC(GOTO CMDLBL(FIN))
0030.00 /* ----------------------------------------------------*/
0031.00 /* Mostramos el estado de ocupaci�n del disco antes */
0032.00 /* ----------------------------------------------------*/
0033.00 WRKSYSSTS
0034.00 /* ----------------------------------------------------*/
0035.00 /* Mostramos los ficheros que se van a reorganizar */
0036.00 /* ----------------------------------------------------*/
0037.00 RUNQRY QRY(QRYRGZPFB)
0038.00 /* ----------------------------------------------------*/
0039.00 LEER: RCVF RCDFMT(QWHFDMBR)
0040.00 MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(FIN))
0041.00 IF COND(&MBFTYP *NE 'P') THEN(GOTO CMDLBL(LEER))
0042.00 IF COND(&MBSEU2 *NE ' ') THEN(GOTO CMDLBL(LEER))
0043.00 IF COND(&MBNDTR *EQ 0) THEN(GOTO CMDLBL(LEER))
0044.00 /* ----------------------------------------------------*/
0045.00 /* Enviamos mensajes en Rojo */
0046.00 /* ----------------------------------------------------*/
0047.00 CHGVAR VAR(&MENSAJE) VALUE(&HEX28 *CAT +
0048.00 'Reorganiz�ndo Fichero: ' *CAT &MBFILE +
0049.00 *CAT ' en Biblioteca: ' *CAT &MBLIB *CAT +
0050.00 &HEX20)
0051.00 SNDPGMMSG MSGID(CPF9897) MSGF(QCPFMSG) +
0052.00 MSGDTA(&MENSAJE) TOPGMQ(*EXT) +
0053.00 MSGTYPE(*STATUS)
0054.00 RGZPFM FILE(&BIBLIO/&MBFILE)
0055.00 MONMSG MSGID(CPF2981 CPF3012) EXEC(GOTO CMDLBL(LEER))
0056.00 /* ----------------------------------------------------*/
0057.00 GOTO CMDLBL(LEER)
0058.00 /* ----------------------------------------------------*/
0059.00 /* Mostramos el estado de ocupaci�n del disco despu�s */
0060.00 /* ----------------------------------------------------*/
0061.00 FIN: WRKSYSSTS
0062.00 /* ----------------------------------------------------*/
0063.00 FINAL: ENDPGM
DEFINICION DEL QUERY/400
5769QU1 V4R4M0 990521 IBM Query para AS/400 S44G8733 18/10/0
Consulta. . . . . . . . . . . . . . . . QRYRGZPFB
Biblioteca. . . . . . . . . . . . . . KICESDAP
Texto consulta. . . . . . . . . . . . . RGZPFB - Mostrar Ficheros a Reorgan
CCSID consulta . . . . . . . . . . . . 65535
ID de idioma de consulta . . . . . . . ESP
ID de pa�s de consulta . . . . . . . . ES
*** , es el car�cter separador decimal para esta consulta ***
Orden clasificaci�n . . . . . . . . . . Hexadecimal
Opciones proceso
Utilizar redondeo . . . . . . . . . . S� (por omisi�n)
Ignorar errores datos decimales . . . No (por omisi�n)
Ignorar avisos sustituci�n . . . . . S�
Utiliz. clasif. todas comparaciones . S�
Archivos seleccionados
ID Archivo Biblioteca Miembro Formato Registro
T01 DSPFDMBR KICESPASO *FIRST QWHFDMBR
Campo resultado
Nombre Expresi�n Cabecera Columna Lon
OCUBOR mbndtr * mbmxrl
PORBOR (ocubor * 100) / 120259000000
Pruebas selecci�n registro
AND/OR Campo Prueba Valor (Campo, N�meros o 'Caracteres')
MBFTYP EQ 'P'
AND MBSEU2 EQ ' '
AND MBNDTR NE 0
Orden de campos seleccionados
Nombre Prioridad Ascendente/ Nivel Texto
Campo Clasificaci�n Descendente Rupt. Campo
MBFILE Archivo
MBNDTR N�mero de registros suprimidos
IBM Query para AS/400 18/10/0
Orden de campos seleccionados (cont.)
Nombre Prioridad Ascendente/ Nivel Texto
Campo Clasificaci�n Descendente Rupt. Campo
OCUBOR
PORBOR
MBNRCD N�mero actual de registros
MBDSSZ Tama�o espacio datos en bytes,
Formato columnas informe y funciones resumen
Funciones resumen: 1-Total, 2-Promedio, 3-M�nimo, 4-M�ximo, 5-Cuenta
Nombre Funciones Espaciado Pos Adm.
Campo Resumen Columna Cabeceras col. Lon Dec Nulo
MBFILE 0 Fichero 10
==========
MBNDTR 1 1 Registros 10 0
Suprimido
=========
OCUBOR 1 1 Ocup.Aprox 15 0
Reg.Suprim
==========
PORBOR 1 1 % 20 2
======
MBNRCD 1 Registros 10 0
Actuales
=========
MBDSSZ 1 Ocupaci�n 10 0
=========
Atributos de salida seleccionados
Tipo salida . . . . . . . . . . . . . . Pantalla
Forma de salida . . . . . . . . . . . . Detalle
Acomodaci�n l�nea . . . . . . . . . Archivo . . . . . . . . .
* * * * * F I N D E I M P R E S I O N C O N S U L T A * * * * * -- Disclaimer ------------------------------------ Ce message ainsi que les eventuelles pieces jointes constituent une correspondance privee et confidentielle a l'attention exclusive du destinataire designe ci-dessus. Si vous n'etes pas le destinataire du present message ou une personne susceptible de pouvoir le lui delivrer, il vous est signifie que toute divulgation, distribution ou copie de cette transmission est strictement interdite. Si vous avez recu ce message par erreur, nous vous remercions d'en informer l'expediteur par telephone ou de lui retourner le present message, puis d'effacer immediatement ce message de votre systeme. *** This e-mail and any attachments is a confidential correspondence intended only for use of the individual or entity named above. If you are not the intended recipient or the agent responsible for delivering the message to the intended recipient, you are hereby notified that any disclosure, distribution or copying of this communication is strictly prohibited. If you have received this communication in error, please notify the sender by phone or by replying this message, and then delete this message from your system.
