Journal in DB-File auslesen?

[kuempi von stein]

Geht das bei Euch tatsächlich so einfach mit dem Auswerten des Journals um den Benutzer anzuzeigen, was geändert wurde? Soweit ich das sehe, liefert mir das Journal lediglich einen Datenbandwurm (before/after), aber keine Informationenen, welches Feld nun geändert wurde. Hat jemand schon so etwas gemacht oder weiss jemand was über API's, die hier helfen könnten. Ein möglicher Lösungsweg ist mir klar (vergleichen im Array, Position feststellen, DSPFFD über File, geänderte Position dem Feld zuordnen usw.)

Jo, das geht natürlich so einfach.
Mal sehen, ob ich mir nun den Zorn von Holger zuziehe...

Hier mal ein kleiner "workaround" (so sagt man doch dazu?) wie das geht:

DSPJRN JRN(Journalname)
FROMTIME(221007 150000)
TOTIME(221007 160000)
OUTPUT(*OUTFILE)
OUTFILE(QTEMP/TYPE1)
ENTDTALEN(*CALC)

Dann Datei erstellen JRNTYP1 in QTEMP

*
A R QJORDJE
*
A JOENTL 5P 0 COLHDG('EINTRAGSLÄNGE')
A JOSEQN 10P 0 COLHDG('FOLGENUMMER')
A JOCODE 1A COLHDG('JOURNALCODE')
A JOENTT 2A COLHDG('EINTRAGSART')
A JODATE 6A COLHDG('DATUM')
A JOTIME 6P 0 COLHDG('UHRZEIT')
A JOJOB 10A COLHDG('JOBNAME')
A JOUSER 10A COLHDG('BENUTZERNAME')
A JONBR 6P 0 COLHDG('JOBNUMMER')
A JOPGM 10A COLHDG('PROGRAMMNAME')
A JOOBJ 10A COLHDG('OBJEKTNAME')
A JOLIB 10A COLHDG('OBJEKTBIBLIOTHEK')
A JOMBR 10A COLHDG('TEILDATEINAME')
A JOCTRR 10P 0 COLHDG('GEÄNDERTE ANZAHL OD.')
A JOFLAG 1A COLHDG('MARKIERUNG: 1 ODER 0')
A JOCCID 10P 0 COLHDG('COMMIT-ZYKLUS-ID')
A JOINCDAT 1A COLHDG('UNVOLLST.')
A JOMINESD 1A COLHDG('MINIM. ESD')
A JORES 18A COLHDG('NICHT VERWENDET')
A JOESD 2000H COLHDG('INHALT')
A*

CPYF FROMFILE(QTEMP/TYPE1)
TOFILE(QTEMP/JRNTYP1)
MBROPT(*REPLACE)
FMTOPT(*MAP)

Dann Datei erstellen JRNTMP1 wie JRNTYP1 aber statt JOESD die Felder der
betreffenden echten Datei anhängen.

Dann...

CPYF FROMFILE(QTEMP/JRNTYP1)
TOFILE(QTEMP/JRNTMP1)
MBROPT(*REPLACE)
FMTOPT(*NOCHK)


Fertig! Auswerten mit z.B. SQL...

Verwirrend?
Dann doch lieber zu Holger!

kuempi