QSYSOPR Meldungen als Email ausgeben

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

[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

[Pikachu]

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

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

[bettina_martin]

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

D*B

also wenn ich da alle 3 Minuten drüber loope wird das kein Problem sein denke ich

[Fuerchau]

Das Problem ist doch, dass du je Nachricht alle Einträge durchsuchen musst.
Wenn du also alle 3 Minuten 100 Nachrichten zu prüfen hast, deine "Tabelle" 100 Einträge enthält, benötigst im nagtiven Fall (Eintrag nicht gefunden) 10.000 Zugriffe.

Was den OVRDBF angeht, so ist in CLP immer noch das Problem, dass eine Datei nicht mehrfach gelesen werden kann (CLLE ggf. schon).

Was spricht also gegen ein Mini-RPG, dass nur einen Chain macht ?

[bettina_martin]

Das Problem ist doch, dass du je Nachricht alle Einträge durchsuchen musst.
Wenn du also alle 3 Minuten 100 Nachrichten zu prüfen hast, deine "Tabelle" 100 Einträge enthält, benötigst im nagtiven Fall (Eintrag nicht gefunden) 10.000 Zugriffe.

Was den OVRDBF angeht, so ist in CLP immer noch das Problem, dass eine Datei nicht mehrfach gelesen werden kann (CLLE ggf. schon).

Was spricht also gegen ein Mini-RPG, dass nur einen Chain macht ?

Spricht eigentlich nur dagegen das ich COBOL-Spezialist bin und kein RPG'ler........

[KingofKning]

Da wird mir jemand sympathisch ;-). Ich als alter Cobol Programmierer konnte noch nie nachvollziehen warum man in RPG programmiert. (Wobei historisch betrachtet waren RPG Programme damals wohl schneller als Cobol Programme)

Aber ich könnte dieses Problem auch nicht in RPG lösen.

GG

[bettina_martin]

Da wird mir jemand sympathisch ;-). Ich als alter Cobol Programmierer konnte noch nie nachvollziehen warum man in RPG programmiert. (Wobei historisch betrachtet waren RPG Programme damals wohl schneller als Cobol Programme)

Aber ich könnte dieses Problem auch nicht in RPG lösen.

GG

Ich 'musste' RPG zwangsweise kurz lernen vor ca. 20 Jahren am Beginn meiner Laufbahn. Da kommt einem nur das Kotzen mit der ganzen Bezugszahlen-Kacke aber das ist jetzt off-topic !

ich werds wohl in Cobol machen ;-)

[Pikachu]

Anstelle einem separaten RPG- oder COBOL-Programm ginge auch ein separates CL-Programm mit einem OVRDBF POSITION(*KEY ...) und einem RCVF drin.

Ich als alter Cobol Programmierer konnte noch nie nachvollziehen warum man in RPG programmiert.

RPG ist gut wenn man was mit Zeichenketten machen will, zum Beispiel diese aneinanderhängen ohne oder mit genau einem Leerzeichen dazwischen usw. Das geht in COBOL nur sehr umständlich oder ich hab den Trick übersehen.

Nachtrag: Und auch das Lesen mit Teilschlüsseln (READE, READPE) ist einfacher als in COBOL (da gibt's sowas nicht soweit ich weiß).