Re: Same field name , Different suffixes -- RPG400-L


 Thanks Carel. I was looking for an optimised soln
like this ,instead of making 10 MOVE stmts. I'll try
this and let you know if I have any problems with it.

Priya.

--- Carel Teijgeler <teygeler@bart.nl> wrote:
> 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
> +---


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