Re: Formula for loading subfile with multiple records across

Booth,

The sample code below is a sketch of how you could do the 3 fields across.

I did not deal with the 15 lines because I was not sure whether your subfile is a fixed or expandable size.

Contact me if you need more ...

d zarray 5 dim(3)
d in_loop 1n
d zx 5 0
d subrrn 4 0

I subfile_record 99
I zarray(1) 1 5 field1
I zarray(2) 6 10 field2
I zarray(3) 11 15 field3

/free
in_loop= *on;
dow in_loop; // in_loop
zx = *zeros;
clear zarray;
read dbfile;
if %eof; // eof
in_loop = *off;
else;
for zx = 1 to 3;
zarray(zx) = dbfield;
read dbfile;
if %eof;
in_loop = *off;
leave;
endif;
endfor;
endif;
if zx > *zeros; // zx
subrrn = subrrn + 1;
write subfile_record;
endif; // zx
endif; // eof
enddo; // in_loop
/end-free

Regards,
John McKay mba
www.rpglanguage.com

----- Original Message ----- From: "Booth Martin" <booth@xxxxxxxxxxxx>
To: "RPG programming on the IBM i / System i" <rpg400-l@xxxxxxxxxxxx>
Sent: Wednesday, September 16, 2009 10:54 PM
Subject: Re: Formula for loading subfile with multiple records across

Try building the subfile with 15 lines, each line about 75 chars long.
Have an array of 45 elements.
define 3 counters, inz at 1, 16, and 31
Load data into the array elements, 3 records at a time.
then, load the subfile normally from the array.


Jeff Young wrote:

I have a subfile with 15 lines per page and 3 records per line.
The normal way the system loads the subfile is down and then across.
I would like to load it across, then down.

Ex: Record 1 = RR# 1
Record 2 = RR# 16
Record 3 = RR# 31

Record 4 = RR# 2
Record 5 = RR# 17
Record 6 = RR# 32
.....

Does anyone have a formula or method that will do this?


TIA

Jeff Young
Sr. Programmer Analyst
IBM -e(logo) server Certified Systems Exper - iSeries Technical Solutions V5R2
IBM Certified Specialist- e(logo) server i5Series Technical Solutions Designer V5R3
IBM Certified Specialist- e(logo)server i5Series Technical Solutions Implementer V5R3

--
This is the RPG programming on the IBM i / System i (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.