Hi Ken,
Bad choice of words.
Yes, this is really a service program.
In all my functions that require I/O access, I have a parm that indicates the
action for the routine.
If the action is *GET (for example), I test if the files are open, and if not,
open them.
If the action is *CLOSE, I just close any files that are open.
The *CLOSE action is issued from the program using the procedure when it is
complete.
Thanks,
Jeff Young
Sr. Programmer Analyst
IBM -e(logo) server Certified Systems Exper - iSeries Technical Solutions V5R2
IBM Certified Specialist- e(logo) server i5Series Technical Solutions
Designer V5R3
IBM Certified Specialist- e(logo)server i5Series Technical
Solutions Implementer V5R3
________________________________
From: Ken Sims <mdrg8066@xxxxxxxxxxx>
To: rpg400-l@xxxxxxxxxxxx
Sent: Tue, March 8, 2011 4:29:48 PM
Subject: Re: RPG ILE Problems (Activation Groups)
Hi Jeff -
On Tue, 8 Mar 2011 07:39:31 -0800 (PST), Jeff Young
<cooljeff913@xxxxxxxxx> wrote:
What I normally do is to add a parm to my service program to indicate when to
close the file(s).
If the value is not set to close, I test if the file(s) are not open, and open
them.
When the calling program is finished processing, I call the service program with
a close flag and it then closes all of its files.
Normally, I make all parms other than the close flag optional so that I do not
need to pass dummy values when calling it to close the files.
Is this really a service program? I wonder because you say that you
call the service program. But service programs don't get called;
procedures within them do. If it is a service program, why don't you
have a separate close procedure?
(For a regular program that is called repeatedly, I have a standard of
calling it with no parameters to shut it down.)
Ken
Opinions expressed are my own and do not necessarily represent the views
of my employer or anyone in their right mind.
As an Amazon Associate we earn from qualifying purchases.