RE: using files within subprocedures

>>      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).

I think that, if the program ends with LR on, all files will be closed,
including ones that were user-opened.  So a combination of the above and
ending the program with LR on should meet your requirements.

Another possibility would be a wrapper program which ends the program's
activation group; I think that closes the files opened by the program
too (though I may be wrong...)

Cheers,

Martin.

--                                                                     
Martin McCallion                 
Midas-Kapiti International
Work:  mccallim@midas-kapiti.com
Home: martin.mccallion@ukonline.co.uk

Apologies for the length of this sig, but company policy says:
This email message is intended for the named recipient only.  It may be
privileged and/or confidential.  If you are not the intended named
recipient of this email then you should not copy it or use it for any
purpose, nor disclose its contents to any other person.  You should
contact Midas-Kapiti International as shown below so that we can take
appropriate action at no cost to yourself.

Midas-Kapiti International Ltd, 1 St George's Road, Wimbledon, London,
SW19 4DR, UK
Email: Postmaster@midas-kapiti.com Tel: +44 (0)208 879 1188 Fax: +44
(0)208 947 3373
Midas-Kapiti International Ltd is registered in England and Wales under
company no. 971479

.:. 
+---
| 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
+---