Re: using files within subprocedures

[pcunnane@xxxxxxxxxxxxxx]

     James,
     
     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.
     
     -- 
     Paul


______________________________ Reply Separator _________________________________
Subject: using files within subprocedures
Author:  James David Rich <james@dansfoods.com> at InterNet
Date:    2000-02-29 6:53 pm


I'm trying to figure out a problem which doesn't appear to be explained in 
any doco that I have read.  I want to have a subprocedure that given a 
customer number returns the customer name, like this:
     
eval    name=get_name(number)
     
The customer name is stored in a database file (duh).  This subprocedure 
could be called many times within a program.  I don't want to have the 
customer file opened and closed over and over for every invocation of 
get_name().  How can I code get_name() so that the customer file stays 
open throughout the life of the calling program?
     
     
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 
+---
+---
| 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
+---