RE: Reading large parm

Not sure. OP said read 6 places at a time. I assumes that he means the
data in the parameter is equally divided into 6 different
segments/elements. Under this assumption, the parameter would need to
be declared as
D piParm 20 dim(6)

If OP means read 6 chars at a time then your method would be correct.



-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of rob@xxxxxxxxx
Sent: Tuesday, May 06, 2008 10:13 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: Reading large parm

Don't you mean
D piParm 6 dim(20)
instead of
D piParm 20 dim(6)


Rob Berendt
--
Group Dekko Services, LLC
Dept 01.073
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





"Lim Hock-Chai" <Lim.Hock-Chai@xxxxxxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
05/06/2008 11:06 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc

Subject
RE: Reading large parm






You could just declare the parameter as DIM(20) and you program can just
loop thru the array like normal.

D TEST pr extpgm('TEST')
D piParm 20 dim(6)



-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Steve Jones
Sent: Tuesday, May 06, 2008 9:20 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: Reading large parm

Group:

I am looking for a good way to break apart a large parm passed to my
program. The parm will be 120 in length, but I need to read 6 places at
a time & use that later in the program. Instead of creating a data
structure which breaks it down, can I somehow just read 6 places at a
time, use that info, then read the next 6?

Thank in advance
Steve Jones
--
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.