abap报表权限控制 AUTHORITY-CHECK for select option

1.Select Option without extension and interval

AUTHORITY-CHECK OBJECT 'V_VBKA_VKO'      id 'VKBUR' FIELD S_VKBUR-low
      id 'ACTVT' FIELD '01'
       id  'ACTVT'  FIELD  '02'.

2.Select Option Without Restriction

SELECT VKBUR
       FROM TVBVK
       INTO TABLE lt_vkbur
      WHERE VKBUR IN S_VKBUR.
CLEAR S_VKBUR.
REFREASH S_VKBUR.
LOOP AT lt_vkbur INTO lx_vkbur.
      AUTHORITY-CHECK OBJECT 'V_VBKA_VKO'
      id 'VKBUR' FIELD lx_vkbur-vkbur
      id 'ACTVT' FIELD '01'
      id 'ACTVT' FIELD '02'
      .                                       
     IF SY-SUBRC <> 0.
         S_VKBUR-SIGN = ‘I'.
         S_VKBUR-OPTION = ‘EQ'.
         S_VKBUR-LOW = lx_vkbur_vkbur.
         modify S_VKBUR FROM S_VKBUR.
     endif.
ENDLOOP.  

3.With Restriction
LOOP AT s_vkbur INTO s_vkbur. 
    AUTHORITY-CHECK OBJECT 'V_VBKA_VKO'
      id 'VKBUR' FIELD s_vkbur-low
      id 'ACTVT' FIELD '01'
      id 'ACTVT' FIELD '02'
      .                                        
     IF SY-SUBRC <> 0.
         s_vkbur-sign = 'E'.
         modify s_vkbur FROM s_vkbur.
      endif.
  ENDLOOP.