× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Have you tried Services.Ship_Via_Code(1) ?

And you should be able to a lookup like this:

Offset = %LookUp(Needle: Services.Ship_Via_Code);

(Not verified)

Trevor Briggs
Analyst/Programmer
Lincare, Inc.
(727) 431-1246
TBriggs2@xxxxxxxxxxx
-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Jeff
Young
Sent: Thursday, May 29, 2014 1:52 PM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: Lookup on array in qualified DS

All,
I have a qualified Ds defined as follows:
D Services Ds Qualified dim(4)
D Service_Code 50A
D Ship_Via_Code Like(##SVia)


I can access the Ship_Via_Code as an array by qualifying it to the
Services
data structure as Services(1).Ship_Via_Code, but can not search using
%lookup.
I tried Services.Ship_Via_Code and get error that it is missing an
index.
I want to search the list of Ship_Via_Codes to get the entry that
corresponds to a variable, then use that index for other processing.

All suggestions are welcome.


Jeff Young
Sr. Programmer Analyst

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.