ergänzung:

Aufruf getErr aus SRVPGM A

Code:
....
Callp     RcvPgmMsg( rtnMsgInfo         
                   : %Size( rtnMsgInfo )
                   : 'RCVM0100'         
                   : InMsgQue           
                   : Stack              
                   : '*EXCP'            
                   : *Blanks            
                   : 0         
                   : '*SAME'   
                   : ApiError )

...........
InMsgQue ist das rufende PGM
Stack steht auf 0