AW: How can I close ODP in named actgrp?

Hi,

to close the ODPs in a named activation group, you have to close the
activation group with RCLACTGRP. 

BTW when using DFTACTGRP for a program I'd suggest to use a named activation
group instead of QILE. For programs we normally use an activation group with
the same name as the program. In this way it's easy to close the appropriate
activation group. Our service program are either defined with an named
activation group (as long as no insert, update or deletes are executed in
the service programs) or activation group *CALLER.

Mit freundlichen Grüßen / Best regards

Birgitta Hauser

"Shoot for the moon, even if you miss, you'll land among the stars." (Les
Brown)
"If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them?  Not training them
and keeping them!"

-----Ursprüngliche Nachricht-----
Von: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] Im
Auftrag von paolo.coita@xxxxxxxxx
Gesendet: Wednesday, March 07, 2007 09:55
An: rpg400-l@xxxxxxxxxxxx
Betreff: How can I close ODP in named actgrp?


I have the following problem:
- Interactive program Pgm1 (called from menu), created with DFTACTGRP(*NO),
therefore running in QILE;
- Module Mod1 inserted in a srvpgm, created with ACTGRP(*CALLER), which uses
a file File1 with USROPN and ends with RETURN without closing File1.
 
Pgm1 calls repeatedly Mod1 (just for this reason Mod1 does not close File1,
so to speed up execution time), then ends with CLOSE(*ALL) and *INLR =*ON.
 
After Pgm1 has ended, if I check the list of open files of interactive job
from Pgm1 has been launched from, I find File1 too. Assumed that RCLRSC (and
its corresponding API) does not work on named activation groups, how can I
close File1 from within Pgm1, without having to end the whole activation
group QILE? Thank you, Paolo Coita