Re: Using a data structure on an externally defined file

How would one turn this externally-described DS into an "array" of records, so 
that the subfields
are referred to as array elements?

TIA, Dan

--- Hans Boldt <boldt@xxxxxxxxxx> wrote:
> rob@xxxxxxxxx wrote:
> > V5R2 is supposed to allow the use of a data structure on an externally 
> > defined file.
> > 
> > Must be me?
> > 
> > I verified that we are using TGTRLS(*CURRENT) and we are running V5R2.
> > 
> >      FFLWORK    IF   E           K DISK
> >       * Describe FLWORK Record to get Amount Columns in an array
> > 
> >       // if you change the dimension of the array you must:
> >       // a) Change the ending position of colalpha
> >       // b) Change the dim() statements
> >      D FLWORKREC     E DS                  EXTNAME(FLWORK:*input)
> >      D  colalpha              39   3150a
> >      D  col                          15p 4 overlay(colalpha) dim(389)
> >       * FLWORK Key List
> > 
> >      C     FLWORKey      KLIST
> >      C                   KFLD                    CO
> >      C                   KFLD                    LOC
> >      C                   KFLD                    ACT
> >       /free
> >        Chain(e) FLWORKey FLWORK FLWORKREC;
> >       /end-free
> > results in:
> >  Msg id  Sv Number Message text  
> > *RNF5155 20      1 The Result-Field operand is not allowed for specified   
> 
> 
> Code the record name as the second argument of CHAIN instead of the 
> file name. Also, if I'm not mistaken, I believe the data structure 
> specified as the third argument has to be defined with LIKEREC.
> 
> Cheers! Hans
> 
> 
> _______________________________________________
> 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.cgi/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.
> 


__________________________________
Do you Yahoo!?
The New Yahoo! Search - Faster. Easier. Bingo.
http://search.yahoo.com