RE: Data Structure Array Lookups

"The second parameter for %LOOKUPxx is not valid."
I must have the DS defined wrong for what I want to do. The subfields
are not recognized as arrays.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Alan Shore
Sent: Wednesday, January 09, 2008 3:42 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Data Structure Array Lookups

As a test,, can you replace
IIT LikeRec(I57832)
with the actual field names and then try my suggestion
Hopefully not too many fields.



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 03:30:04 PM:

No go...the compiler says I1$IIT does not exist...I1$IIT definitely is
part of LikeRec(I57832) so I assume the compiler means a57832.I1$IIT
does not exist...

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

Hi Stephen
what I THINK you need is
nWrkIIT = %Lookup( xIIT:a57832.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.

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

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