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".
Code:
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!