Re: (no subject)

[rob@xxxxxxxxx]

Thanks Hans.  I'll use that workaround for now.  But, if I wanted a couple
of fields from that API, how would I pass that array of keys?

Rob Berendt

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



                    boldt@ca.ibm.com
                    Sent by:                To:     rpg400-l@midrange.com
                    rpg400-l-admin@mi       cc:
                    drange.com              Fax to:
                                            Subject:     Re: (no subject)

                    11/01/2001 03:49
                    PM
                    Please respond to
                    rpg400-l







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

_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.