PROGRAM  z13_01.

TABLES : zemp.
DATA : gv_answer TYPE c.
DATA : ok_code TYPE sy-ucomm,
       save_ok TYPE sy-ucomm.

INCLUDE z13_01i01.

start-of-selection.

call screen 100.

FORM on_ctmenu_ctcrea USING l_menu TYPE REF TO cl_ctmenu.

 CALL METHOD cl_ctmenu=>load_gui_status
  EXPORTING
   program = sy-repid
   status  = 'CT_MENU'
   menu    = l_menu.

ENDFORM.                    "on_ctmenu_ctcrea
*&---------------------------------------------------------------------*
*&      Module  HELP_REQ  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE help_req INPUT.
  CALL FUNCTION 'HELP_OBJECT_SHOW_FOR_FIELD'
    EXPORTING
      called_for_tab   = 'SFLIGHT'
      called_for_field = 'CARRID'.

ENDMODULE.                 " HELP_REQ  INPUT
*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
module STATUS_0100 output.
  SET PF-STATUS '100_STATUS'.
*  SET TITLEBAR '100_TITLE'.

endmodule.                 " STATUS_0100  OUTPUT