AUTHORIZATION OBJECT

TCODE: SU21

FIELD LEVEL AUTHORITY-CHECK

REPORT ZTMP1 .

Tables: mara,tvko.

Select Single * from tvko into it_tvko.

Authority-check object 'V_VBRK_VKO'
ID 'VKORG' FIELD IT_TVKO-VKORG
ID 'ACTVT' FIELD '03'.

IF SY-SUBRC = 0.
message i006(00) with 'CORRECT'.

ELSE.

message I002(00).

ENDIF.

TRANSACTION CODE LEVEL AUTHORITY-CHECK
*Check PO Authorization

CALL FUNCTION 'AUTHORITY_CHECK_TCODE'
EXPORTING
tcode = 'ME22N'
EXCEPTIONS
ok = 1
not_ok = 2
OTHERS = 3.
IF sy-subrc <> 1.
MESSAGE e398(00) WITH 'You are not authorized to use'
'transaction ''ME22N'''.
ENDIF.