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



rob wrote:
>I have the following RPG:
>
>      * List Job
>     D QUSLJOB         PR                  EXTPGM('QUSLJOB')
>     D  UserSpace                    20A   CONST
>     D  FormatName                    8A   CONST
>     D  Job_Name                     26A   CONST
>     D  JobStatus                    10A   CONST
>     D  ErrorCode                          LIKE(ERRC0100)
>     D  JobType                       1A   CONST
>     D  NbrFldsRet                   10I 0 CONST
>     D  KeyFldsRet                   10I 0 CONST
>...
>     D ListJobKeys     DS
>     D  SubsystemName                10I 0 inz(1906)
>     D JobKeys                       10I 0 dim(1) overlay(ListJobKeys)
>
>     D NbrJobKeys      s             10I 0 inz(%elem(JobKeys))
>...
>
>          qusljob(Jobspace:'JOBL0200':'CLREPL    QNOTES    *ALL  ':
>                  '*ACTIVE':errc0100:'*':NbrJobKeys:JobKeys);
>RNF5343E Array has too many omitted indexes; specification is ignored.
>
>And it's highlighting JobKeys in the call.
>
>1)  What message files has this message?
>2)  How do I look at the second level help in Code/400?
>3)  Why am I getting this message?

Why are you getting the message?  Because you're passing an
array as a parameter (JobKeys) where the prototype requires
a scalar integer (KeyFldsRet).

Code "JobKeys(1)" instead for the last parameter.


Hans Boldt, ILE RPG Development, IBM Toronto Lab, boldt@ca.ibm.com



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.