JOBLOG LESBAR IN EINE OUTFILE ERSTELLEN

[Techniker]

Hallo,

ich versuche jetzt schon seit zwei Tagen den Log eines Jobs in einen Outfile zu schreiben. Das stellt auch kein Problem da. Leider ist das was im Outfile steht nicht so toll.

Ich habe zu diesem Thema mal ein kleines CL erstellt.

PGM
CHGJOBD JOBD(QDFTJOBD) LOG(4 00 *SECLVL) +
LOGCLPGM(*YES) JOBMSGQFL(*WRAP)
DLTF FILE(TEST/ZWEI)
MONMSG MSGID(CPF0000)
CRTPF FILE(TEST/EINS) RCDLEN(1000) GENLVL(00)
RNMOBJ OBJ(TEST/EINS) OBJTYPE(*FILE) NEWOBJ(ZWEI)
MONMSG MSGID(EDC0185)
DLTF FILE(TEST/OUTFILE)
MONMSG MSGID(CPF0000)
DSPJOBLOG OUTPUT(*OUTFILE) OUTFILE(TEST/OUTFILE)
CHGJOBD JOBD(QDFTJOBD) LOG(4 00 *NOLIST) LOGCLPGM(*NO)
ENDPGM

Läuft auch ganz toll.

Im outfile steht dann folgendes:

2007-02-0111.44.22 *INFO CPF11242007-02-0111.44.20QCPFMSG *LIBL 000 0 *N
2007-02-0111.44.22 *INFO CPI11252007-02-0111.44.20QCPFMSG *LIBL 000 0 *N
2007-02-0111.44.22 *RQS *IMMED 2007-02-0111.44.20 100 0 *N
2007-02-0111.44.22 *COMP CPC16122007-02-0111.44.20QCPFMSG *LIBL 000 0 *N
2007-02-0111.44.22 *COMP CPC21912007-02-0111.44.20QCPFMSG *LIBL 000 0 *N
2007-02-0111.44.22 *COMP CPC73012007-02-0111.44.21QCPFMSG *LIBL 000 0 *N
2007-02-0111.44.22 *COMP CPC73052007-02-0111.44.21QCPFMSG *LIBL 000 0 *N
2007-02-0111.44.22 *COMP CPC21922007-02-0111.44.21QCPFMSG *LIBL 000 0 *N
2007-02-0111.44.22 *COMP CPC21912007-02-0111.44.21QCPFMSG *LIBL 000 0 *N
****** DATENENDE ******

Das bringt leider nicht viel.

Ich hätte gerne all infos. So wie sie im Spool stehen.

Habt Ihr da vileicht einen Tip für mich?

Der Techniker

[kuempi von stein]

Hello,

versuchs mal stattdessen mit WRKJOB OUTPUT(*PRINT) OPTION(*JOBLOG)
Die Spoolfile vorher mit OVR in eine Datei umleiten oder den Spool einlesen in eine Datei und dann abarbeiten per Programm.

kuempi

[Techniker]

Hmm,

was bedeutet das denn?

Heißt das, dass erst ein spool erstellt wird der dann ausgelesen wird oder wird erst gar keinere erstellt.

Es geht bei der geschichte auch um die Performance.

Deswegen wollte ich das Thema Spool eigentlich am liebsten gleich auslassen!

Wie würde den der OVR als Umleitung für mein kleines CL aussehen?

[kuempi von stein]

mh...

also ich zeig Dir mal grob den Ablauf, den Rest kriegste alleine hin:

CRTPF FILE(QTEMP/TESTKUEMPI) RCDLEN(200)

OVRDBF FILE(QPJOBLOG) TOFILE(QTEMP/TESTKUEMPI) LVLCHK(*NO)

WRKJOB OUTPUT(*PRINT) OPTION(*JOBLOG)

Und dann schau Dir mal die Datei an.
Die kannste nun Bequem mit CL oder RPG auswerten/abarbeiten (SUBST. usw. usf)

kuempi

[Fuerchau]

Vielleicht hilft dir dieses API da weiter:
http://publib.boulder.ibm.com/infoce...6c%6f%67%22%20

Mittels DSPJOBLOG OUTPUT(*APIDFN) erhältst du dann die Inforamtionen.

Allerdings erhält die Standard-Outfile doch alle Informationen, die du benötigst !
Wenn du noch den Klartext benötigst, kannst du das mittels RTVMSG ermitteln.
Die MSGID, Lib und MSGF sowie die Nachrichtendaten sind in der Outfile alle enthalten.

[Techniker]

Ok, ich danke euch vielmals.

Da werde ich mal ein wenig testen und lesen.

Mit API's habe ich bis jetzt noch nicht gearbeitet. Aber mal sehen was man da so alles mit anstellen kann.

Die geschichte mit dem OVRDBF klappt wunderbar.
Allerdings kostet das wahrscheinlich am meisten Performance!

Das auslesen des Outfiles mit hilfe von RCVMSG werde ich als erstes versuchen.

Das wäre natürlich toll wenn da alle infos drin stehen würden.

Bis später
Der Techniker

[Fuerchau]

Die OUTFILE kannst du per DCLF im CLP bearbeiten (RCVF).
Für die Texte benötigst du RTVMSG !

[Spateneder]

Ich habe vor längerer Zeit einen Artikel für die NEWSolutions übersetzt, in dem ein Utility vorgestellt wurde, das mit Hilfe von APIs das gesamte Joblog eines bestimmten Jobs liest und in eine Subfile ausgibt. Das Programm sollte eigentlich recht einfach an Deine Anforderungen anzupassen sein. Titel war "Das Joblog-Utility", erschienen ca. Ende 2000/Anfang 2001. Code sollte ebenfalls noch verfügbar sein, ansonsten gerne von mir.
Grüße
M. Spateneder

[Techniker]

Danke!

Ich habe es schon geschaft.

Die erste Lösung war das OVRDBF + Workjob.

Und die zweite mit hilfe eines APi's (QMHCTLJL).

Die zweite Möglichkeit war auf jeden Fall die Performantere.

Vielen Dank nochmal an alle!!!!!

[Techniker]

Danke!

Ich habe es schon geschaft.

Die erste Lösung war das OVRDBF + Workjob.

Und die zweite mit hilfe eines APi's (QMHCTLJL).

Die zweite Möglichkeit war auf jeden Fall die Performantere.

Vielen Dank nochmal an alle!!!!!