Re: Compile error

["Michael Naughton" <mnaughton@xxxxxxxxxxxx>]

Hi Tim,

This is not a direct answer to your question, but why not take a step back
and drop the requirement that you read the data into the data structure
directly.  Since you have the DS externally defined with the same field
names, if you read the data into the record format (as you normally
would), all the fields in the DS will be automatically populated. You can
then use the array you have defined over the DS for whatever you want.

As the article Walter referenced points out, you can gain some benefits in
V5R2 by reading directly into the DS, but if all you need to do is
populate the fields while ensuring they're contiguous, using an externally
defined DS but still reading into the record format will work just fine.

hth,

RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx> writes:
>Please help!
>
>I am trying to read an externally described file and automatically place
>the retrieved record into a local data structure.
>
>The following code generates this compile error:
>*RNF5155 20      1 The Result-Field operand is not allowed for specified
>operation.
>
>I found this in the Websphere RPG manual for the READ command:
>"READ{(EN)} name {data-structure}"
>"If name refers to an externally-described file or a record format from
>an externally described file, the data structure must be a data
>structure defined with EXTNAME(...:*INPUT) or LIKEREC(...:*INPUT)." 
>and believe I am doing this in the first 'D' spec listed below.
>
>Can anyone help tell me what I am doing wrong here?
>
>TIA
>
>Tim Kredlo
>
>Code____________________________________________________
>
>FOpenSO_P  IF   E           K Disk
>...
>...
>D SoRecP        E DS           ExtName(OpenSO_P:*Input)
>D                                      Qualified
>D                                              Inz               
>D  SoArry                              Overlay(SoRecP:1)
>D                                      Dim(128)
>D                                      Like(A1)
>...
>...
> /Free
>       SetLL *Start OpenSO_P;
>
>       DoU %Eof(OpenSO_P);
>           Read OpenSO_P SoRecP;
>               ( I have also tried: "Read OpenSO_P OPENSORP;" with same
>error.)
>               (And: When I do : "Read OpenSO_P;" I get no records)
>               ....
>               more code in here
>               ....
>       EndDo;
> /End-Free
>
>Code from DDS for externally described file Openso_P:
>A                                      REF(@FLDREF)
>A      R       OPENSORP   
>A          R   CODE
>A          R   SOSO##
>A ...          Some more fields
>A      K       SOSO##
>A      K       SOREC#


Mike Naughton
Senior Programmer/Analyst
Judd Wire, Inc.
124 Turnpike Road
Turners Falls, MA  01376
413-863-4357 x444
mnaughton@xxxxxxxxxxxx