Re: using files within subprocedures

[James David Rich <james@xxxxxxxxxxxxx>]

On Wed, 1 Mar 2000 pcunnane@learningco.com wrote:
>      Code the file with USROPN.  In the procedure:
>      
>           if      not %open(CUSTMAST)
>           open    CUSTMAST
>           endif
>      
>      You will want a cleanup routine to explicitly close the file, or allow 
>      it to be closed when the activation group ends.

Ah - there's the rub.  How do I code it so that the file is opened on
first invocation (that is what you have above) and closed when the calling
program exits (*not* when the procedure exits).

James Rich
james@dansfoods.com

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---