Journalreceiver Abhängedatum im CL auslesen

[KingofKning]

Was hälst Du denn von DSPJRNRCVA?

In Spool-Datei und dann Datei im CL auslesen

GG 4488

[becama]

Den holprigen Umweg über ne Spoolfile wollte ich nicht gehen. Evtl. gibt es ja die Infos in irgendwelchen Systemtabellen, die ich anzapfen kann.

[Fuerchau]

Journalreceiver sind keine Table-Objekte. Vor allem wenn sie abgehängt sind haben sie ja nochnicht mal einen Journalbezug.

[becama]

Schade, aber irgendwo muss die Kiste das doch ablegen. Aber nur wo? Und vor allem, wie kommt man dran? Über ne API?

[Christian Bartels]

API QjoRtvJrnReceiverInformation hilft, aber dazu muss das CL-Programm als ILE-Programm erstellt werden (Befehl: CRTBNDCL).

Der Beispielcode könnte so aussehen:

DCL VAR(&RECEIVER) TYPE(*CHAR) LEN(20)
DCL VAR(&BUFFER) TYPE(*CHAR) LEN(512)
DCL VAR(&BUFLEN) TYPE(*INT)
DCL VAR(&DETDATE) TYPE(*CHAR) LEN(13)
...
CHGVAR VAR(&RECEIVER) VALUE('RECEIVER LIBRARY ')
CHGVAR VAR(&BUFLEN) VALUE(512)
CALLPRC PRC('QjoRtvJrnReceiverInformation') +
PARM((&BUFFER *BYREF) (&BUFLEN *BYREF) +
(&RECEIVER *BYREF) ('RRCV0100' *BYREF))
CHGVAR VAR(&DETDATE) VALUE(%SST(&BUFFER 109 13))

...

Mit freundlichen Grüßen,
Christian Bartels.