RE: Suggestion for improving loop performance

Vinay,

Thanks , the number of | may differ with each sub-record within a record.

We have one control record running into multiple records of flat file i.e.

X,1:01 A|B|C"
X,1:02 D|E|F"
X,1:03 G|H|I

X,2:01 1|2|3|4|5
X,2:02 ......


And i know that this record X:01 should contain 5 field's but have 2 missing and rest all are fine (It could vary for each record)

The output becomes like this

X,1: A|B|C||D|E|E|G|H|I

This whole process is repeated like this...

Thanks,
Ashwani Singh
Bank Solutions
Fiserv
Office:   +1 – 407 – 357 - 4550
Mobile: +1- 407 – 416 - 3918
Toll Free (Office): +1-811—407 -357-4550
www.fiserv.com

FORTUNE® Magazine’s 2014 World's Most Admired Companies
Facebook: Like Fiserv  ·  Twitter: Follow @Fiserv  ·  LinkedIn: Connect Fiserv  •  Careers: Join Fiserv

Please consider the environment before printing this e-mail


-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Vinay Gavankar
Sent: Tuesday, May 19, 2015 3:30 PM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: Re: Suggestion for improving loop performance

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.

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