RE: Recursion in Service Program

Haven't actually DONE this, but would suggest you could add a parm
"BeingCalledRecursively".  External programs that call the bom module would
code parm='Y' or *ON or whatever.  The bom module (meaning GetParts
procedure) would call itself with the opposite...  Close files if procedure
ends and the parm is 'Y'.

Mebbe?

| -----Original Message-----
| [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of
| Chris_Bougher@xxxxxxxxxxxxx

| 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