Re: Adding another subfield to an externally defined data structu re.

[rob@xxxxxxxxx]

Hans,

What additional checking is done with LIKEREC that isn't already done with 
EXTNAME?  Don't they both pull in the field names and attributes?  I 
realize that once "you've let the cat out of the bag" by creating LIKEREC 
it's hard to take it away.  But if they do the same checking, I'd just as 
soon use EXTNAME.

Can you change LIKEREC so that we may add additional fields to it?  Or at 
least overlays?

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/29/2003 07:24 AM
Please respond to RPG programming on the AS400 / iSeries
 
        To:     rpg400-l@xxxxxxxxxxxx
        cc: 
        Fax to: 
        Subject:        Re: Adding another subfield to an externally 
defined data structu re.


rob@xxxxxxxxx wrote:
> Rick,
> 
> I got it working with:
>      D FLWORKREC       DS                  likerec(flworkr)
>      D pDuh            s               *   inz(%addr(flworkrec))
>      D duh             ds                  based(pDuh)
>      D  col                          15p 4 overlay(duh:39) dim(389)
> 
> I would dearly love to know how the team came up with "Let's allow 
> subfields on an external data structure (EXTNAME), but not on a 
LIKEREC". 
> In fact, since you can optionally specify a record format on EXTNAME, 
what 
> was the point on creating LIKEREC in the first place?
> 
> Rob Berendt

I believe I answered that in another note. First, LIKEREC was meant 
as a short form for LIKEDS(EDS) where EDS is an externally described 
data structure. Second, it ensures that the data structure matches 
the record, which is important when coding a data structure as the 
result operand on record I/O.

Regarding adding subfields to externally described data structures, 
that "feature" goes back to RPG III.

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.