$ 0 0 AUTHORITY-CHECK OBJECT 'TCODE'ID 'TCD' FIELD c_tcode.ID 'ACTVT' FIELD '02'.IF sy-subrc = 0.end if.