CMD / CL / RTNVAL(*YES)

[V_P]

Das mit %ADDR ist genau wonach ich gesucht habe. Klappt wunderbar.

Vielen Dank!

P.S. Die Alternative mit MONMSG war mir schon klar. Ich wollte es aber absichtlich nicht nutzen, da meiner Ansicht nach die Perfomance drunter leidet.

[V_P]

Leider bin ich jetzt auf ein anderes Problem gestossen.

Wenn das CL-Pgm eine Fehlernachricht CPFxxxx hat, kann ich das im RPG-Pgm abfangen. Ich kann aber nicht diesen Fehler an das aufrufende Pgm weiterleiten.

Kann man im RPG sowas ähnliches wie SNDPGMMSG machen?

[Fuerchau]

Ja, dafür gibts das API QMHSNDPM.

Aber Achtung:
Wenn du ein ESC-Nachricht nach oben gibst musst du die korrekte Ebene berücksichtigen.
Bei ILE ist das nicht so leicht, da noch Ebenen dazwischen liegen. Ausserdem zieht dann ein LR-Schalter nicht, da die Programmausführung vorzeitig abgebrochen wird (z.B. kein Close von Dateien).
Eine saubere Bereinigung ist dann nicht möglich.

Man kann sich aber auch hier mit einem Trick helfen, in dem zuerst ein CLP aufgerufen wird, dieses ruft das ILERPG auf mit zusätzlichen Parametern (z.B. ErrorID, ErrorData).

Da Adressen in diesem Fall transparent durchgereicht werden tritt in diesem Fall auch kein Laufzeitfehler auf wenn NULL-Pointer weitergegeben werden.

Nach Rückkehr kann man dann z.B. RCLRSC/RCLACTGRP oder ähnliches tun bevor dann per SNDPGMMSG die Abbruchnachricht gesendet wird.

Das Gleiche gilt auch für andere Nachrichtenarten.

[V_P]

Danke für die Antwort. Werde mal beide Varianten (API / vorgeschaltetes CL) ausprobieren.

Denn probieren geht über's Studieren.

[V_P]

Jetzt klappt alles!

Habe nun ein einziges RPG-pgm, welches QUSRSPLA und im Fehlerfall QMHSNDPM aufruft.

Wenn man QMHSNDPM mit folgenden Parameter aufruft, wird der aufgetretene PGM-Fehler zum aufrufenden Pgm "weitergeleitet".

C                   Eval      QMHMSGID  = ErrId   
C                   Eval      QMHMSGF   = 'QCPFMSG   *LIBL'     
C                   Eval      QMHMSGDTA = ErrData
C                   Eval      QMHMSGLEN = 132                   
C                   Eval      QMHMSGTYP = '*ESCAPE'             
C                   Eval      QMHMSGENT = '*PGMBDY'             
C                   Eval      QMHMSGCTR = 1                     
C                   CLEAR                   QUSEC               
C                   CALL      'QMHSNDPM'             
C                   PARM                    QMHMSGID 
C                   PARM                    QMHMSGF  
C                   PARM                    QMHMSGDTA
C                   PARM                    QMHMSGLEN
C                   PARM                    QMHMSGTYP
C                   PARM                    QMHMSGENT
C                   PARM                    QMHMSGCTR
C                   PARM                    QMHMSGKEY
C                   PARM                    QUSEC    

*ALL: Nochmal Danke für alle Tips!