Re: Array over fields in a data structure

[Tony Carolla <carolla@xxxxxxxxx>]

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..."