test-authority check

test-authority check REPORT zsuji. TABLES vbrk. DATA:BEGIN OF itab OCCURS 0, vbeln LIKE vbrk-vbeln, vkorg LIKE vbrk-vkorg, vtweg LIKE vbrk-vtweg, END OF itab. SELECT-OPTIONS : s_vbeln FOR vbrk-vbeln. AT SELECTION-SCREEN. AUTHORITY-CHECK OBJECT 'V_VBAK_VKO' ID 'VKORG' FIELD 'itab-vkorg' ID 'VTWEG' FIELD '__________' ID 'SPART' FIELD '__________' ID 'ACTVT' FIELD ''. IF sy-subrc <> 0. MESSAGE e006(ymm) WITH itab-vkorg. ENDIF. SELECT vbeln vkorg vtweg FROM vbrk INTO TABLE itab WHERE vbeln IN s_vbeln. LOOP AT itab. WRITE :/ itab-vbeln,itab-vtweg,itab-vkorg. ENDLOOP.