× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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.



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.