× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



So, what happens if a service program does a RCLRSC after first call?
Does that end up leaving me with an invalid pointer? That was the
only reason I picked *NEW for AG.

John McKee

On Thu, Jun 13, 2013 at 11:22 AM, Jeff Young <jyoung0950@xxxxxxxxx> wrote:
John,
Just a suggestion, but instead of ACTGRP(*NEW) for the RPGLE pgm, use a
named activation group. This way, the activation group is created once
when the pgm is first launched and stays active until the job ends.
With ACTGRP(*NEW), the system has to create the activation group when the
pgm starts, then destroy it when the pgm ends.


On Thu, Jun 13, 2013 at 12:15 PM, John McKee <jmmckee@xxxxxxxxxxxxxx> wrote:

CLLE is activation group *CALLER

RPGLE changed to AG *NEW. This program utilizes a service program,
which apparently has RCLRSC in it.

Works with AG *NEW on RPGLE, now. Initially RPGLE had AG *CALLER.

John McKee

On Thu, Jun 13, 2013 at 10:55 AM, DeLong, Eric <EDeLong@xxxxxxxxxxxxxxx>
wrote:
Ok, so your CLLE is running a named AG, which calls an RPGLE program
(Presumably AG *NEW), which then calls the proc (presume AG *CALLER)? I'd
suggest reviewing the RPG program to see its AG definition.

-Eric DeLong

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:
rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of John McKee
Sent: Tuesday, June 11, 2013 4:18 PM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: Re: Program runs once correctly, not again until signoff/signon

No.

Programs written by another person. CLLE does parameter checking,
then calls RPGLE to run a procedure. It is that procedure which is no
longer available
after one call.

John McKee

On Tue, Jun 11, 2013 at 3:52 PM, Monnier, Gary <Gary.Monnier@xxxxxxxxx>
wrote:
John,

Are you creating and deleting objects?


-----Original Message-----

On 6/11/2013 3:25 PM, John McKee wrote:
A CLLE calls an RPGLE. Works perfectly the first time. The CLLE
takes parameters. Of interest is the second, which determines what
the program does. The program has two functions. If I run it with
one function, trying to run it with the second function results in
MCH3402 "Tried to refer to all or part of an object that no longer
exists"

Log out and back in, and the function works.

Program does turn on *INLR immediately before a Return.

I have not seen this error before and do not know how to debug it.

John McKee

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


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

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

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

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

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




--
Jeff Young
Sr. Programmer Analyst
--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.