*&---------------------------------------------------------------------*
*& Include          Z18_02_O01
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
  SET PF-STATUS 'S0100'.
  SET TITLEBAR 'xxx'.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module SIMPLE_TREE OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE simple_tree OUTPUT.

  IF go_tree_container IS INITIAL.

    CREATE OBJECT go_tree_container
      EXPORTING
        container_name = 'TREE_AREA'.

    CREATE OBJECT go_simple_tree
      EXPORTING
        parent              = go_tree_container
        node_selection_mode = cl_gui_simple_tree=>node_sel_mode_single.

    CHECK go_simple_tree IS NOT INITIAL.

    DATA ls_node TYPE mtreesnode.

    ls_node-node_key = 'Root'.
    ls_node-isfolder = 'X'.
    ls_node-text     = '조직구조'.
    APPEND ls_node TO gt_node.

    APPEND VALUE #( node_key = 'Child1'
                    relatkey = 'Root'
                    isfolder = 'X'
                    text     = '부서' ) TO gt_node.

    SELECT *
      FROM zteamlist
      ORDER BY depcd
      INTO TABLE @DATA(lt_teamlist).

    LOOP AT lt_teamlist INTO DATA(ls_teamlist).

      APPEND VALUE #( node_key = ls_teamlist-depcd
                      relatkey = 'Child1'
                      isfolder = ' '
                      n_image =  icon_system_user_menu
                      text     = ls_teamlist-dname
                       ) TO gt_node.

    ENDLOOP.

    CHECK gt_node IS NOT INITIAL.

    CALL METHOD go_simple_tree->add_nodes
      EXPORTING
        table_structure_name = 'MTREESNODE'
        node_table           = gt_node.


    DATA: ls_events TYPE cntl_simple_event,
          lt_events TYPE cntl_simple_events.

    ls_events-eventid = cl_gui_simple_tree=>eventid_node_double_click.
    ls_events-appl_event = 'X'.
    APPEND ls_events TO lt_events.

    CALL METHOD go_simple_tree->set_registered_events
      EXPORTING
        events = lt_events.


    DATA lo_tree_event TYPE REF TO lcl_tree_event.
    CREATE OBJECT lo_tree_event.
    SET HANDLER lo_tree_event->handle_node_double_click FOR go_simple_tree.


*    CALL METHOD go_simple_tree->set_registered_events
*      EXPORTING
*        events = VALUE #(
*          ( eventid    = cl_gui_simple_tree=>eventid_node_double_click
*            appl_event = 'X' ) ).
*
*    DATA(lo_tree_event) = NEW lcl_tree_event( ).
*    SET HANDLER lo_tree_event->handle_node_double_click FOR go_simple_tree.

  ENDIF.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module ALV OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE alv OUTPUT.
  IF go_alv_container IS INITIAL.

    CREATE OBJECT go_alv_container
      EXPORTING
        container_name = 'LIST_AREA'.

    CREATE OBJECT go_alv_grid
      EXPORTING
        i_parent = go_alv_container.

    CALL METHOD go_alv_grid->set_table_for_first_display
      EXPORTING
        i_structure_name = 'ZS18_01'
        is_layout        = VALUE #( cwidth_opt = 'X' )
      CHANGING
        it_outtab        = gt_list.

  ENDIF.
ENDMODULE.