Author: coderobbot

  DATA : lr_toolbar TYPE REF TO cl_gui_toolbar, lr_cust_cont TYPE REF TO cl_gui_custom_container, lt_btn TYPE ttb_button, ls_btn TYPE stb_button. CALL SCREEN 0001. *&———————————————————————* *&      Module  CREATE_PFSTATUS  OUTPUT *&———————————————————————* MODULE create_pfstatus OUTPUT. SET PF-STATUS ‘STATUS’. ENDMODULE.                 ” CREATE_PFSTATUS  OUTPUT *&———————————————————————* *&      Module  CREATE_TOOLBAR  OUTPUT *&———————————————————————* MODULE create_toolbar OUTPUT. IF lr_cust_cont IS NOT BOUND. CREATE OBJECT lr_cust_cont EXPORTING container_name = ‘TOOLBAR’ repid          = sy–repid dynnr          = sy–dynnr. ENDIF. IF lr_toolbar IS NOT BOUND. CREATE OBJECT lr_toolbar

  Class – CL_GUI_TOOLBAR provides methods to create toll bar buttons ( of different types) on the container. DATA : lr_toolbar TYPE REF TO cl_gui_toolbar, lr_cust_cont TYPE REF TO cl_gui_custom_container. CALL SCREEN 0001. *&———————————————————————* *&      Module  CREATE_PFSTATUS  OUTPUT *&———————————————————————* MODULE create_pfstatus OUTPUT. SET PF-STATUS ‘STATUS’.

 DATA : lr_custom_cont TYPE REF TO cl_gui_custom_container,               lr_text_edit TYPE REF TO cl_gui_textedit,               lt_text TYPE TABLE OF char255. START-OF-SELECTION.   CALL SCREEN 0001. *&———————————————————————* *&      Module  CREATE_PF_STAUS  OUTPUT *&———————————————————————* MODULE create_pf_staus OUTPUT.   SET PF-STATUS ‘EDITOR_STATUS’. ENDMODULE.                 ” CREATE_PF_STAUS  OUTPUT

  DATA : lr_custom_cont TYPE REF TO cl_gui_custom_container, lr_text_edit TYPE REF TO cl_gui_textedit. START-OF-SELECTION.   CALL SCREEN 0001. *———————————————————————-* *  MODULE create_container OUTPUT *———————————————————————- MODULE create_container OUTPUT. CREATE OBJECT lr_custom_cont EXPORTING container_name = ‘EDITOR’ ” Name of the Screen CustCtrl repid          = sy–repid dynnr          = sy–dynnr. ENDMODULE.                    “create_container OUTPUT *———————————————————————-* *  MODULE create_text_editor OUTPUT *———————————————————————-* MODULE create_text_editor OUTPUT. CREATE OBJECT lr_text_edit EXPORTING parent = lr_custom_cont.     ” Parent Container ENDMODULE.                    “create_text_editor OUTPUT Step1. Here

DATA :   lr_cust TYPE REF TO cl_gui_custom_container, lr_tree TYPE REF TO cl_gui_alv_tree, lt_scarr TYPE TABLE OF scarr, ls_scarr TYPE  scarr, lt_spfli TYPE TABLE OF spfli, gt_spfli TYPE TABLE OF spfli, ls_spfli TYPE spfli, ls_header TYPE treev_hhdr, lv_node_key1 TYPE lvc_nkey, lv_node_key2 TYPE lvc_nkey, lv_node_key3 TYPE lvc_nkey, lv_node_text TYPE lvc_value. START-OF-SELECTION. CALL SCREEN 0001. *&———————————————————————* *&      Module  STATUS_0001  OUTPUT *&———————————————————————* MODULE status_0001 OUTPUT. SET PF-STATUS ‘STATUS’. *  SET TITLEBAR ‘xxx’. ENDMODULE.                 ” STATUS_0001  OUTPUT *&———————————————————————* *&      Module  GET_DATA  OUTPUT *&———————————————————————*

DATA :   lr_cust TYPE REF TO cl_gui_custom_container, lr_tree TYPE REF TO cl_gui_alv_tree, lt_scarr TYPE TABLE OF scarr, gt_scarr TYPE TABLE OF scarr, ls_scarr TYPE scarr, ls_header TYPE treev_hhdr, lv_node_key1 TYPE lvc_nkey, lv_node_key2 TYPE lvc_nkey, lv_node_text TYPE lvc_value. START-OF-SELECTION. CALL SCREEN 0001. *&———————————————————————* *&      Module  STATUS_0001  OUTPUT *&———————————————————————* MODULE status_0001 OUTPUT. SET PF-STATUS ‘STATUS’. *  SET TITLEBAR ‘xxx’. ENDMODULE.                 ” STATUS_0001  OUTPUT *&———————————————————————* *&      Module  GET_DATA  OUTPUT *&———————————————————————* MODULE get_data OUTPUT. IF lt_scarr IS INITIAL. SELECT * FROM scarr INTO TABLE lt_scarr.