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'.