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