QSYSOPR Meldungen als Email ausgeben

[Fuerchau]

OK, dann schreib ein Mini-COBOL, das nichts anderes als einen "READ ... INVALID KEY" dürchführt.
Das dürfte doch auch kein Problem sein.
Da COBOL durch seine Rununit die Aktivität selber steuert (*INLR gibts da nicht), kannst du aus Performancgründen einen OVRDBF ... SHARE(*YES) machen, damit der Open/Close dann schneller geht.

Ein "exit program and continue run unit" geht nur, wenn das programm von einem anderen COBOL-Programm aufgerufen wurde.

Was den OVRDBF POSITION angeht, so benötigst du für jeden Zugriff einen
OVRDBF
CALL
OPEN (Implizit)
RECVF
CLOSE (Implizit bei RETURN/ENDPGM)
und das dauert.

[bettina_martin]

OK, dann schreib ein Mini-COBOL, das nichts anderes als einen "READ ... INVALID KEY" dürchführt.
Das dürfte doch auch kein Problem sein.
Da COBOL durch seine Rununit die Aktivität selber steuert (*INLR gibts da nicht), kannst du aus Performancgründen einen OVRDBF ... SHARE(*YES) machen, damit der Open/Close dann schneller geht.

Ein "exit program and continue run unit" geht nur, wenn das programm von einem anderen COBOL-Programm aufgerufen wurde.

Was den OVRDBF POSITION angeht, so benötigst du für jeden Zugriff einen
OVRDBF
CALL
OPEN (Implizit)
RECVF
CLOSE (Implizit bei RETURN/ENDPGM)
und das dauert.

alle wege führen nach rom....ich kann auch im cobol-pgm ein sql-statment einbauen welches die datei mit den ausnahmen liest.....gibt wohl viele Möglichkeiten.

[Fuerchau]

Stimmt schon, aber brauchst du den SQL-Overhead ?

[BenderD]

... man kann natürlich auch als NEP ein COBOL aufrufen, das ein CL aufruft, das den Loop mit dem DLYJOB macht und dann RCVMSG und per MSG ein weiteres COBOL aufruft, das dann die Datei liest ... - dann bleibt die COBOL Runtime im Job aktiv.
Naja, bei Lichte betrachtet geben sich die Schwafel- und die Stammelprogrammierung nicht viel...

D*B

OK, dann schreib ein Mini-COBOL, das nichts anderes als einen "READ ... INVALID KEY" dürchführt.
Das dürfte doch auch kein Problem sein.
Da COBOL durch seine Rununit die Aktivität selber steuert (*INLR gibts da nicht), kannst du aus Performancgründen einen OVRDBF ... SHARE(*YES) machen, damit der Open/Close dann schneller geht.

Ein "exit program and continue run unit" geht nur, wenn das programm von einem anderen COBOL-Programm aufgerufen wurde.

Was den OVRDBF POSITION angeht, so benötigst du für jeden Zugriff einen
OVRDBF
CALL
OPEN (Implizit)
RECVF
CLOSE (Implizit bei RETURN/ENDPGM)
und das dauert.

[Fuerchau]

Dann würde ich doch gleich auf REXX umsteigen.
Da kannst du dann CMD's inlc. RTV-CMD's genauso ausführen wie SQL und du hast alles in einem "Programm".

[Bodo Roggenkamp]

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 ?

Nur kurz erwähnt: Es ist sehr wohl möglich, in CLP eine Datei mehrfach auszulesen.

Gruß
Bodo

[Fuerchau]

Ich sprach ja auch von CLLE, da sollte es per OPNID im DCLF gehen, wenn man per CLOF die Datei wieder schließt.
Aber auspropiert habe ich das noch nicht, sicherer ist mir da immer noch TFRCTL.