Re: Same field name , Different suffixes

[Carel Teijgeler <teygeler@xxxxxxx>]

priya namasivayam wrote:

> Hi,
>
>   I've got a file which has 10 fields, EXBGR1, EXBGR2
> ... EXBGR10. This is my output file. I have another
> file which is my input file with fld BGR# & can have
> many records for the same key. I would like to READE
> this file in a loop and populate the EXBGR1,2, .. 10
> fields from fld BGR# in each iteration of this i/p
> file. The i/p file may or may not have 10 recs,but it
> can have a max of 10 recs for each key. I would like
> to know the easiest way to do this.
>
>   I/P file : IPFILE
>      Field : BGR# (1 to 10 recs for same key)
>
>   O/P file : OPFILE,
>      fields: EXBGR1, EXBGR2, ... EXBGR10.
>
>  Pl let me know if I've not stated this problem
> clearly.
>
> Thanks,
> Priya
>
> __________________________________________________
> Do You Yahoo!?
> Yahoo! Photos - 35mm Quality Prints, Now Get 15 Free!
> http://photos.yahoo.com/
> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to RPG400-L@midrange.com.
> | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator: david@midrange.com
> +---

Priya,

I was thinking of  (forget formatting):

D                      DS
D Array                             10  DIM(10)
D        EXBGR1                10  OVERLAY(Array:1)
D        EXBGR2                10  OVERLAY(Array:*next) etc.

D Index                    S         3 0 INZ(0)

C                      Clear                          Array
C                       Reset                         Index
C                       Do               10          Index
C                       Read
IPFILE                                                          99
C                       If        *IN99 = *ON
C                       Leave
C                       EndIf
C                       Eval    Array(Index) = BGR#
C                       EndDo
C                       Write  Output

This is roughly my solution.

Hope it is helpful.

Carel.

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---