Re: Using a data structure on an externally defined file

Hans,

Following your suggestions seem to beat the compiler into submission. 
However I still think that message RNF5155 is bogus.  A different message 
should be used.
So now
     D FLWORKREC       DS                  likerec(flworkr)
      /free
       Chain(e) FLWORKey FLWORKR FLWORKREC;
      /end-free
seems to work

Rob Berendt
-- 
"They that can give up essential liberty to obtain a little temporary 
safety deserve neither liberty nor safety." 
Benjamin Franklin 




Hans Boldt <boldt@xxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
04/28/2003 07:14 AM
Please respond to RPG programming on the AS400 / iSeries
 
        To:     rpg400-l@xxxxxxxxxxxx
        cc: 
        Fax to: 
        Subject:        Re: Using a data structure on an externally 
defined file


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.