abap program for Creation Of Active Icon

REPORT CREATION_OF_ACTIVE_ICON.

INITIALIZATION.
IMPORT mytab-activetab FROM MEMORY ID 'TABSTRIP'.
CASE mytab-activetab.
WHEN 'UCOMM1'. mytab-dynnr = 100.
WHEN 'UCOMM2'. mytab-dynnr = 200.
WHEN 'UCOMM3'. mytab-dynnr = 300.
WHEN OTHERS.
tabb1-dynnr = 100.
ENDCASE.

START-OF-SELECTION.
EXPORT: tabb1-activetab TO MEMORY ID 'TABSTRIP'.

SHORT VERSION.

INITIALIZATION.
IMPORT mytab FROM MEMORY ID 'TABSTRIP'.

START-OF-SELECTION.
EXPORT: mytab TO MEMORY ID 'TABSTRIP'.


SYNTAX FOR CREATING THE EXISTING CONTEXT MENU.::

FORM on_ctmenu_text USING menu TYPE REF TO cl_ctmenu.
CALL METHOD menu->load_gui_status
                    EXPORTING program = prog
                              status  = 'CON_MENU'
                              menu    = menu .
CALL METHOD  menu->set_default_function
                    EXPORTING fcode = 'list'.
ENDFORM.


CREATING A NEW CONTEXT MENU::

FORM on_ctmenu_text USING menu TYPE REF TO cl_ctmenu.
DATA new_menu TYPE REF TO cl_ctmenu.
CREATE OBJECT new_menu.
CALL METHOD new_menu->add_function
                    EXPORTING fcode = 'list'
                              text  = text-001.

CALL METHOD  new_menu->add_function
                     EXPORTING fcode = 'add'
                               text  = text-002.  CALL METHOD
new_menu->add_function
                     EXPORTING fcode = 'delete'
                              text  = text-003.

CALL METHOD   new_menu->add_submenu
                     EXPORTING menu = new_menu
                               text = text-005.
ENDFORM


SYNTAX FOR STATUS ICON:


CALL FUNCTION 'ICON_CREATE'
 EXPORTING
  NAME = 'icon name'
  TEXT   = 'text to be displayed'
  INFO   = 'tooltip text'•