Re: Activation Groups & File Overrides

[Pete Hall <pbhall@xxxxxxxxxx>]

At 13:29 05/12/2000 , Jon Erickson wrote:
>I'm attempting to separate a common subroutine into its own module, (MOD1)
>to be bound and callable from other programs/modules.
>
>The Module opens File1 for input.  I'd like to be able to call this module
>repeatably without the file initialization overhead, yet not have to call
>the module an additional time just to seton LR to close the file.
>
>I've tried 'OVRDBF FILE(FILE) OVRSCOPE(*CALLLVL) SHARE(*YES)' from a calling
>RPGLE using QCMDEXC & USROPN, but the the file still is open, (Scope
>*ACTGRPDFN, Group QILE), after the calling RPGLE DLTOVR & CLOSE opcode and
>seton LR.

You can destroy the activation group. That will close all open files and 
free up the storage allocated inactive programs. I usually do this with a 
call to the API CEETREC. As was recently pointed out to me, this program 
requires two parameters, although both can specify *OMIT. You could also 
execute the RCLACTGRP command to achieve the same thing. The advantage of 
CEETREC for me is (aside from the fact that it's simple) that it 
automatically destroys only the activation group that it is run in, where 
as RCLACTGRP wants you to tell it which activation group(s) to fry.


Pete Hall
pbhall@execpc.com
http://www.execpc.com/~pbhall
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---