Re: Same field name , Different suffixes

make a 10-element array. 
Clear the array
set an index to 1

READE 
if equal, move value of BGR# to Array(index)
increment the array's index by 1
READE again
do that loop till not Equal, or till the array is full.
then,
move the value of each array element to it's corresponding output field 
(10 moves or evals).

Repeat till done.

_______________________
Booth Martin
Booth@MartinVT.com
http://www.MartinVT.com
_______________________




priya namasivayam <priyanam@yahoo.com>
Sent by: owner-rpg400-l@midrange.com
10/06/2000 02:53 PM
Please respond to RPG400-L

 
        To:     RPG400-L@midrange.com
        cc: 
        Subject:        Same field name , Different suffixes

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
+---




+---
| 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
+---