Anzeigen der Nachricht aus MSGW einer Spooldatei

[Malte]

Hallo alle zusammen,

ich habe bei uns in der Firma das WrkSplF nach gebaut.

Grund:
Wir hab ein Mail versende Programm gebaut und dann sollte man auch gleich aus der Spool Ansicht Mailen und PDFs erstellen können.

Nun habe ich die fertige Subfiel und habe auch alle Funktionalitäten drin.

Leider Fehlt mir die Auswahl 7=Nachrichten hierfür kenn ich den Befehl leider nicht und habe ihn hier oder bei Google auch nicht gefunden.

Mit DSPMSG kann ich mir die MSG zwar alles anzeigen lassen aber leider nicht direkt die entsprechende Nachricht öffnen.

Hat da jemand eine Idee wie das geht?

vielen Dank schon einmal,

MfG Malte

[Fuerchau]

Das habe ich auch schon des längeren gesucht. Allerdings gibt es in den API's hierzu wohl keine direkte Funktion (nicht offen gelegt).
Man kann sich aber per "DSPMSG MSGQ(THEMSGQ) MSGTYPE(*INQ)" die Abfragenachrichten anzeigen.
Ansonsten ist das sehr mühsam.
Man muss sich per RCVMSG von KEYVAR zu KEYVAR hangeln und über die SENDER-Information prüfen, ob die INQ-Nachricht von dem betroffen Job ist.
Nun fehlt allerdings wieder das API diese Nachricht gezielt anzuzeigen und beantworten zu lassen.

[Malte]

Danke für die schnelle Antwort,

das hatte ich schon befürchtet werde es dann wohl mit einer F-Taste lösen und dann DSPMSG.

Schade vieleicht kommt ja so eine Möglichkeit noch.

[hel400]

Es gäbe da noch eine (total einfache) Alternative:

Im Cmd WRKSPLF gibt's ja die Auswahl "1=Senden".
Normalerweise ist da der Cmd "SNDNETSPLF" hinterlegt.
Wenn Du vorher aber einen OVRMSGF auf die QCPFMSG machst und in die überschriebene MSGF die Nachricht "CPX3438" hineinstellst (Parameter laut QCPFMSG), dann wird sofort Dein Cmd anstatt dem SNDNETSPLF ausgeführt!
Somit kann man sich die "Nachprogrammierung" vom WRKSPLF ersparen (soferne es nur um die Auswahl "Senden" geht. Wenn man mehr haben möchte, bleibt's natürlich nicht erspart).

[Malte]

Hallo hel400,

so etwas Ähnliche hatte ich in meinen Test auch aus probiert.

Ich hatte es mit der Funktion eigenes Programm hinzufügen gemacht.

ADDEXITPGM EXITPNT(QIBM_QSP_SPLF_LSTACT) FORMAT(LASP0100) PGMNBR(*LOW) 
   PGM(LIBL/PGM) PGMDTA(*JOB 1 P)

Das klappt auch sehr gut, nur leider hatte ich da erstens die Subfile schon fertig und zweitens wird die Auswahl oben dem User nicht angezeigt, dieses war uns zu User unfreundlich.

[hel400]

Na passt.
Obwohl - nur der Ordnung halber - der Text "1=Senden" wird schon angezeigt. Falls nicht, dann einfach den ASTLVL (Taste F21) in diesem Cmd anpassen oder gleich aufrufen mit
WRKSPLF xxx ASTLVL(*INTERMED) und alles ist wie gewünscht.