The following code determines if user 'JOEUSER' has UPDATE
access to the FACILITY class profile 'TEST.THIS.PROFILE'. For
the callable service, see
auth_check_resource_np (BPX1ACK, BPX4ACK) — Determine a user's access to a RACF-protected resource.
AMODE 31 callers use
BPX1ACK (auth_check_resource_np) example.
MVI CELLUUID,X'00'
MVI PRINUUID,X'00'
MVC USERNLEN,=F'7'
MVC USERNAME(7),=CL7'JOEUSER'
MVC CLSLEN,=F'8'
MVC CLS(8),=CL8'FACILITY'
MVC ENTLEN,=F'17'
MVC ENT(17),=CL17'TEST.THIS.PROFILE'
SPACE ,
CALL BPX4ACK, Determine access to a resource +
(CELLUUID, Input: Cell UUID +
PRINUUID, Input: Principal UUID +
USERNLEN, Input: Userid length +
USERID, Input: Userid +
CLSLEN,, Input: Class length +
CLS, Input: Class +
ENTLEN, Input: Entity length +
ENT, Input: Entity +
=A(ACK_UPDATE#), Input: Access type to check for +
RETVAL, Return value: 0 or -1 +
RETCODE, Return code +
RSNCODE), Reason code +
MF=(E,PLIST) ----------------------------------