RE: Help needed with qsycusra API

Please define your error structure (error code) appropriately (I'm assuming
you have not done so)... and then check that structure for any errors.

Dennis Lovelady
http://www.linkedin.com/in/dennislovelady
--
"Some people can stay longer in an hour than others can in a week."
-- William Dean Howells

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.