Re:Problem receiving a message using qmhrcvpm

I am not sure I have gotten your idea...
You can have a parm in your pgm B,C,D named return code. After that you can get the return code in pgm A, mapping this with the massage file as your design or message array in your pgm A.</:includetail>

------------------ Original ------------------
From: "Robert Rogerson"<rogersonra@xxxxxxxxx>;
Date: Tue, Apr 20, 2010 10:57 PM
To: "RPG programming on the IBM i / System i"<RPG400-L@xxxxxxxxxxxx>;

Subject: Problem receiving a message using qmhrcvpm


I'm having trouble receiving a message which I can see in the job log. Here
is the scenario...

ProgA calls ProgB
ProgB calls ProgC
An error occurs in ProgC
ProgC calls ProgD to send the message
ProgD sends the message (SNDPGMMSG MSGID(WDC0145) MSGF(TFMMSG) MSGDTA(' ')
TOPGMQ(*SAME
('WIM331')) KEYVAR(&W@MSGNO)
ProgD ends
ProgC ends
ProgB ends returning an error
If an error occurred
// Receive program message
QMHRCVPM( msgBack
: %Size(msgBack)
: 'RCVM0100'
: '*'
: 0
: '*PRV'
: Pm_MKey
: 0
: '*SAME'
: Qusec )

I want to receive the message issued by ProgD (this may be different errors
depending on the error generated in ProgC) so I may display it in ProgA to
give a better indication of what error occurred.
One condition I should add is that ProgC and ProgD are vendor supplied
programs I am trying to avoid changing.

Can anyone shed some light on what I am doing wrong?

Thanks,

Rob