Re: (no subject)

[boldt@xxxxxxxxxx]

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