Chain / ReadE

[FaStOnE]

I'm having a brain-fart kinda day. Help!

PF: MGC_GLH

A          K GLHTXDT
A          K GLHCDTY 

PF: MGC_GLD

A          K GLDTXDT
A          K GLDCDTY
A          K GLDSTAT
A          K GLDTXTY
A          K GLDSCAN 

RPGLE:

D GLD_Key       E DS                  EXTNAME( MGC_GLD : *Key )
D GLH_Key       E DS                  EXTNAME( MGC_GLH : *Key )
...

SetLL GLH_Key MGC_GLD;       
DoU %EOF(MGC_GLD);           
    ReadE(N) GLH_Key MGC_GLD;
.
.
. 

Errors:
RNF3804: Name GLHTXDT in external description MGC_GLH is not renamed; external name is ignored.
RNF3804: Name GLDTXDT in external description MGC_GLD is not renamed; external name is ignored.

[Billw]

Re: Chain / ReadE

D GLD_Key DS EXTNAME( MGC_GLD : *Key )
D GLH_Key DS EXTNAME( MGC_GLH : *Key )
I'm guessing cause I was recently playing with the *key stuff and am new to it ... no "E"?

<shrug>

[B.Hauser]

Re: Chain / ReadE

You have to use &#37;KDS in the Chain or ReadE statement to use the external data structure.

SetLL %KDS(GLH_Key) MGC_GLD;        
DoU %EOF(MGC_GLD);            
    ReadE(N) %KDS(GLH_Key) MGC_GLD;