QSYSOPR Meldungen als Email ausgeben

[bettina_martin]

hi,

habe folgende Frage: ist es möglich die QSYSOPR-Meldungen (NUR die, die eine Antwort erfordern) automatisch per Email zu versenden ?

Wir wollen hier nämlich eine automatisierte Email an unseren Helpdesk stellen als eine Art 'Monitoring'.

Gibts da eine Funktion ?
Wenn nein, wie kann man das am besten viell. selber mit einem Programm auslesen ?

lg Martin

[Fuerchau]

Automatisiert gibts da nichts.
Man kann per RCVMSG aus QSYSOPR Nachrichten lesen und z.B. per SNDDST (oder Freeware SNDM) per Mail versenden.

Sinn macht da aber ggf. der Einsatz von Tools, die dies übernehmen.
Diese können nicht nur die Nachrichten versenden (z.B. an Handy's) sondern auch Antworten empfangen und an QSYSOPR zurückgeben.

[bettina_martin]

Automatisiert gibts da nichts.
Man kann per RCVMSG aus QSYSOPR Nachrichten lesen und z.B. per SNDDST (oder Freeware SNDM) per Mail versenden.

Sinn macht da aber ggf. der Einsatz von Tools, die dies übernehmen.
Diese können nicht nur die Nachrichten versenden (z.B. an Handy's) sondern auch Antworten empfangen und an QSYSOPR zurückgeben.

Es genügt die Funktion mit der Email. Darum denk ich mir das selber basteln zu können, NUR:

ich habe eine Maschine mit 4 LPARS, also quasi 4 Rechner.
Wie kann ich hier am besten alle 4 LPARS monitoren, d.h. eine message am qsysopr sollte eigentlich sofort bzw. spätestens 2-3 Minuten später eine Email erzeugen.

Wie löse ich das am besten ? Da müsste ich ja triggern...... oder so

lg

[Fuerchau]

Hierzu musst du ein CLP schreiben, dass per DLYJOB eine Zeit (z.B. 5 Sekunden) wartet und dann per RCVMSG die Nachrichten aus QSYSOPR liest und als Text bzw. Titel per Mail versendet.

Jede Nachricht hat eine 4-stelligen (4-Byte) MSGKEY, so dass man relativ zu diesem MSGKEY die nächste Nachricht abrufen kann, z.B.:

DCL &MSGKEY *CHAR 4
DCL &MSGAKT *CHAR 4

RCVMSG MSGQ(QSYSOPR)
MSGTYPE(*LAST)
RMV(*NO)
KEYVAR(&MSGKEY)

NEXTMSG:
RCVMSG MSGQ(QSYSOPR)
MSGTYPE(*NEXT)
MSGKEY(&MSGKEY)
RMV(*NO)
KEYVAR(&MSGAKT)
MSG(&TEXT)
RTNTYPE(&TYPE)
IF (&MSGAKT *NE ' ') DO
IF (&TYPE *EQ '05') DO
SNDDST ...
ENDDO
CHGVAR &MSGKEY &MSGAKT
GOTO NEXTMSG
ENDDO
DLYJOB 5
GOTO NEXTMSG

In &TYPE steht '05' wenn es ein Abfragenachricht ist.

Dieses CLP kannst du per Autostartjob in ein Subsystem packen, so dass es bei IPL bzw. Start des Subsystem sofort losrennt.

Um nicht jedesmal alle Nachrichten zu lesen wird bei Start der letzte Schlüssel geladen.

Dieses Programm musst du leider in jede LPAR einbringen.
In jeder LPAR musst du auch die Mail konfigurieren.

[bettina_martin]

Hallo Fuerchau,

danke, du bist Spitze !

Ich werde das die nächsten Wochen mal realisieren, sobald ich dazu komme !

lg

[DBlazkow]

Verbesserungsvorschlag:
Program ohne DLYJOB Schleife und
RCVMSG mit Parameter WAIT(*MAX).
Damit wird von eine Seite Performance gespart und von andere bekommt man die Infos sofort.

Hierzu musst du ein CLP schreiben, dass per DLYJOB eine Zeit (z.B. 5 Sekunden) wartet und dann per RCVMSG die Nachrichten aus QSYSOPR liest und als Text bzw. Titel per Mail versendet.

Jede Nachricht hat eine 4-stelligen (4-Byte) MSGKEY, so dass man relativ zu diesem MSGKEY die nächste Nachricht abrufen kann, z.B.:

DCL &MSGKEY *CHAR 4
DCL &MSGAKT *CHAR 4

RCVMSG MSGQ(QSYSOPR)
MSGTYPE(*LAST)
RMV(*NO)
KEYVAR(&MSGKEY)

NEXTMSG:
RCVMSG MSGQ(QSYSOPR)
MSGTYPE(*NEXT)
MSGKEY(&MSGKEY)
RMV(*NO)
KEYVAR(&MSGAKT)
MSG(&TEXT)
RTNTYPE(&TYPE)
IF (&MSGAKT *NE ' ') DO
IF (&TYPE *EQ '05') DO
SNDDST ...
ENDDO
CHGVAR &MSGKEY &MSGAKT
GOTO NEXTMSG
ENDDO
DLYJOB 5
GOTO NEXTMSG

In &TYPE steht '05' wenn es ein Abfragenachricht ist.

Dieses CLP kannst du per Autostartjob in ein Subsystem packen, so dass es bei IPL bzw. Start des Subsystem sofort losrennt.

Um nicht jedesmal alle Nachrichten zu lesen wird bei Start der letzte Schlüssel geladen.

Dieses Programm musst du leider in jede LPAR einbringen.
In jeder LPAR musst du auch die Mail konfigurieren.

[bettina_martin]

hi,

habe nun begonnen ein kleines cl zu basteln, welches offene qsys-opr meldungen vermailt.

ABER: jetzt wollen wir einige Meldungen (an die 20-30) ausklammern vom automatischen vermailen, d.h. für diese soll KEINE Mail geschickt werden.

Wie kann ich beim 'loop' über die msgq qsyopr diese am besten ausfiltern ? ich möchte nicht hardcoded die auszunehmenden msg-numbers im CL ausfiltern. kann ich das sinnvoll über eine Tabelle machen die irgendwie mit einem Tool pflegbar ist ?

lg, martin

[Fuerchau]

Da hilft nur ein kleines RPG, dem du den Schlüssel übergibst und dir ein OK/Nicht OK zurückgibt.
Native in CLP kannst du nicht auf eine Datei mit Schlüssel zugreifen.

Die Alternative ist eine kleine MSGF, in der du die zu überwachenden oder nicht zu überwachenden hinterlegst und dann per RTVMSG mittels MONMSG auf Existenz prüfst.

Mein Empfehlung wäre da allerdings das RPG'le.

[Pikachu]

Native in CLP kannst du nicht auf eine Datei mit Schlüssel zugreifen.

Doch, das geht (einigermaßen). Mit OVRDBF POSITION().

[KingofKning]

Klar,
machste Dir eine PF mit den Nummern drin,
nimmst Dein Cl, rufts ein andres Cl mit der Nummer auf welches die Datei durchliest und Dir als Rückgabewert ja oder nein gibt.
Fettig ist die Brause

GG

[bettina_martin]

Klar,
machste Dir eine PF mit den Nummern drin,
nimmst Dein Cl, rufts ein andres Cl mit der Nummer auf welches die Datei durchliest und Dir als Rückgabewert ja oder nein gibt.
Fettig ist die Brause

GG

oh ja, so einfach kannst gehen ! *aufdenkopfklopf* ;-)

[BenderD]

... da kann die Brause aber labberig werden, bis das Programm das sequentiell durchhat, wenn da viele drinstehen.

D*B

Klar,
machste Dir eine PF mit den Nummern drin,
nimmst Dein Cl, rufts ein andres Cl mit der Nummer auf welches die Datei durchliest und Dir als Rückgabewert ja oder nein gibt.
Fettig ist die Brause

GG