Re: retreiving message previously sent to program messageq

Steve,

After calling CL-B, call API QMHMOVPM (Move program messages).  This will
move all the program messages that have been sent to CL-A to the caller of
CL-A.  A couple of years ago there was an article in one of the magazines
describing a way to wrap the parameters in a command.  If you are interested
I could mail you the source of the command.

Joep Beckeringh

----- Original Message -----
From: "Steve Wolkis" <pthswolkis@hotmail.com>
To: <rpg400-l@midrange.com>
Sent: Monday, February 25, 2002 6:43 PM
Subject: retreiving message previously sent to program messageq


> Hi
>
> I have a CL (lets call it CL-A) that calls another CL (lets call it CL-B -
> which is proprietary, and I don't have source code for).
>
> If I run CL-B as a stand alone, if invalid information is entered in one
of
> the prompts, when enter is pressed the CL will use a SNDPGMMSG command,
and
> on the program status line, it will show a message showing something like
> "outq not valid", or whatever the problem was.
> (I can tell SNDPGMMSG was used by looking at job log)
>
> When I now run CL-A, which calls CL-B, if the same invalid information is
> entered, you do not see the message in the program status line.
>
> I've looked on the boards, and looked into
> using RCVMSG with *PRV, but that works the opposite way (CL-B could pass
> info back to CL-A).. and I can't modify CL-B.
>
> Is there any way CL-A could re-display what CL-B previously output to the
> program messageq.
>
> Thanks