RE: Compile error

Gee, does this sound familiar?

Tim, basing is what I had to do also.

http://archive.midrange.com/rpg400-l/200304/msg00640.html

One of the times that I have to agree with Joe Pluta about hearing 
"Sermon's on the mount" from the compiler team.  Glad to see that they've 
"seen the light".

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+rob=dekko.com@xxxxxxxxxxxx
07/18/2003 02:48 PM
Please respond to RPG programming on the AS400 / iSeries
 
        To:     rpg400-l@xxxxxxxxxxxx
        cc: 
        Fax to: 
        Subject:        RE: Compile error


Tim Kredlo wrote:
> Hans (and Buck),
> 
> Thanks for the help!
> 
> but.....
> 
> Since I changed to 'LikeRec' it seems I can no longer overlay the data
> structure with the array.
> (This part worked fine when I used 'ExtName'.)
> 
> Code:
> D SoRecP          DS  LikeRec(OPENSORP:*Input)
> D  SoArry                     Overlay(SoRecP:1)
> D                             Dim(128)
> D                                     Like(A1)
> 
> Compile errors:
> D  SoArry                             Overlay(SoRecP:1)
> *RNF3703 20 a      008300  The subfield or parameter definition is not
> specified within a group.
> *RNF3601 20 b      008300  Keyword is not allowed for a field
> definition; keyword ignored.
> 
> 
> It seems the compiler thinks that SoRecP is now a field rather than a
> data structure.
> 
> I'm confused!
> 
> ?????
> 
> TIA

Right, that doesn't work. Unlike externally described data structures, you 

can't add your own program described subfields to a LIKEREC data 
structure. 
YET another reason why we plan on relaxing the rules for result data 
structure.

You can always define the overlaying array as based, and set the basing 
point to the address of the appropriate subfield.

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