Re: Compile error

I believe the facililty to read an externally described file into a data
structure is a new feature with V5R2. What release are you on?
----- Original Message ----- 
From: "Tim Kredlo" <TKredlo@xxxxxxxxxxxxxxxx>
To: <RPG400-L@xxxxxxxxxxxx>
Sent: Friday, July 18, 2003 1:25 AM
Subject: Compile error


> 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#
>
> _______________________________________________
> 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/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.
>
>
>