RE: Data Structure Array Lookups

["Coyle, Stephen F." <SCoyle@xxxxxxxxxxxxx>]

IIT is defined like I57832, an existing record format with I1$IIT
defined within....  

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Gene Burns
Sent: Wednesday, January 09, 2008 4:21 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: Data Structure Array Lookups

How is I1$IIT defined as a subfield of IIT?  It is not in your DS that
defines IIT like a57832.



On Jan 9, 2008 1:55 PM, Coyle, Stephen F. <SCoyle@xxxxxxxxxxxxx> wrote:

> Hi All,
>
> If I have a data structure coded as below, how can I do a lookup
against
> a subfield?
> I1$IIT is a subfield of the IIT field. I'd like to find the element
that
> matches I1$IIT.
>
> The compiler didn't like mine:
> nWrkIIT = %Lookup( xIIT:a57832.IIT.I1$IIT:1:nIIT )  ;
>
> D a57832          DS                  QUALIFIED DIM(20)
> D  IIT                                LikeRec(I57832)
> D  PMcu                               Like( KgMcu   )
> D  PSub                               Like( KgSub   )
> D  PObj                               Like( KgObj   )
> D  OANI                               Like( GlAni   )
> D  OAA                                Like( GlAA    )
>
> Or is this data structure not defined correctly?
>
> Thanks....
>
> - Steve
> --
> 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.