(no subject)

[rob@xxxxxxxxx]

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?

Rob Berendt

==================
"They that can give up essential liberty to obtain a little temporary
safety deserve neither liberty nor safety."
Benjamin Franklin