Journal in DB-File auslesen?

[salsadiver]

Hallo Gemeinde,

ich möchte alle Änderungen in einer DB-File protokollieren und in ein eigenes LOG-File
schreiben. Dazu würde ich gerne die Journalisierung benutzen. Weiss jemand wie man
ein Journal ausliest und an die Daten herankommt?
Gruss
Salsadiver

[holly]

Hallo salsadiver,
versuch es mal mit Journaleintrag auffinden (RTVJRNE) - aber wozu willst du ein Log schreiben, das Journal ist doch das Log der Änderungen.
Gruß Holger

[kuempi von stein]

Weiss jemand wie man
ein Journal ausliest und an die Daten herankommt?

Ich würde mal ein DSPJRN nach *OUTFILE versuchen ... Diese dann einlesen/kopieren in eine mit den Feldern die Du auswerten willst ...

have fun

k.

[salsadiver]

Vielen Dank für die Info,
ist aber wohl der Befehl DSPJRN mit Ausgabe in eine Outfile.
Warum ist da brauche ist ganz einfach, ich möchte den Usern die Möglichkeit geben alle
Änderungen nachzusehen.

Gruss

Salsadiver

Hallo salsadiver,
versuch es mal mit Journaleintrag auffinden (RTVJRNE) - aber wozu willst du ein Log schreiben, das Journal ist doch das Log der Änderungen.
Gruß Holger

[salsadiver]

Vielen Dank,

das ist genau die Info die ich brauche, funktioniert auch super!!!

Gruss

Salsadiver

Ich würde mal ein DSPJRN nach *OUTFILE versuchen ... Diese dann einlesen/kopieren in eine mit den Feldern die Du auswerten willst ...

have fun

k.

[Jörg]

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.)

[holgerscherer]

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.)

Ich habe sowas für meine Kunden programmiert (pragmatischer Ansatz über eigene RPG-Programme je Datei). Was wäre es Dir wert? ;-)

-h

[Der_Unwissende]

Also wir haben an bestimmte Dateien Triggerprogramme angehängt, die Änderungen mitschreiben und direkt entsprechend aufbereiten.

[AS400.lehrling]

Ich habe sowas für meine Kunden programmiert (pragmatischer Ansatz über eigene RPG-Programme je Datei). Was wäre es Dir wert? ;-)

-h

Holger, das ist ja schonn fast eine unmoralische Frage

Gruß AS400.lehrling

[holgerscherer]

Holger, das ist ja schonn fast eine unmoralische Frage

Ist ja auch ein unmoralisches Angebot ;-) Obwohl, haben wir schon 22 Uhr vorbei?

-h

[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

[holgerscherer]

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

Warum Zorn? Wir sind doch alle freundlich ;-)

Meine Version ist halt etwas automatisierter, geht auf ein Journal, erstellt Zwischenprogramme und gibt für jede Datei ein Änderungsjournal mit Feldvergleich aus.

-h