Re: Help needed with qsycusra API

[Charles Wilt <charles.wilt@xxxxxxxxx>]

Does the user ID you're running the program under have *ALLOBJ?

Does the program doing the testing use adopted authority, via
USRPRF(*OWNER) with an owner that has authority to the object?

Do you have a program somewhere in your call stack with USRPRF(*OWNER)
that's owned by an *ALLOBJ profile?  To test if this is the case,
change the testing program USEADPTAUT(*NO)

What do you see in DSPAOBJAUT from a session that runs your program?


Charles

On Fri, Sep 2, 2011 at 11:58 AM, Marie O'Rourke
<Marie.O'Rourke@xxxxxxxxxxxxxxxxxxx> wrote:
> Hi
>
> I have the following code and the 'AuthIndicator' variable always comes
> back as Y.
> I have edited the Authority on the Object so that no-one has *CHANGE
> authority and *PUBLIC is *EXCLUDE
> I have tried using other User Profiles  and i have tried incrementing the
> CallLevel variable.
>
> I'm new to using APIs so not exactly sure why this isn't working as
> expected. Our AS400 is on V5R4.
>
> Here's my Code
>  * Interface for the API...
> D QSyCUsrA        PR                  ExtPgm('QSYCUSRA')
> D  AuthIndicatPR                 1A
> D  UserProfilePR                10A   const
> D  QualObjectPR                 20A   const
> D  ObjectTypePR                 10A   const
> D  AuthorityPR                 110A   options(*varsize)
> D  AuthCountPR                  10I 0 const
> D  CallLevelPR                  10I 0 const
> D  ErrorCodePR                 500a   options(*varsize)
>
> D  AuthIndicator  S              1A
> D  UserProfile    S             10A
> D  QualObject     S             20A
> D  ObjectType     S             10A
> D  Authority      S            110A
> D  AuthCount      S             10I 0
> D  CallLevel      S             10I 0
> D  ErrorCode      S            500A
>
>  /Free
>  AuthIndicator = ' ';
>  UserProfile = '*CURRENT';
>  QualObject = 'CRXXXXPHNO*LIBL';
>  ObjectType = '*FILE';
>  Authority = '*CHANGE';
>  AuthCount = 1;
>  CallLevel = 0;
>
>  QSyCUsrA(AuthIndicator:UserProfile:QualObject:ObjectType:
>  Authority:AuthCount:CallLevel:ErrorCode);
>
>  DSPLY AuthIndicator;
>
>  *INLR = *On;
>
>  /End-Free
>
>
>
> Thanks
> Marie
> This e-mail is intended only for the addressee named above. The contents should not be copied nor disclosed to any other person. Any views or opinions expressed are solely those of the sender and do not necessarily represent those of QUINN-Insurance Limited (Under Administration), unless otherwise
> specifically stated . As internet communications are not secure,
> QUINN-Insurance Limited (Under Administration) is not responsible for the contents of this message nor
> responsible for any change made to this message after it was sent by the original sender. Although virus scanning is used on all inbound and outbound e-mail, we advise you to carry out your own virus check before opening any attachment. We cannot accept liability for any damage sustained as a result of any software viruses.
>
> ====================================================================
>
> QUINN-Insurance Limited (Under Administration) is regulated by the Central Bank of Ireland and regulated by the Financial Services Authority for the conduct of UK
> business.
>
> ====================================================================
>
> QUINN-Insurance Limited (Under Administration) is registered in Ireland, registration number
> 240768 and is a private company limited by shares.
> Its head office is at Dublin Road, Cavan, Co. Cavan.
>
>
>
>
> This message is for the designated recipient only and may contain privileged, proprietary, or otherwise private information.  If you have received it in error, please notify the sender immediately and delete the original.  Any other use of the email by you is prohibited.
> --
> This is the RPG programming on the IBM i / System i (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.