RE: retrieving message previously sent to program messageq

["Mark A. Manske" <mmanske@xxxxxxxxxxxxxxxxxx>]

If you lucky, you can do a rtvclsrc, if not, the other icky possibility
"if" you can see the message would be to do a dspjoblog to an *outfile,
and then read that into your other c/l program.

This of course depends on just how much you can see - just some food for
thought.

Mark

-----Original Message-----
From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]On
Behalf Of Steve Wolkis
Sent: Monday, February 25, 2002 11:44 AM
To: rpg400-l@midrange.com
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


_________________________________________________________________
Send and receive Hotmail on your mobile device: http://mobile.msn.com

_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.