Re: Data Structure Array Lookups

Okay Stephen
how about changing the datastructure into 2 separate (but equal?)

D IIT dim(20) LikeRec(I57832)
D a57832 DS QUALIFIED DIM(20)
D PMcu Like( KgMcu )
D PSub Like( KgSub )
D PObj Like( KgObj )
D OANI Like( GlAni )
D OAA Like( GlAA )

and then your lookup would look like (I THINK)
nWrkIIT = %Lookup( xIIT:IIT.I1$IIT)



Alan Shore

NBTY, Inc
(631) 244-2000 ext. 5019
AShore@xxxxxxxx
"If you're going through Hell, keep going" - Winston Churchill

rpg400-l-bounces@xxxxxxxxxxxx wrote on 01/09/2008 02:55:53 PM:

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.