|
midrange.com
I compile those programs with CRTSQLRPGI,but
my "main" pgm has QILE activation group.
Thank You.
Tony Carolla
<carolla@xxxxxxxxx>
Sent by: To
rpg400-l-bounces@mi RPG programming on the AS400 / iSeries
drange.com <rpg400-l@xxxxxxxxxxxx>
cc
06/29/05 04:40 PM Subject
Re: Performance
Please respond to
RPG programming on
the AS400 / iSeries
<rpg400-l@midrange.
com>
What command are you using to compile the program?
If you are compiling the called programs with CRTBNDRPG, and specifying
ACTGRP(*NEW), this creates a new activataion group each time either program
is called, and this can certainly slow it down.
On 6/29/05, Eugen.Baum@xxxxxxx <Eugen.Baum@xxxxxxx> wrote:
>
>
> Header spec has just datFmt and noDebugIO nothing special.
> It seems like with each call to those SQL programs it's starting to
> slow down inside those calls
>
> When I compile i did not change any parms Would You like to tell which
> specifically to check.
> I can see this one Allow blocking . . . . . . . . . *ALLREAD (that's
> probably fine)
>
> Thank You.
>
>
>
>
> Tony Carolla
> <carolla@xxxxxxxxx>
> Sent by: To
> rpg400-l-bounces@mi RPG programming on the AS400 / iSeries
> drange.com <http://drange.com> <rpg400-l@xxxxxxxxxxxx>
> cc
>
> 06/29/05 04:17 PM Subject
> Re: Performance
>
> Please respond to
> RPG programming on
> the AS400 / iSeries
> <rpg400-l@midrange.
> com>
>
>
>
>
>
>
> Well, the SQL is very straightforward. An index over abDateRcv, abWhse and
> abNo _might_ improve the performance of the SQL, but if the statement
> performs well in an SQL session, that is not likely to be the performance
> roadblock.
>
> How are the programs compiled, and what do the header specs look like?
>
> If you make the two called programs into service program modules, the
> CALLs
> might perform better. I would defer a detailed explanation of the
> advantages
> of using service program modules, to some of the veteran ILE gurus on this
> list.
>
> On 6/29/05, Eugen.Baum@xxxxxxx <Eugen.Baum@xxxxxxx> wrote:
> >
> >
> > C/EXEC SQL
> > C+ select dec(count(abCNo),5,0)
> > C+ into :pCount
> > C+ from fpw030
> > C+ where abDateRcv = :pDate and
> > C+ abWhse = :pWhse and
> > C+ abNo = :pNo
> > C/END-EXEC
> >
> > yes, for the same record it's calling to different programs.
> > is that an issue?
> >
> > it's basically simple SQL to get those numbers and then I thought to
> reuse
> > them
> > from any place
> > i need the same info.
> > it's not service program and it's not module.
> >
> > Thank You in advance.
> >
> >
> >
> >
> >
> > Tony Carolla
> > <carolla@xxxxxxxxx>
> > Sent by: To
> > rpg400-l-bounces@mi RPG programming on the AS400 / iSeries
> > drange.com <http://drange.com> <http://drange.com> <
> rpg400-l@xxxxxxxxxxxx>
> > cc
> >
> > 06/29/05 03:42 PM Subject
> > Re: Performance
> >
> > Please respond to
> > RPG programming on
> > the AS400 / iSeries
> > <rpg400-l@midrange.
> > com>
> >
> >
> >
> >
> >
> >
> > Can you give some source examples of what GET01 and GET02 do? Also, how
> > many
> > records are we talking about?
> >
> > It seems to me that you are calling two programs for every record. At
> > first
> > glance, I would try to perform the operations in one module, or at least
> > try
> > to place all disk I/O (reads/writes) in one module.
> >
> > On 6/29/05, Eugen.Baum@xxxxxxx <Eugen.Baum@xxxxxxx> wrote:
> > >
> > >
> > > Hello everyone.
> > >
> > > I have to get some numbers for our customers.
> > >
> > > I created loop thrue master file and for each record
> > >
> > > call 'GET01'
> > > parm custNo
> > > parm number1
> > >
> > > call 'GET02'
> > > parm custNo
> > > parm number2
> > >
> > > where GET01 and GET02 SQLRPGLE programs
> > >
> > > When I debugged those SQL programs individually they are working fast
> > and
> > > using
> > > existing ODP
> > > but from main program it's working very slow.
> > >
> > > any suggestion
> > >
> > >
> > >
> > > Thank You.
> > >
> > >
> > >
> > >
> > > --
> > > 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.
> > >
> > >
> >
> >
> > --
> > "Enter any 11-digit prime number to continue..."
> > "In Hebrew SQL, how do you use right() and left()?..." - Random Thought
> > "If all you have is a hammer, all your problems begin to look like
> nails"
> > --
> > 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 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.
> >
> >
>
>
> --
> "Enter any 11-digit prime number to continue..."
> "In Hebrew SQL, how do you use right() and left()?..." - Random Thought
> "If all you have is a hammer, all your problems begin to look like nails"
> --
> 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 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.
>
>
--
"Enter any 11-digit prime number to continue..."
"In Hebrew SQL, how do you use right() and left()?..." - Random Thought
"If all you have is a hammer, all your problems begin to look like nails"
--
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.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
