Re: Service program not using LIBL

Pascal,

I would recommend that you do a DSPPGM on PGM1 and push the Enter key
until it takes you to the screen listing the Service Program. Should be
display 4 of 7 shown in the upper right corner. To use the library list as
you are asking, the entry for SRV1 should also show *libl. If it shows a
named library, that is the library that the program has bound the service
program from no matter your library list.

HTH,

Nick W. Mart

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.