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

Re: RPGLE Return vs *INLR

Kerwin,

Can you compile with DFTACTGRP(*YES)?   That would fix it ...

If not, why not?

If it is because those *PGMs invoke *SRVPGMs, then "Congratulations!" You have just violated yet another of Jon and Susan's "7 Deadly Sins"... getting *SRVPGMs activated into the *DFTACTGRP ... where they can never get "de-activated" except by signing off or issuing RRTJOB ...

If you know the "top level programs" involved, you can just ensure those specify ACTGRP(QILE) and then they should all run in that activation group.

Mark S. Waterbury


On Thursday, February 3, 2022, 04:10:03 PM EST, K Crawford <kscx3ksc@xxxxxxxxx> wrote:





I will need to read this article closer and figure out what it is telling
me and what I need to do.
So until I can "Fix these Sins"  the answer to my questions can not be
answered?
Kerwin

On Thu, Feb 3, 2022 at 2:17 PM Mark Waterbury <
mark.s.waterbury@xxxxxxxxxxxxx> wrote:

Kerwin,

DFTACTGRP?  with *CALLER?  without DFTACTGRP(*YES)?  :-/

There is your problem -- you are violating the very first rule of Jon
Paris and Susan Gantner's "Seven Deadly Sins of ILE" ... :-o

See:

https://authory.com/JonParisAndSusanGantner/The-Seven-Deadly-Sins-of-ILE-a0f4e66fe37a745c8bdf7cbc95f0b365f


Hope that helps,

Mark S. Waterbury


On Thursday, February 3, 2022, 03:12:11 PM EST, K Crawford <
kscx3ksc@xxxxxxxxx> wrote:





Using DFTACTGRP

On Thu, Feb 3, 2022 at 2:07 PM Gerald Magnuson <gmagqcy.midrange@xxxxxxxxx

wrote:

And is program A running in a named activation group, or the DFTACTGRP?



On Thu, Feb 3, 2022 at 1:53 PM K Crawford <kscx3ksc@xxxxxxxxx> wrote:

By the way,
version/release of OS/400 or IBM i is V7R3M0 with TR level: 7
All these programs RPGLE.
Activation groups are all  *CALLER

On Thu, Feb 3, 2022 at 1:33 PM K Crawford <kscx3ksc@xxxxxxxxx> wrote:

If I have the following:

                ProgramA calls ProgramB

                ProgramB calls ProgramC

                ProgramC calls ProgramD



                ProgramA ends with *INLR = *ON

                ProgramB ends with *INLR = *ON

                ProgramC ends with RETURN

                ProgramD ends with RETRUN



If program C and D have some Last Changed values like LastClient.  No
INZ
value on it in program C and D.



First question:

If we call ProgramA and it makes it to ProgramD.  Let’s say
LastClient
=
‘AS’.  Then goes back to the menu.

Then, from same session/job we call ProgramA again and it makes it to
ProgramD.  Will LastClient still have ‘AS’ upon entry?



Second question:

If ProgramB has LastClient field. If ProgramB changes LastClient
value.
Will that new value be carried in to ProgramC and ProgramD?

--
KCrawford



--
KCrawford
--
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@xxxxxxxxxxxxxxxxxxxx for any subscription
related
questions.

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

--
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@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.

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





--
KCrawford
--
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@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com
--
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@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.

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




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.