What I am attempting to do is to load the subfile in a way that is more intuitive for the end user.
The subfile has 2 records per row, 15 rows per page..
Instead of loading it column down, then across as the system does, I want to load it row across and column down.
ie:
row 1 Field 1 Field 2 Field 3 rr#1 record 1 Field 1 Field 2 Field 3 rr#16 record 16
row 2 Field 1 Field 2 Field 3 rr#2 record 2 Field 1 Field 2 Field 3 rr#17 record 17
row 3 Field 1 Field 2 Field 3 rr#3 record 3 Field 1 Field 2 Field 3 rr#18 record 18
I want to have the following:
row 1 Field 1 Field 2 Field 3 rr#1 record 1 Field 1 Field 2 Field 3 rr#16 record 2
row 2 Field 1 Field 2 Field 3 rr#2 record 3 Field 1 Field 2 Field 3 rr#17 record 4
row 3 Field 1 Field 2 Field 3 rr#3 record 5 Field 1 Field 2 Field 3 rr#18 record 6
With help of one of the responders, I have worked out a method to do this.
Thanks,
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
________________________________
From: Jerry Adams <Jerry@xxxxxxxxxxxxxxx>
To: RPG programming on the IBM i / System i <rpg400-l@xxxxxxxxxxxx>
Sent: Thursday, September 17, 2009 8:37:27 AM
Subject: RE: Formula for loading subfile with multiple records across
I haven't seen anything about *why* one would want to do it this way so I may be off base - but why not use Fold/Drop? The Drop would, of course, show three lines, but to me as a user it would be easier to see the information all at once rather than having to move from panel to panel.
Jerry C. Adams
IBM System i Programmer/Analyst
--
B&W Wholesale
office: 615-995-7024
email: jerry@xxxxxxxxxxxxxxx
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of John McKay
Sent: Thursday, September 17, 2009 2:09 AM
To: RPG programming on the IBM i / System i
Subject: 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.
midrange.com
