Re: Performance

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