Hola. Teniendo en cuenta de que un journal puede contener datos de varios
ficheros, yo lo hago de la siguiente manera:
1º paro el Journal y paso los datos a un fichero(sólo los datos de
modificacion, alta o baja):
DSPJRN JRN(@JRNLIB/EMERJRN) FILE(*ALLFILE) +
RCVRNG(*CURCHAIN) ENTTYP(PT DL UP) +
OUTPUT(*OUTFILE) OUTFILFMT(*TYPE3) +
OUTFILE(EMERGENCIA/LOGRESTORE) +
ENTDTALEN(*VARLEN 1500)
MONMSG MSGID(CPF7062)
reseteo el journal:
ENDJRNPF FILE(*ALL) JRN(@JRNLIB/EMERJRN)
el Journal*/
CHGJRN JRN(@JRNLIB/EMERJRN) JRNRCV(*GEN) +
SEQOPT(*RESET)
DLTJRNRCV JRNRCV(EMERGENCIA/EMER*) DLTOPT(*IGNINQMSG)
MONMSG MSGID(CPF2117)
y luego, leo el fichero que he creado(logrestore) y actuo según el fichero
que me indique.
Select
When joobj = 'EALBCC'
Movel Joesd RegEALBCC
Call 'ENVEALBCC'
Parm Joentt
Parm Joctrr
* Parm Joesd
Parm RegEALBCC 300
*
When joobj = 'EALBCL'
Movel Joesd RegEALBCL 200
Call 'ENVEALBCL'
Parm Joentt
Parm Joctrr
Parm RegEALBCL
El campo joobj contiene el nombre del fichero que se ha modificado, aqui
te adjunto sólo dos para que veas que el campo Joesd tiene diferente
longitud de registro, porque ésta es igual a la del fichero modificado.
Este registro lo paso a un programa en el que tengo definidos los campos
iguales a los del fichero original, etc, etc, pero si sólo quieres leerlo,
esto último no te hará falta.
Suerte.
"Jorge Caballero" <[email protected]>
Enviado por: [email protected]
14/01/2010 15:27
Por favor, responda a
"forum.help400" <[email protected]>
Para
"'forum.help400'" <[email protected]>
cc
Asunto
journal
Hola amigos,
Alguien me puede dar un ejemplo de como leer los datos generados en los
archivos del journal del sistema, este es un ejemplo de la información que
me muestra el archivo con un query
FECHA HORA DATOS
ESPECÍFICOS
171209 150,021 ¬ áh¬ENDD ? *| *| *
171209 150,510 ¬ áh"ENDD * *? *? *
171209 152,343 ¬ áh¤ENDD * *¤ *¤ *
171209 154,406 * *°¤ENDD * ** ** * *
171209 154,826 ¬ ái*ENDD * ** ** *
171209 155,125 ¬ *±ENDD** ** ** *
171209 160,150 ¬ ái¬ENDD ? ** ** *
171209 160,607 ¬ *¤ENDD** ** ** *
171209 161,552 ¬ ái?ENDD ? * * *
171209 162,017 * **¬ENDD ? *| *|*¬*¬
171209 162,550 ¬ ái*ENDD * ** ** *
171209 162,550 ¬ ái*ENDD * ** ** *
171209 170,038 ¬ ái±ENDD * *¤ *¤* *
Gracias y saludos
Jorge Caballero
-- This message has been checked by ESVA and is believed to be clean.
____________________________________________________
© Publicaciones Help400, S.L. - Todos los
derechos reservados http://www.help400.es
----------------------------------------------------
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
____________________________________________________
© Publicaciones Help400, S.L. - Todos los
derechos reservados http://www.help400.es
----------------------------------------------------
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
