Hi
Please check the following
For Display
* Authority Check on Company Code
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS' FIELD < Company Code> " Comcode can be your selection parameter
" Work area field or variable
ID 'ACTVT' FIELD '03'.
IF sy-subrc <> 0.
* Implement a suitable exception handling here
MESSAGE < Error Message>
ENDIF.
* Edit
* Authority Check on Company Code
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
ID 'BUKRS' FIELD < Company Code> " Comcode can be your selection parameter
" Work area field or variable
ID 'ACTVT' FIELD '02'.
IF sy-subrc <> 0.
* Implement a suitable exception handling here
MESSAGE < Error Message>
ENDIF.