RE: Compile error -- RPG400-L

Michael,

I have been doing what you are suggesting for quite awhile.

Doing this here is not really necessary, but rather an 'experiment' to
make me familiar with using READ with a DS result field.

The error telling me that I could not use a result field with READ is
troubling, though.
(I am at V5R2)

Thanks,

Tim

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Michael Naughton
Sent: Friday, July 18, 2003 8:30 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: Compile error


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


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