Z_ZBC400_02_AUTH_CHECK

FUNCTION z_zbc400_02_auth_check.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     REFERENCE(IV_CARRID) TYPE  S_CARR_ID
*"     REFERENCE(IV_ACTIVITY) TYPE  ACTIV_AUTH DEFAULT '03'
*"  EXCEPTIONS
*"      NO_AUTH
*"      WRONG_ACT
*"----------------------------------------------------------------------
  CASE iv_activity.
    WHEN '01' OR '02' OR '03'.

      AUTHORITY-CHECK OBJECT 'S_CARRID'
               ID 'CARRID' FIELD iv_carrid
               ID 'ACTVT' FIELD iv_activity.
      IF sy-subrc <> 0.
        RAISE no_auth.
      ENDIF.

    WHEN OTHERS.
      RAISE wrong_act.
  ENDCASE.



ENDFUNCTION.