Auswertung von Journalen

[Bodo Roggenkamp]

Hallo,

kennt jemand Tools zur Auswertung von Journalen, die über die Möglichkeiten vom CMD DSPJRN(liefert nur einen unformatierten String) hinausgehen?
Folgende Info's werden benötigt:
Welches Programm hat bestimmte Felder in einem Datensatz geändert.

Gruss
Bodo

[torsten]

Ich behelfe mir z.B so, dass ich mit DSPJRN ein Outfile erstelle, das dann mit einem kleinen RPG Programm gelesen wird. Die zu prüfende Tabelle wird im RPG Programm als extern definierte Datenstrukur eingebunden - den unformatierten Buffer dann in die DS moven um die Felder ansprechen zu können.

Gruß

Torsten

[JoergZ]

Hi Bodo !

Es geht auch ohne RPG. http://www.as400-forum.de/ubb/smile.gif

Ich erstelle mir eine PF, identisch mit der Original PF, aber vorne an die Felder wie unten aufgelistet.

FILE = Originaldatei
FILE_JRN = wie Original aber JRN-Felder vorne an


DSPJRN mit OUTPUT(*OUTFILE)
OUTFILFMT(*TYPE2)
OUTFILE(LIB/FILE_X)

Dann CPYF FROMFILE(FILE_X)
TOFILE(FILE_JRN)
MBROPT(*ADD)
FMTOPT(*NOCHK)

Felder für Datei mit Journalinformationen:



A JE001 5 COLHDG('EINTRAG LÄNGE')
A JE002 10 COLHDG('FOLGENUMMER ')
A JE003 1 COLHDG('JOURNALCODE ')
A JE004 2 COLHDG('EINTRAGS.ART ')
A JE005 6 COLHDG('DATUM ')
A JE006 6 COLHDG('UHRZEIT ')
A JE007 10 COLHDG('JOB ')
A JE008 10 COLHDG('USER ')
A JE009 6 COLHDG('JOBNUMMER ')
A JE010 10 COLHDG('PROGRAM ')
A JE011 10 COLHDG('OBJEKT ')
A JE012 10 COLHDG('LIBRARY ')
A JE013 10 COLHDG('MEMBER ')
A JE014 10 COLHDG('ANZ OD. REC.#')
A JE015 1 COLHDG('FLAG ')
A JE016 10 COLHDG('COMMIT ZYK.ID')
A JE017 10 COLHDG('USER.PRF ')
A JE018 8 COLHDG('SYSTEM ')
A JE999 20 COLHDG('NICHT BENUTZT')
A ** ab hier Felder der Originaldatei **



Gruß

Jörg

[Bodo Roggenkamp]

Hi Joerg,

dass waren genau die Info's, die wir benötigen. Super!

Gruss
Bodo