DATA: VALUES TYPE  US335 OCCURS 0,
      WA_VAL  LIKE LINE OF VALUES.

RANGES: zbukrs FOR T880-RCOMP.

"Call Values of Authorization Object for current user
CALL FUNCTION 'GET_AUTH_VALUES'
  EXPORTING
    OBJECT1 = 'ZPSCC100'
    USER    = SY-UNAME
  TABLES
    VALUES  = VALUES.

if values[] IS INITIAL.
  MESSAGE 'Authorization failed!' TYPE 'E'.
ENDIF.

" Authorization object for Project
READ TABLE VALUES INTO wa_val WITH KEY field = 'BUKRS' lowval = '*'.
IF sy-subrc ne 0.
  LOOP AT VALUES INTO WA_VAL WHERE FIELD EQ 'BUKRS'.
    IF wa_val-highval IS NOT INITIAL.
      zbukrs-sign = 'I'.
      zbukrs-option = 'BT'.
      zbukrs-low = wa_val-lowval.
      zbukrs-high = wa_val-highval.
      append zbukrs.
    ELSE.
      zbukrs-sign = 'I'.
      zbukrs-option = 'EQ'.
      zbukrs-low = wa_val-lowval.
      append zbukrs.
    ENDIF.
    CLEAR WA_VAL.
  ENDLOOP.
ENDIF.

CLEAR WA_VAL.

IF NOT zbukrs[] IS INITIAL.
  IF SAP_PROJ-vbukr NOT IN zbukrs.
    MESSAGE 'Authorization failed!' TYPE 'S'.
  ELSE.
    SAP_X_ACTVT = 'X'. "Authorization Allowed Check
  ENDIF.
ELSE.
   SAP_X_ACTVT = 'X'. "Authorization Allowed Check
ENDIF.