Re: Suggestion for improving loop performance

[Vinay Gavankar <vinaygav@xxxxxxxxx>]

Also, what is the maximum number of | you are expecting? You could try
reducing the Array size. I think Scan will have to initialize the remaining
elements of array for every record.

Vinay

On Tue, May 19, 2015 at 3:26 PM, Vinay Gavankar <vinaygav@xxxxxxxxx> wrote:

> Can you use
> C Eval  Fileds = %trimR(fileds) + '|'
>
> instead of
>
> C Eval  Fileds = %subst(fileds:1:%checkr(' ':Fileds)) + '|'
>
> Vinay
>
> On Tue, May 19, 2015 at 2:17 PM, Singh, Ashwani (Lake Mary) <
> Ashwani.Singh@xxxxxxxxxx> wrote:
>
> > Folks,
> >
> > We are trying to process a 69 million records file which is taking 5
> > hours plus to load into another file. (We have Block *Yes specified for the
> > input file (with 69M records) We need to bring the processing down for
> > sure..
> >
> > We are trying for the multithread as well..
> >
> > There are two crucial loops that run in this single program and causing
> > trouble.
> >
> > The first loop takes round about .6 seconds/rec processed  the other one
> > .4 seconds.
> >
> > Our file is a flat file and is | delimited ..
> >
> > Loop 1
> > D ARRAY1       S           5 0  DIM(999)
> > C    '|'          SCAN        DATA            ARRAY1
> > C Eval X= 1
> > C Eval A= 0
> > C Dow ARRAY1(X) > 0
> > C  Eval A+=1
> > C Eval X+=1
> > C ENDDO
> >
> >
> >
> >
> > Loop2
> > C DOW A < #Pipesreq (Number of pipes actually required)
> > C Eval  Fileds = %subst(fileds:1:%checkr(' ':Fileds)) + '|'
> > C eval A+=1
> > C ENDDO
> >
> >
> > Any suggestion will  be highly appreciated..
> >
> >
> >
> > Thanks,
> > Ashwani Singh
> > --
> > This is the RPG programming on the IBM i (AS/400 and 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.