Re: MCH3402 on second run of program

Just looked at a compile list. My program was created with a PDM option
"CR'. I don't remember if this came from the vendor or was locally
created. Default for activation group is *CALLER.

Maybe I have just been lucky to not have had this happen before. Likely
other programs I have written using the service program ran in batch, which
would have hidden the issue. With very little activity on the system, I
got lazy and ran the program from the command line instead of submitting to
batch.

John McKee


On Wed, Nov 13, 2013 at 4:29 PM, DeLong, Eric <EDeLong@xxxxxxxxxxxxxxx>wrote:

It really depends on your Activation Group... Check your service program
to see what it's ACTGRP is. If using a named AG, simply issue a RCLACTGRP
for that AG after you run.

Using AG(*NEW) adds ILE overhead, but ensures that resources will be
automatically reclaimed after the module ends. Perhaps the recommended
usage might be to compile CALLER as AG(*NEW) and SRVPGM as AG(*CALLER).
This would cause the procedure to activate into the same AG as the CALLER,
and once CALLER completes, all activated resources will be reclaimed...

There are hundreds of variations on this theme, and without more details,
there's little to really recommend.

-Eric DeLong

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:
midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of John McKee
Sent: Wednesday, November 13, 2013 4:08 PM
To: Midrange Systems Technical Discussion
Subject: MCH3402 on second run of program

I think I've seen this on MIDRANGE before. Tried sraeching but found lots
of other hits.


I wrote an RPGLE program. A function is used in a service program. When
all data has been processed, *INLR is set on.

Run the program and it works. Run a second time, and MCH3402 is received.
Sign off and back on, and program works fine again.

Do I need to change program to include something to get rid of the error?

This is more of a curiousity question, as program likely won't be run very
often - and won't be run by anybody else.

Something about activation group is in my mind.

Just curious why it popped up.

John McKee
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.