DATA cl_gui_toolbar1 TYPE REF TO cl_gui_toolbar.
cuscontainer TYPE REF TO cl_gui_custom_container.
buttons_data TYPE ttb_button WITH HEADER LINE.

*process at screen 100

MODULE status_0100 OUTPUT.
CREATE OBJECT cuscontainer
EXPORTING
container_name = 'CONTAINER'
EXCEPTIONS
cntl_error = 1
cntl_system_error = 2
create_error = 3
lifetime_error = 4
lifetime_dynpro_dynpro_link = 5
OTHERS = 6.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

CREATE OBJECT cl_gui_toolbar1
EXPORTING
parent = cuscontainer
* SHELLSTYLE =
* LIFETIME =
* DISPLAY_MODE = M_MODE_HORIZONTAL
* NAME =
* EXCEPTIONS
* CNTL_INSTALL_ERROR = 1
* CNTL_ERROR = 2
* CNTB_WRONG_VERSION = 3
* others = 4
.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

buttons_data-function = '12'. "ok_code name
buttons_data-icon = '@4B@'.
buttons_data-quickinfo = 'TEST'.
buttons_data-text = 'TEST'.
buttons_data-butn_type = cntb_btype_button.
APPEND buttons_data .

CALL METHOD cl_gui_toolbar1->add_button_group
EXPORTING
data_table = buttons_data[].

CALL METHOD cl_gui_toolbar1->set_button_state
EXPORTING
enabled = '' "take on grey
checked = ''
fcode = '12'
EXCEPTIONS
cntl_error = 1
cntb_error_fcode = 2
OTHERS = 3.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

ENDMODULE. " STATUS_0100 OUTPUT