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