Re: Help with QSYCUSRA API - Check User Authority

jstevens@xxxxxxxxxxxxxx wrote:

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

QSyCUsrA(AuthYN:'USERID':'LIBRARY/FILENAME':'*FILE':
Authority:AuthNbr:CallLevel:ErrorCode);

The Qualified name isn't 'library/filename' ... it's a 20byte structure
split into two 10 byte fields. The first 10 bytes is the object name,
the 2nd 10 bytes is the library.

I often use a structure to represent a qualified name ...

Dobject ds qualified
D name 10
D lib 10

Then do something like this ...

object.name = 'FILENAME';
object.lib = 'LIBRARY';

QSyCUsrA(AuthYN:'USERID':object:'*FILE':
Authority:AuthNbr:CallLevel:ErrorCode);


david