RE: Performance and %open

I normally see:

Init()
ProcSomething()

The first thing ProcSomething does is call Init()

The first thing Init does is check a global variable to see if it's already 
been called.
If not, it opens the files and sets the global variable to on.  Next, the 
recommendation is to
register a procedure that will get called when the activation group ends.  This 
procedure, CleanUp(),
would simply turn the global variable off and close the files.

Scott Klement has some nice examples:
http://archive.midrange.com/rpg400-l/200406/msg00310.html

HTH,
Charles
 

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On 
Behalf Of Knezevic,
Mihael
Sent: Thursday, February 22, 2007 7:00 AM
To: RPG programming on the AS400 / iSeries
Subject: Performance and %open

hello,

i'm currently writing a serviceprogram which should be used for interactive and 
batch programs and i'm
wondering how to code the opening and closing of the files. my concept was as 
following:

procOpenFiles() - opens files if they are not allready open
procCloseFiles() - closes files if they have been open by
procOpenFiles()
procSomething() - checks if the files have been opened with %open and do some 
calculations

in a batch program i would call procOpenFiles() at the start and
procCloseFiles() at the end and call procSomething a couple of thousand times. 
procSomething would
check at the start if the files have been opened and if not open them and close 
them at the end of the
proc. in an interactive program i would call procSomething only without the 
other two procedures. but
how does %open impact performance if it has to check for 10 or 20 files in 
batch a couple of thousand
times? or would it be better to code a batch and a non-batch procedure?

any ideas?

thanx in advance

mihael knezevic
--
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.




This e-mail transmission contains information that is intended to be 
confidential and privileged.  If you receive this e-mail and you are not a 
named addressee you are hereby notified that you are not authorized to read, 
print, retain, copy or disseminate this communication without the consent of 
the sender and that doing so is prohibited and may be unlawful.  Please reply 
to the message immediately by informing the sender that the message was 
misdirected.  After replying, please delete and otherwise erase it and any 
attachments from your computer system.  Your assistance in correcting this 
error is appreciated.