RE: Recursion in Service Program

IIRC, there's a way to see if a file is open or not.  You could simply use
that to make sure you don't close a file that's already been closed.

Or, you could redo you procedure to something like this:

p Myproc     b
d Myproc     pi

 /free
      open  myfile
      RecursiveProc()
      close myfile
 /end-free
p MyProc     e

p RecursiveProc   b
d RecursiveProc   pi

 /free
    //whatever
    RecursiveProc()

 /end-free
p RecursiveProc   e


HTH,
Charles

> -----Original Message-----
> From: Chris_Bougher@xxxxxxxxxxxxx [mailto:Chris_Bougher@xxxxxxxxxxxxx]
> Sent: Wednesday, March 24, 2004 1:35 PM
> To: rpg400-l@xxxxxxxxxxxx
> Subject: Recursion in Service Program
> 
> 
> I have a service program that gets parts for a bom. The 
> service programs
> getParts procedure can be called recursively. How can I make 
> sure the files
> are opened the first time the procedure is called and closed after the
> first level is done. I put close statements at the end of the 
> procedure but
> then when the recursive call ends it closes the files and the 
> top-level
> call ends in error.
> 
> Any ideas?
> 
> Thanks
> Chris Bougher
> 
> 
> 
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) 
> mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>