RE: Recursion in Service Program

["Bob Cozzi" <cozzi@xxxxxxxxx>]

The files will be automatically open when the proc is called the first time,
that's just the way it works.
If you want to close the file automatically, one way to do that is to put
the service program in a *NEW activation group, that way when the service
program is unloaded, it will close the files. But that's probably not
something that fits your design. Another way is to create a CLOSEFILES
procedure and call it when you want to close the files.
-Bob


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Chris_Bougher@xxxxxxxxxxxxx
Sent: Wednesday, March 24, 2004 12: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.