Re: using files within subprocedures

[pcunnane@xxxxxxxxxxxxxx]

     Interesting.  The last time I answered this question, I proposed a 
     static indicator variable:
     
          if      not FileOpen
          open    custmast
          eval    FileOpen = *on
          endif
     
     ...and was told that the %open BIF would do it (I was used to v4r1 at 
     the time).  I'm surprised to hear that %open would let you down.
     
     -- 
     Paul Cunnane


______________________________ Reply Separator _________________________________
Subject: RE: using files within subprocedures
Author:  "Stone; Brad V (TC)" <bvstone@taylorcorp.com> at InterNet
Date:    2000-03-01 8:04 am


Just an FYI.  I used this method and also tried using the flag for the INFDS 
and it wasn't always correct.  I don't remember the exact circumstances, but 
the file was closed and the system thought it was open.
     
So, test test test.
     
Brad
     
     
> -----Original Message-----
> From: pcunnane@learningco.com [mailto:pcunnane@learningco.com] 
> Sent: Wednesday, March 01, 2000 9:01 AM
> To: RPG400-L@midrange.com
> Subject: Re: using files within subprocedures 
> 
> 
>      James,
>      
>      Code the file with USROPN.  In the procedure: 
>      
>           if      not %open(CUSTMAST) 
>           open    CUSTMAST
>           endif
>      

     (snip)
     
+---
| 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
+---