ABAP 权限程序

检查用户销售区域与分销渠道的权限
    AUTHORITY-CHECK OBJECT 'V_VBAK_VKO'
    ID 'VKORG' FIELD wa_all-vkorg
    ID 'VTWEG' DUMMY "FIELD wa_all-vtweg
    ID 'SPART' DUMMY
    ID 'ACTVT' DUMMY."FIELD '03'.
    IF sy-subrc NE 0.
      "MESSAGE i001(00) WITH '没有销售组织' && wa_all-vkorg && '和分销渠道' && wa_all-vtweg && '的权限'.
      DELETE TABLE gt_all FROM wa_all.
      CONTINUE.
    ENDIF.