*&---------------------------------------------------------------------*
*& Include          Z18_04_O01
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
  SET PF-STATUS 'S0100'.
  SET TITLEBAR 'xxx'.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module LIST_TREE OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE list_tree OUTPUT.

  IF go_tree_container IS INITIAL.

    CREATE OBJECT go_tree_container
      EXPORTING
        container_name = 'TREE_AREA'.


    CREATE OBJECT go_list_tree
      EXPORTING
        parent              = go_tree_container
        node_selection_mode = cl_gui_list_tree=>node_sel_mode_single
        item_selection      = 'X'
        with_headers        = 'X'
        hierarchy_header    = VALUE #( heading = '조직구조' width = '30' )
        list_header         = VALUE #( heading = '부양 가족 수' ).



    gt_node = VALUE #(
      ( node_key = 'Root' isfolder = 'X' )  ).

    gt_item = VALUE #(
      ( node_key = 'Root'   item_name = '1' text = '부서' length = 10 ) ).


    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
                      isfolder = 'X'
                      relatkey = 'Root'
                      expander = 'X' ) TO gt_node.

      APPEND VALUE #( node_key = ls_teamlist-depcd
                      item_name = '1'
                      text = ls_teamlist-dname
                      length = 10 )
        TO gt_item.

    ENDLOOP.


    CALL METHOD go_list_tree->add_nodes_and_items
      EXPORTING
        node_table                = gt_node
        item_table                = gt_item
        item_table_structure_name = 'MTREEITM'.



    CALL METHOD go_list_tree->set_registered_events
      EXPORTING
        events = VALUE #(
        ( eventid = cl_gui_column_tree=>eventid_expand_no_children
          appl_event = 'X' )
        ( eventid = cl_gui_column_tree=>eventid_button_click
          appl_event = 'X' )

          ).

    DATA(lo_event) = NEW lcl_tree_event( ).
    SET HANDLER: lo_event->handle_expand_no_children FOR go_list_tree,
                 lo_event->handle_button_click FOR go_list_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_03'
      CHANGING
        it_outtab        = gt_list
*       it_fieldcatalog  =
*       it_sort          =
*       it_filter        =
*  EXCEPTIONS
*       invalid_parameter_combination = 1
*       program_error    = 2
*       too_many_lines   = 3
*       others           = 4
      .
    IF sy-subrc <> 0.
* Implement suitable error handling here
    ENDIF.


  ENDIF.
ENDMODULE.