IFS Überwachung / Trigger bei eingehender Datei

[LS400]

Hallo zusammen,

ich hatte mich schon mal mit diesem Thema befasst bin nun aber ein gutes Stück weiter.

Ich habe ein Journal und zeichne dort ein IFS-Verzeichnis auf. Das funktioniert soweit.

Mittels RCVJRNE rufe ich ein Exit-Programm auf (Parameter1 = Journal Eintrag und Parameter 2 = Austausch zwischen Journal und Exit-PGM)

Ich grenze auch über RCVJRNE über die Parameter Journalcode und Entrytype ein, um welche Art Eintrag es sich handelt (in meinem Fall Code B für IFS-Aktionen und bsplw. Entrytype B3 für ein rename oder B1 für ein create)

mein Problem:

die Journaleinträge sehen unlesbar aus. Beispiel eines B1:

Journaleintrag anzeigen

Objekt . . . . . . . : /BETEST
Unvollständige Daten : Nein Minim. Eintragsdaten : *NONE
Folge . . . . . . . : 432
Code . . . . . . . . : B - Integrated File System
Art . . . . . . . . : B1 - Erstellungszusammenfassung

Eintragsspez. Daten
Spalte *...+....1....+....2....+....3....+....4....+....5
00001 ' · L *STMF o ö ¢ TESTUSER '
00051 ' *NONE YYYYYYYYY Y YYYYYYYYY Y YYYYYYYY'
00101 'Y Y y4 üÏÊ" JRNBETEST TESTUSER'
00151 ' ë+ÌA ¢DEDEU È Á '
00201 'Ë È È Ì È0 ¢USENU '
00251 ' â á è á ë è'


Ist das richtig so? Wie komme ich nun an den Dateinamen und Pfad?

[Robi]

das ist etwas kompliziert (war es für uns jedenfals)

GETPATHIFS PR * EXTPROC('Qp0lGetPathFromFileID')

im Jounal steht eine Fileid (FID)
mit o.G. API kannst du die 'übersetzen'

mehr rauszusuchen dauert mir im Moment zu lange, ggf melde dich per PM
Robert

[BenderD]

... da gab's mal was von Carsten Flensburg http://lmgtfy.com/?q=IFS+Journal+Monitor

D*B