× 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 if there is no pattern in between each field.  ( The actual data structure 
has no pattern).
If I change the structure to be as follow:

      A          R TESTDSFMT
      A            MYFEC1         3
      A            MYOTHER1       9   0 
      A            MYFEC1OK       1
      A            MYFEC2         3
      A            MYOTHER2       5    
      A            MYOTHER3       7    
      A            MYFEC2OK       1
      A            MYFEC3         3
      A            MYFEC3OK       1
      A            MYFEC4         3
      A            MYOTHER4       15   5  
      A            MYFEC4OK       1
      A            MYFEC5         3
      A            MYFEC5OK       1
      A            MYOTHER5       1
      A            MYFEC6         3
      A            MYFEC6OK       1
      A            MYFEC7         3
      A            MYFEC7OK       1
      A            MYFEC8         3
      A            MYFEC8OK       1


 
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Tony Carolla
Sent: Wednesday, November 17, 2004 5:40 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: Array over fields in a data structure


You could define a variable based on a pointer:

     D pMyFec          S               *   Inz
     D MyFec           S              3A   Based(pMyFec)

Point the pMyFec pointer at the first MYFECx field in the data
structure, then do a DOW loop to READE all of the matching input
records.  During this loop, you would
1)  Place the XXFEC variable into the MYFEC variable
2)  Increment the pMyFec pointer (pMyFec+=4;)
3)  READE the next matching record


On Wed, 17 Nov 2004 17:08:23 -0600, Lim Hock-Chai
<lim.hock-chai@xxxxxxxx> wrote:
> If I have a PF (use it as data structure only) that contains the following 
> like below:
>      A          R TESTDSFMT
>      A            MYFEC1         3
>      A            MYFEC1OK       1
>      A            MYFEC2         3
>      A            MYFEC2OK       1
>      A            MYFEC3         3
>      A            MYFEC3OK       1
>      A            MYFEC4         3
>      A            MYFEC4OK       1
>      A            MYFEC5         3
>      A            MYFEC5OK       1
>      A            MYFEC6         3
>      A            MYFEC6OK       1
>      A            MYFEC7         3
>      A            MYFEC7OK       1
>      A            MYFEC8         3
>      A            MYFEC8OK       1
> 
> And I've a INPUT file that contain a field XXFEC
>      A          R INPUTFMT
>      A            XXCUST         9
>      A            XXFEC          3
>      A          K XXCUST
> 
> If the program needs to loop thru this input file for a XXCUST to load XXFEC 
> to fields MYFEC1 to MYFEC8, what would be the easiest way to do this?  I'm 
> going blank here.
> 
> thanks
> --
> 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.
> 
> 


-- 
"Enter any 11-digit prime number to continue..."
--
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.


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

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.