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



Bob,

FYI, you'll get better response posting this question to the RPG mailing list.  
That's where the RPG guru's hang out.

The problem with your example is that the name of a table must begin with 
'tab'.  You have defined SchoolCde and SchoolNme as arrays but are using the 
table lookup BIF to search for elements.  You could also change the %TLOOKUP to 
%LOOKUP as well.

HTH,

Rick

-----Original Message-----
From: wdsci-l-bounces@xxxxxxxxxxxx [mailto:wdsci-l-bounces@xxxxxxxxxxxx]On 
Behalf Of Bob Anderson
Sent: Tuesday, November 09, 2004 3:52 PM
To: Rpg400-L-Request@Midrange. Com; Websphere Development Studio Client for 
iSeries
Subject: [WDSCI-L] Compile Time Table question


Good Afternoon all,

    I have been converting an RPG II program that uses a compile time table
and have run into a problem the compiler doesn't like.  Her is the code and
the error message.

D SchoolCde S           3A   DIM(10) CTDATA PERRCD(1)
D SchoolNme S          17A   DIM(10) ALT(SchoolCde)

             IF %TLOOKUP(SCHCDE:SchoolCde:SchoolNme);
RNF0598: The third parameter SCHOOLNME for %TLOOKUPxx is not valid.
RNF0597: The second parameter for %TLOOKUPxx is not valid.
RNF5343: Array has too many omitted indexes; specification is ignored.
RNF5343: Array has too many omitted indexes; specification is ignored.


**CTDATA SchoolCde
030LDNVIL/PRYSVIL 01
170BUCKEYE CENTRAL02
390   NEW LONDON  03
396WESTERN RESERVE04
400 SOUTH CENTRAL 05
420   DANVILLE    06
471  WELLINGTON   07
700   PLYMOUTH    08
712   OBERLIN     09
904    NORWALK    10

I know that it has to be some dumb thing I am doing but I just can't figure
it out.
BTW this is V5R2 and WDSCi ver 5.1.2.2

Thanks
Bob Anderson
EDI Coordinator
Kent Sporting Goods Inc.
New London OH 44851
419-929-7021 x315
419-929-1380 FAX
--
Outgoing mail is certified Virus Free.
Checked by AVG Anti-Virus (http://www.grisoft.com).
Version: 7.0.280 / Virus Database: 265.1.0 - Release Date: 11/9/2004

_______________________________________________
This is the Websphere Development Studio Client for iSeries  (WDSCI-L) mailing 
list
To post a message email: WDSCI-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/wdsci-l
or email: WDSCI-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/wdsci-l.


As an Amazon Associate we earn from qualifying purchases.

This thread ...


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.