TREE三：RS_TREE_LIST_DISPLAY

这种效果

主要参数：

       wa_node-type         "类型

       wa_node-tlevel       "层次

       wa_node-name  

       wa_node-text  

REPORT  zlm_tree4.

*Data declaration for additional node information
DATA : t_node TYPE snodetext.
*Internal table and wa decl for nodes
DATA : it_node LIKE TABLE OF t_node INITIAL SIZE 0,
       wa_node LIKE t_node.

CLEAR : it_node[], wa_node.
wa_node-type = 'T'.                   "第一个
wa_node-id   = 'T1'.
wa_node-name = '天朝'.
wa_node-tlevel = 1.                   "层次一
wa_node-nlength = '15'.
wa_node-color = '4'.
wa_node-text = '天朝'.
wa_node-tlength ='20'.
wa_node-tcolor = 3.
APPEND wa_node TO it_node.

CLEAR wa_node.
wa_node-type = 'P'.
wa_node-id   = 'T2'.
wa_node-name = '北京'.
wa_node-tlevel = 2.                  "层次二
wa_node-nlength = '8'.
wa_node-color = '1'.
wa_node-text = '北京'.
wa_node-tlength ='20'.
wa_node-tcolor = 4.
APPEND wa_node TO it_node.
CLEAR wa_node.

CLEAR wa_node.
wa_node-type = 'P'.
wa_node-id   = 'T32'.
wa_node-name = '京温'.
wa_node-tlevel = 3.                  "层次三
wa_node-nlength = '8'.
wa_node-color = '1'.
wa_node-text = ' 上坟烧报纸--你糊弄鬼啊！ '.
wa_node-tlength ='20'.
wa_node-tcolor = 4.
APPEND wa_node TO it_node.
CLEAR wa_node.


*Fm for constructing the tree
CALL FUNCTION 'RS_TREE_CONSTRUCT'
  TABLES
    nodetab = it_node.

*FM for displaying the tree
CALL FUNCTION 'RS_TREE_LIST_DISPLAY'
  EXPORTING
    callback_program     = sy-repid
    check_duplicate_name = '1'
    color_of_node        = '4'
    color_of_mark        = '3'
    color_of_link        = '1'
    color_of_match       = '5'
    node_length          = 30
    text_length          = 75
    use_control          = 'L'.