Re: How to deal with MONMSG when a CL program is the EXTPGM() in an RPG program

Booth,

Assuming that you don't want (or can't) change the CL program then one
approach I've seen in the past is:

1. Have the RPG program send a program message that you define (call this
your marker message)
2. Call the CL program
3. When the CL program returns the RPG program receives program messages
until it finds it's marker message. You have now become aware of all
messages related to the called program (and that had not been previously
removed).

Google QMHRCVPM and you should find a few hits related to what you might
want to do. There are several possible approaches.





On Sat, Jun 15, 2019 at 10:54 AM David Gibbs via RPG400-L <
rpg400-l@xxxxxxxxxxxxxxxxxx> wrote:

On 6/15/19 1:13 AM, Booth Martin wrote:

An RPG program has:

d SendDoc pr extpgm('SEND5C')
d 10

SEND5C is a CL program with a MONMSG MSGID(CPF0000)

How do I capture that message in my RPG program?

On your MONMSG CPF0000, have it execute some code (jump to a tag or
execute a
subroutine) that sets a return variable with the message id & message data
(which you can retrieve with RCVMSG) and return that information to the
calling
program in a variable.

david


--
IBM i on Power Systems: For when you can't afford to be out of business!

I'm riding 615 miles (Yes, you read that right) in the American Diabetes
Association's Tour de Cure to raise money for diabetes research,
education,
advocacy, and awareness. You can make a tax-deductible donation to my
ride by
visiting https://mideml.diabetessucks.net.

You can see where my donations come from by visiting my interactive
donation map
... https://mideml.diabetessucks.net/map (it's a geeky thing).

I may have diabetes, but diabetes doesn't have me!
--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com