× 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.


  1.  Home
  2. RPG400-L
  3. June 2013

Re: Program runs once correctly, not again until signoff/signon

I believe creation parms were set by vendor. Default activation group
*NO and Activation group *CALLER

AG *CALLER did not work properly.

Program will be used, at most, twice a week. Only intended for system
jobs that run on weekend. Purpose is to end jobs and shut down four
subsystems.

John McKee

On Thu, Jun 13, 2013 at 12:10 PM, Charles Wilt <charles.wilt@xxxxxxxxx> wrote:
No. The problem only occurs when *CALLER is used _AND_ results in the
program/service program being activated in the DFTACTGRP.

Personally, I'd move the CLLE into something besides the DFTACTGRP also.

I believe the "beginners guide to ILE" suggests using DFTACTGRP(*NO)
ACTGRP(MYCOMPANY) for all ILE *PGM. *SRVPGM can either be the same or
ACTGRP(*CALLER). Assuming you follow the recommendation for *PGM, the
behavior of *SRVPGM is basically the same. (There was a discussion on the
list a while back about differences) But once you start making use of
additional named groups, you usually want the *SRVPGM to be *CALLER.

Trigger programs should (almost) always be ACTGRP(*CALLER)

HTH,
Charles



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

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@midrange.comTo
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.

--
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.


As an Amazon Associate we earn from qualifying purchases.

This thread ...
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.