rgzpfm con bloqueos
Es posible reorganizar ficheros aunque estos este en uso (bloqueados). Quiero montar una utilidad para que diariamente reorganice lo ficheros de una biblioteca. Gracias. NOTA: Feliz TRUCO O TRATO (para todos aquellos que están más allá del CHARCO) === La originalidad no esta en el HECHO, esta en laSOLUCIÓN Cualquier cosa que gobierne tu vida te autodestruirá Sino dices lo que piensas es que no piensas - M i O T a O - === .~. /V\ L I N U X // \\ Phear the Penguin /( )\ ^^-^^ Pon un Pinguino en TU VIDA.COM Pere Soria Dpto. de Informática Telf. +34 964343008 E-mail: [EMAIL PROTECTED] http://www.recordrent.com Record Rent a Car S.A. (quitar nospam para responder)(remove nospam to reply me)
[SPAM] RE: rgzpfm con bloqueos
Title:
Buenos
días,
Nosotros
utilizamos la utilidad que adjunto.
ReorganizaCMD : Comando que llama al CLP
ReorganizaCLP: CLP que reorganiza ficheros de una librería con
posibilidad de seleccionar *ALL
Nosotros
corremos este programa por la noche para
evitar problemas de bloqueo.
Un Saludo / Best Regards
Santiago Rodriguez
IT department /Tupperware Spain
(Tel.) +34 91 484 5900 Ext 33 -
(Fax) +34 91 761 6164
[EMAIL PROTECTED]
Passmail
De:
[EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Enviado el: martes, 31 de octubre
de 2006 9:29
Para: forum.help400@combios.es
Asunto: rgzpfm con bloqueos
Es posible reorganizar ficheros aunque estos este
en uso (bloqueados).
Quiero
montar una utilidad para que diariamente reorganice lo ficheros de una
biblioteca.
Gracias.
NOTA:
Feliz TRUCO O TRATO (para todos aquellos que están más allá del CHARCO)
===
La originalidad no esta en el HECHO, esta en
laSOLUCIÓN
Cualquier cosa que gobierne tu vida te autodestruirá
Sino dices lo que piensas es que no piensas - M i O T a O
-
===
.~.
/V\ L I N U X
// \\ Phear the Penguin
/( )\
^^-^^
Pon un Pinguino en TU VIDA.COM
Pere Soria
Dpto. de Informática
Telf. +34 964343008
E-mail: [EMAIL PROTECTED]
http://www.recordrent.com
Record Rent a Car S.A.
(quitar nospam para responder)(remove nospam to reply me)
5722WDS V5R2M0 020719 SEU SOURCE LISTING
06/10/31 08:59:39 PAGE1
SOURCE FILE . . . . . . . ESM1GPL/QCMDSRC
MEMBER . . . . . . . . . REORGANIZA
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
...+... 8 ...+... 9 ...+... 0
100 CMDPROMPT('Reorganizaciòn de Ficheros')
95/05/11
200
95/05/09
300 PARM KWD(FILE) TYPE(*GENERIC) LEN(10) +
95/05/11
400 SPCVAL((*ALL)) MIN(1) FILE(*UPD) +
95/05/11
500 CHOICE('Nombre, Generico*, *ALL') +
95/05/11
600 PROMPT('Fichero de Base de Datos')
95/05/11
700
95/05/11
800 PARM KWD(LIB) TYPE(*NAME) LEN(10) DFT(*LIBL) +
01/04/04
900 SPCVAL((*CURLIB) (*LIBL)) MIN(0) MAX(1) +
01/04/04
1000 CHOICE('Nombre, *CURLIB, *LIBL') +
01/04/04
1100 PROMPT('Libreria')
01/04/04
* * * * E N D O F S O U R C E * * * *
5722WDS V5R2M0 020719 SEU SOURCE LISTING
06/10/31 08:59:31 PAGE1
SOURCE FILE . . . . . . . ESM1GPL/QCLSRC
MEMBER . . . . . . . . . REORGANIZA
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
...+... 8 ...+... 9 ...+... 0
100 RGZPF: PGMPARM(FILE LIB)
95/05/11
200
95/01/23
300 /* DECLARACIÓN DE VARIABLES */
95/05/11
400
95/05/09
500 DCLVAR(LIB) TYPE(*CHAR) LEN(10)
95/05/09
600 DCLVAR(FILE) TYPE(*CHAR) LEN(10)
95/05/09
700
95/05/09
800 DCLVAR(ERROR) TYPE(*LGL)
95/05/11
900
95/05/11
1000 DCLF FILE(REORGANIZA)
95/05/11
1100
Re: rgzpfm con bloqueos
RGZPFM MONMSG(CPF2995) (CPF2981) -Original Message- From: [EMAIL PROTECTED] To: forum.help400@combios.es Date: Tue, 31 Oct 2006 09:28:59 +0100 Subject: rgzpfm con bloqueos Es posible reorganizar ficheros aunque estos este en uso (bloqueados). Quiero montar una utilidad para que diariamente reorganice lo ficheros de una biblioteca. Gracias. NOTA: Feliz TRUCO O TRATO (para todos aquellos que están más allá del CHARCO) === La originalidad no esta en el HECHO, esta en laSOLUCIÓN Cualquier cosa que gobierne tu vida te autodestruirá Sino dices lo que piensas es que no piensas - M i O T a O - === .~. /V\ L I N U X // \\ Phear the Penguin /( )\ ^^-^^ Pon un Pinguino en TU VIDA.COM Pere Soria Dpto. de Informática Telf. +34 964343008 E-mail: [EMAIL PROTECTED] http://www.recordrent.com Record Rent a Car S.A. (quitar nospam para responder)(remove nospam to reply me)
Re: rgzpfm con bloqueos
Hola Pere, Para poder reorganizar un archivo este no debe estar bloqueado. docho esto me parece que la unica opción para hacer lo que pides y que creo que solo vale la pena si el archivo es grande es: - Duplicar el archivo (vacio) y sus logicos a otra biblioteca destino. - Comprobar autorizaciones objeto destino. - Arrancar el registro por diario del archivo de origen. - Lanzar un CPYF de origen a destino con COMPRESS(*YES) - Bloquear el archivo de origen con *EXCL - Para nota: Aplicar cambios realizados en archivo orgigen y no se han copiado debido a la duración del CPYF. - Eliminar los logicos de origen y el fisico. - Mover el fisico y los logicos de biblioteca destino a origen. - Comprobar autorizaciones En fin nosotros lo dejamos por inviable, tenemos un fisico de unos 500Gb + 200Gb de logicos. MIMIX tiene un modulo (promoter) que sirve para hacer esto mismo pero de forma automatica. Saludos 2006/10/31, [EMAIL PROTECTED] [EMAIL PROTECTED]: Es posible reorganizar ficheros aunque estos este en uso (bloqueados). Quiero montar una utilidad para que diariamente reorganice lo ficheros de una biblioteca. Gracias. NOTA: Feliz TRUCO O TRATO (para todos aquellos que están más allá del CHARCO) ===La originalidad no esta en el HECHO, esta en laSOLUCIÓN Cualquier cosa que gobierne tu vida te autodestruiráSino dices lo que piensas es que no piensas - M i O T a O -=== .~./V\ L I N U X // \\ Phear the Penguin/( )\^^-^^Pon un Pinguino en TU VIDA.COMPere SoriaDpto. de Informática Telf. +34 964343008E-mail: [EMAIL PROTECTED] http://www.recordrent.comRecord Rent a Car S.A.(quitar nospam para responder)(remove nospam to reply me) -- Martí Riera
RE: rgzpfm con bloqueos
Hola pere ¿ Por que motivo quereis hacer diariamente una reorganizacion ? Saludos Vicente Gómez DTI Pinturas Blatem -Mensaje original- De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]En nombre de [EMAIL PROTECTED] Enviado el: martes, 31 de octubre de 2006 9:29 Para: forum.help400@combios.es Asunto: rgzpfm con bloqueos Es posible reorganizar ficheros aunque estos este en uso (bloqueados). Quiero montar una utilidad para que diariamente reorganice lo ficheros de una biblioteca. Gracias. NOTA: Feliz TRUCO O TRATO (para todos aquellos que están más allá del CHARCO) === La originalidad no esta en el HECHO, esta en laSOLUCIÓN Cualquier cosa que gobierne tu vida te autodestruirá Sino dices lo que piensas es que no piensas - M i O T a O - === .~. /V\ L I N U X // \\ Phear the Penguin /( )\ ^^-^^ Pon un Pinguino en TU VIDA.COM Pere Soria Dpto. de Informática Telf. +34 964343008 E-mail: [EMAIL PROTECTED] http://www.recordrent.com Record Rent a Car S.A. (quitar nospam para responder)(remove nospam to reply me)
Re: rgzpfm con bloqueos
Que yo sepa, no. Yo tengo las reorganizaciones en unos cl's que someto a una cola nocturna, y que se auto someten si falla la reorganizacion PGMPARM(ODOBNM L S) DCLVAR(ODOBNM) TYPE(*CHAR) LEN(10) DCLVAR(L) TYPE(*CHAR) LEN(10) DCLVAR(S) TYPE(*CHAR) LEN(1) IF COND(S *EQ 'S') THEN(DO) DLYJOB DLY(5) ENDDO QSYS/ALCOBJ OBJ((L/ODOBNM *FILE *EXCL)) WAIT(5) MONMSG MSGID(CPF1002) EXEC(DO) SBMJOB CMD(CALL PGM(REORGPFM) PARM(ODOBNM L 'S')) + JOB(ODOBNM) JOBQ(QNOCHE) JOBPTY(7) GOTOCMDLBL(FIN) ENDDO QSYS/RGZPFM FILE(L/ODOBNM) MONMSG MSGID(CPF) FIN:QSYS/DLCOBJ OBJ((L/ODOBNM *FILE *EXCL)) ENDPGM Pedro Pinedo Hernandez: Analista-Programador Grupo Amcor Flexibles Hispania S.L. Departamento de Informática / IT Department tfno.:+34 941 28 60 90 - 941 03 01 39 fax: +34 941 20 75 43 Avd. Burgos 67-95 26006 Logroño Spain [EMAIL PROTECTED] (quitar nospam del dominio, para enviar) ___ AMCOR FLEXIBLES - LEADING THROUGH INNOVATION ___ CAUTION - This message may contain privileged and confidential information intended only for the use of the addressee named above. If you are not the intended recipient of this message you are hereby notified that any use, dissemination, distribution or reproduction of this message is prohibited. If you have received this message in error please notify AMCOR FLEXIBLES immediately. Any views expressed in this message are those of the individual sender and may not necessarily reflect the views of AMCOR FLEXIBLES.
Re: rgzpfm con bloqueos
Hola, Yo tendria en cuenta la cantidad de registros suprimidos par adecidir si reorganizar o no. Para poder valorar si la ventaja de tener el fichero reorganizado es mayor que la del tiempo que dedicaremos a ello. Saludos. 2006/10/31, vicente [EMAIL PROTECTED]: Hola pere ¿ Por que motivo quereis hacer diariamente una reorganizacion ? Saludos Vicente Gómez DTI Pinturas Blatem -Mensaje original-De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] En nombre de [EMAIL PROTECTED] Enviado el: martes, 31 de octubre de 2006 9:29Para: forum.help400@combios.esAsunto: rgzpfm con bloqueos Es posible reorganizar ficheros aunque estos este en uso (bloqueados). Quiero montar una utilidad para que diariamente reorganice lo ficheros de una biblioteca. Gracias. NOTA: Feliz TRUCO O TRATO (para todos aquellos que están más allá del CHARCO) === La originalidad no esta en el HECHO, esta en laSOLUCIÓN Cualquier cosa que gobierne tu vida te autodestruiráSino dices lo que piensas es que no piensas - M i O T a O -=== .~./V\ L I N U X// \\ Phear the Penguin/( )\^^-^^Pon un Pinguino en TU VIDA.COM Pere SoriaDpto. de InformáticaTelf. +34 964343008E-mail: [EMAIL PROTECTED] http://www.recordrent.comRecord Rent a Car S.A.(quitar nospam para responder)(remove nospam to reply me) -- Martí Riera
RE: rgzpfm con bloqueos
Inicialmente pq tengo ficheros que diariamente tienen muchos movimientos, supongo que esto facilitara el acceso y una mejor gestión para las aplicaciones que usan estos ficheros. Posiblemente esto tengan cosa positivas o negativas, inicialmente veo mas cosas positivas. === La originalidad no esta en el HECHO, esta en laSOLUCIÓN Cualquier cosa que gobierne tu vida te autodestruirá Sino dices lo que piensas es que no piensas - M i O T a O - === .~. /V\ L I N U X // \\ Phear the Penguin /( )\ ^^-^^ Pon un Pinguino en TU VIDA.COM Pere Soria Dpto. de Informática Telf. +34 964343008 E-mail: [EMAIL PROTECTED] http://www.recordrent.com Record Rent a Car S.A. (quitar nospam para responder)(remove nospam to reply me) vicente [EMAIL PROTECTED] Sent by: [EMAIL PROTECTED] 31/10/2006 11:22 Please respond to forum.help400@combios.es To forum.help400@combios.es cc Subject RE: rgzpfm con bloqueos Hola pere ¿ Por que motivo quereis hacer diariamente una reorganizacion ? Saludos Vicente Gómez DTI Pinturas Blatem -Mensaje original- De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]En nombre de [EMAIL PROTECTED] Enviado el: martes, 31 de octubre de 2006 9:29 Para: forum.help400@combios.es Asunto: rgzpfm con bloqueos Es posible reorganizar ficheros aunque estos este en uso (bloqueados). Quiero montar una utilidad para que diariamente reorganice lo ficheros de una biblioteca. Gracias. NOTA: Feliz TRUCO O TRATO (para todos aquellos que están más allá del CHARCO) === La originalidad no esta en el HECHO, esta en laSOLUCIÓN Cualquier cosa que gobierne tu vida te autodestruirá Sino dices lo que piensas es que no piensas - M i O T a O - === .~. /V\ L I N U X // \\ Phear the Penguin /( )\ ^^-^^ Pon un Pinguino en TU VIDA.COM Pere Soria Dpto. de Informática Telf. +34 964343008 E-mail: [EMAIL PROTECTED] http://www.recordrent.com Record Rent a Car S.A. (quitar nospam para responder)(remove nospam to reply me)
RE: rgzpfm con bloqueos
El
mandato RGZPFM tiene un parametro que es: "Estado de BLoqueo". Se puede hacer un
RGZPFM sin bloquear el archivo. Pero tiene elinconveniente que el archivo
necesita estar registrado por Journal y genera un monton de entradas en el
Journal (según el número de regiistros). Yo lo intenté una vez y , a parte de
tardar más que si bloquea el archivo, me generó un monton deentradas en el
Journal.
Mira
le mandato y la ayuda de los parámetros...
Aqui
tienesla ayuda del parametro "Estado del Bloqueo".
Estado de bloqueo (LOCK) -
Ayuda
:
:Especifica el bloqueo que debe adquirirse en el miembro de
:archivo físico. El estado de bloqueo determinará
la :cantidad de
accesos simultáneos que se permite a los demás :trabajos durante
la
reorganización.
:
:*EXCL
: Se adquiere un bloqueo exclusivo. No se permite
el : acceso simultáneo
al miembro de archivo físico desde
: otro
trabajo.
:
*EXCLRD
Se adquiere un bloqueo de permitir lectura
exclusivo. Se permite el acceso de lectura
simultáneo al miembro de archivo físico desde
otro
trabajo.
Si se especifica *EXCLRD, también debe
especificarse
ALWCANCEL(*YES).
*SHRUPD
Se adquiere un bloqueo de actualización compartida.
Se
permite el acceso simultáneo de
actualización,
supresión e inserción al miembro de archivo
físico desde otro
trabajo.
Si se elige *SHRUPD, el orden resultante de las
filas podría no coincidir exactamente
con lo solicitado en la palabra
clave KEYFILE. Las filas se reorganizarán
para parecerse lo más posible al orden
especificado, pero las
operaciones concurrentes de
actualizar,
suprimir e insertar provocarán que algunas filas no
se
reorganicen. Si las filas deben coincidir
exactamente con la secuencia de llegada
(*NONE) o con una
secuencia de archivo por claves, no utilice
*SHRUPD.
Si se especifica *SHRUPD, también debe
especificarse
ALWCANCEL(*YES).
Nota: Encontrará detalles adicionales sobre
los estados de
bloqueo en CL Programming,
SC41-5721.
Personalmente, después de leer esta ayuda no estaría muy convencido de
utilizarloPero ahí
está.
-Mensaje original-De: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]Enviado el: martes, 31 de octubre
de 2006 13:46Para: forum.help400@combios.esAsunto: RE:
rgzpfm con bloqueosInicialmente pq tengo ficheros que diariamente tienen muchos
movimientos, supongo que esto
facilitara el acceso y una mejor gestión para las aplicaciones
que usan estos ficheros. Posiblemente esto tengan cosa positivas o negativas,
inicialmente veo mas cosas positivas. ===La
originalidad no esta en el "HECHO", esta en la"SOLUCIÓN"
Cualquier cosa que gobierne tu vida te
autodestruiráSino dices lo que piensas es que no piensas - M i
O T a O
-===
.~./V\ L I N U X// \\
Phear the Penguin/( )\^^-^^Pon un Pinguino en TU
VIDA.COMPere SoriaDpto. de InformáticaTelf. +34
964343008E-mail:
[EMAIL PROTECTED]http://www.recordrent.comRecord Rent a
Car S.A.(quitar nospam para responder)(remove nospam to reply me)
"vicente"
[EMAIL PROTECTED] Sent by: [EMAIL PROTECTED]
31/10/2006 11:22
Please respond
toforum.help400@combios.es
To
forum.help400@combios.es
cc
Subject
RE: rgzpfm con
bloqueos
Hola pere
¿ Por que motivo quereis hacer
diariamente una reorganizacion ?
Saludos Vicente Gómez DTI Pinturas Blatem
-Mensaje original-De:
[EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]En
nombre de [EMAIL PROTECTED]Enviado el: martes, 31 de
octubre de 2006 9:29Para:
forum.help400@combios.esAsunto: rgzpfm con bloqueos
Es posible reorganizar ficheros
aunque estos este en uso (bloqueados). Quiero montar una utilidad para que diariamente
reorganice lo ficheros de una biblioteca. Gracias.
NOTA: Feliz TRUCO O TRATO
(para todos aquellos que están más allá del CHARCO)
===La
originalidad no esta en el "HECHO", esta en la"SOLUCIÓN"
Cualquier cosa que gobierne tu vida te autodestruiráSino dices lo
que piensas es que no piensas - M i O T a O
-===.~./V\
L I N U X// \\ Phear the
Penguin/( )\^^-^^Pon un Pinguino en TU VIDA.COMPere
SoriaDpto. de InformáticaTelf. +34 964343008E-mail:
[EMAIL PROTECTED]http://www.recordrent.comRecord Rent a
Car S.A.(quitar nospam para responder)(remove nospam to reply me)
Re: rgzpfm con bloqueos
Hola Pere, Otra solucion, que no se si podría aplicar en tu caso seria cambiar los archivos fisicos con REUSEDLT(*YES) con esto podrias evitar reorganizar a menudo los archivos. Lo que tendrias que analizar que otros problemas tendrias si hay programas que leen en orden de secuencia de llegada ya que en este caso podrian estar desordenados. Saludos. 2006/10/31, [EMAIL PROTECTED] [EMAIL PROTECTED]: Inicialmente pq tengo ficheros que diariamente tienen muchos movimientos, supongo que esto facilitara el acceso y una mejor gestión para las aplicaciones que usan estos ficheros. Posiblemente esto tengan cosa positivas o negativas, inicialmente veo mas cosas positivas. === La originalidad no esta en el HECHO, esta en laSOLUCIÓN Cualquier cosa que gobierne tu vida te autodestruiráSino dices lo que piensas es que no piensas - M i O T a O -=== .~./V\ L I N U X// \\ Phear the Penguin/( )\^^-^^Pon un Pinguino en TU VIDA.COM Pere SoriaDpto. de InformáticaTelf. +34 964343008E-mail: [EMAIL PROTECTED] http://www.recordrent.comRecord Rent a Car S.A.(quitar nospam para responder)(remove nospam to reply me) vicente [EMAIL PROTECTED] Sent by: [EMAIL PROTECTED] 31/10/2006 11:22 Please respond toforum.help400@combios.es To forum.help400@combios.es cc Subject RE: rgzpfm con bloqueos Hola pere ¿ Por que motivo quereis hacer diariamente una reorganizacion ? Saludos Vicente Gómez DTI Pinturas Blatem -Mensaje original-De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]En nombre de [EMAIL PROTECTED]Enviado el: martes, 31 de octubre de 2006 9:29Para: forum.help400@combios.es Asunto: rgzpfm con bloqueos Es posible reorganizar ficheros aunque estos este en uso (bloqueados). Quiero montar una utilidad para que diariamente reorganice lo ficheros de una biblioteca. Gracias. NOTA: Feliz TRUCO O TRATO (para todos aquellos que están más allá del CHARCO) ===La originalidad no esta en el HECHO, esta en laSOLUCIÓN Cualquier cosa que gobierne tu vida te autodestruirá Sino dices lo que piensas es que no piensas - M i O T a O -===.~./V\ L I N U X// \\ Phear the Penguin/( )\^^-^^Pon un Pinguino en TU VIDA.COMPere SoriaDpto. de InformáticaTelf. +34 964343008E-mail: [EMAIL PROTECTED]http://www.recordrent.comRecord Rent a Car S.A.(quitar nospam para responder)(remove nospam to reply me) -- Martí Riera
