Re: Service Program Overhead

At a previous company, I wrote a little test that 10,000,000 calls to a
subprocedure that did almost nothing and that took about 29 seconds. I tried
with program calls and it was still going at 15 minutes so I killed it. That
was on an older system. On a power 5 or 6 it would probably be many times
faster so I would say the overhead of the subprocedure is practically zero.

I would guess something else is going on. I have written scores and scores
of service programs and never seen a performance issue.

On Fri, Nov 13, 2009 at 12:20 PM, Bryce Martin <BMartin@xxxxxxxxxxxx> wrote:

I figured that that would be assumed. If the file is usropn then at the
beginning of the procedure you would do the check for %open(filename) each
time. And it would only open it if it was not opened yet. Then the code
I posted would close all the files when the service program ended and the
activation group was reclaimed. And even if the job ended abnormally the
files would get closed properly.


Thanks
Bryce Martin
Programmer/Analyst I
570-546-4777



"James H. H. Lampert" <jamesl@xxxxxxxxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
11/13/2009 02:07 PM
Please respond to
RPG programming on the IBM i / System i <rpg400-l@xxxxxxxxxxxx>


To
RPG programming on the IBM i / System i <rpg400-l@xxxxxxxxxxxx>
cc

Subject
Re: Service Program Overhead






Bryce Martin wrote:

Are you opening the file on each invocation of the subprocedures? Are
they usropn?

You can open them once and leave them open and have them automagically
closed at the end if you do something like this....

Or you can check the %OPEN(filename) function to see if the file is
already open.
--
This is the RPG programming on the IBM i / System i (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 message (including any attachments) is intended only for the use
of the individual or entity to which it is addressed and may contain
information that is non-public, proprietary, privileged, confidential, and
exempt from disclosure under applicable law. If you are not the intended
recipient, you are hereby notified that any use, dissemination,
distribution, or copying of this communication is strictly prohibited. If
you have received this communication in error, please notify us and destroy
this message immediately. ---
--
This is the RPG programming on the IBM i / System i (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.