Re: Help with QSYCUSRA API - Check User Authority

["Francis Lapeyre" <flapeyre@xxxxxxxxx>]

Also, I see what could be a problem is the 4B 0 definitions. Change them to
*10I 0* (integer).



On 8/7/07, jstevens@xxxxxxxxxxxxxx <jstevens@xxxxxxxxxxxxxx> wrote:
> I am pretty new to API's.  I am trying to call the QSYCUSRA API.  My code
> is like this...
>
>
>      // Interface for the API...
>     D QSyCUsrA        PR                  ExtPgm('QSYCUSRA')
>     D                                1A         Authority Indicator
>     D                               10A   CONST      Profile Name
>     D                               20A   CONST      Qualified Object Nam
> e
>     D                               10A   CONST      Object Type
>     D                                 *         Authority
>     D                                4B 0       Number of Authorites
>     D                                4B 0       Call Level
>     D                                 *         Error Code
>
>     D AuthYN          S              1A
>     D Authority       S               *
>     D AuthNbr         S              4B 0 INZ(1)
>     D CallLevel       S              4B 0
>     D ErrorCode       S               *
>
>     D Response        S              1A
>
>      /Free
>
>        AUTHYN = 'N';
>
>        QSyCUsrA(AuthYN:'USERID':'LIBRARY/FILENAME':'*FILE':
>                 Authority:AuthNbr:CallLevel:ErrorCode);
>
>        DSPLY AUTHYN ;
>
>        *INLR = *On;
>
>      /End-Free
>
> But when I run it, I get the message CPF22F7 Number of authorities must be
> between 1 and 11.  A value of 120064 was specified.
>
> I'm using the info at
>
> http://publib.boulder.ibm.com/iseries/v5r2/ic2924/index.htm?info/apis/QSYCUSRA.htm
> to get the required parameter goup.
>
> I assume that I'm doing something wrong with my AuthNbr definition, but
> I'm not sure.
>
> Any suggestions?
>
> Thanks!
>
>
> Jeff Stevens
> Mize, Houser & Co. P.A.
> 913 451 1882
> JStevens@xxxxxxxxxxxxxx
>
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.