ABAP对SELECT-OPTIONS使用权限对象

  DATA: GT_T001W TYPE TABLE OF T001W WITH HEADER LINE.
  DATA  LV_FLAG TYPE C.
  CLEAR LV_FLAG .
  CLEAR GT_T001W[].
  SELECT WERKS INTO CORRESPONDING FIELDS OF TABLE GT_T001W[] FROM T001W
    WHERE WERKS IN S_WERKS .
  LOOP AT GT_T001W.
    AUTHORITY-CHECK OBJECT 'M_MSEG_WMB'
     ID 'WERKS' FIELD GT_T001W-WERKS.
    IF SY-SUBRC <> 0.
      LV_FLAG = 'X' .
      EXIT .
    ENDIF.
    CLEAR GT_T001W .
  ENDLOOP.
  IF LV_FLAG IS NOT INITIAL.
    MESSAGE '您没有工厂：'&& GT_T001W-WERKS && ' 的权限！' TYPE 'E' .
  ENDIF.