BPX1ACK (auth_check_resource_np) example

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 64 callers use BPX4ACK (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  BPX1ACK,              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                       +
               VL,MF=(E,PLIST)       ---------------------------------- 

01