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



You could try below to achieve the desire result:
Create PGM1 with activation group of *NEW and SRV1 with activation group of *caller.
Note:
- You will have to research all other side effects that above might cause.
- *NEW will cause additional system resource for each sub-seq call to PGM1.







-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Lim Hock-Chai
Sent: Wednesday, October 10, 2007 12:00 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Service program not using LIBL

That is actually a normal behavior. RCLRSC is a useless command against non OPM program. When PGM1 was first executed, SRV1 will be loaded to the activation group and it will remain there even if you did RCLRSC and end PGM1 with *inlr=*on. You could use CEETREC or RCLACTGRP (not recommended by ibm) to remove SRV1 from the activation group. However, generally speaking, what you're trying to do is not recommended (I think).




-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Pascal Bellerose
Sent: Wednesday, October 10, 2007 11:04 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: Service program not using LIBL

Hi,

Here's our situation:

PGM1 is a ILE RPG Program in LIB1. Was compiled with ACTGRP(*DFT).
SRV1 is a service program in LIB1
PRC1 is a procedure of SRV1.

PGM1 is using PRC1 in an Eval operation.

Now let's complicate the thing a little.

We have another SRV1 in LIB2 that is using different operations but still has the PRC1.

The first situation is:

LIBL has LIB1 as first Library.
PGM1 calls PRC1 from SRV1 of LIB1.
PGM1 exits with INLR set *ON and then a RCLRSC is done in the caller CL program.

Then,
We put LIB2 on top of LIB1 in LIBL.
PGM1 calls PRC1 from SRV1 on LIB1.
PGM1 exits with INLR set *ON and then a RCLRSC is done in the caller CL program.

Why does PGM1 still points at SRV1 from LIB1?


Then we found out that if we compile PGM1 with ACTGRP(TEST), PGM!
change it'S pointer on the second call to PRC1.
(the activation group's name does make any difference as long it is not *DFT or *CALLER)

Is this behavior normal or should we apply a PTF? Or are we missing something?

Thanks,



Pascal Bellerose
pascal_bellerose@xxxxxxxxxxxx
Cascades Canada inc.
Programmeur-analyste au support
Telephone: 819-363-6114 (2114)
Télécopie/Fax: 819-363-6155 (6155)

Tenez-vous vraiment à imprimer ce courriel?
Changez d'environnementalité!
--
This is the RPG programming on the AS400 / 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 AS400 / 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.