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.

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