RS_TREE_LIST_DISPLAY和RS_TREE_CONSTRUCT构建alv tree

程序代码：

1. TYPE-POOLS : fibs,stree.
   
2. TYPE-POOLS:slis.
   
3. DATA : t_node TYPE snodetext.
   
4. DATA : it_node LIKE TABLE OF t_node,
   
5.        wa_node LIKE t_node.
   
6. DATA: t_fieldcat    TYPE slis_t_fieldcat_ALV,
   
7.       fs_fieldcat   TYPE slis_fieldcat_alv.
   
8. DATA:w_repid LIKE sy-repid.
   
9. *Internal Table declarations
   
10. DATA: BEGIN OF fs_scarr,
    
11.         carrid LIKE scarr-carrid,
    
12.       END OF fs_scarr.
    
13. DATA:BEGIN OF fs_spfli,
    
14.         carrid LIKE spfli-carrid,
    
15.         connid LIKE spfli-connid,
    
16.      END OF fs_spfli.
    
17. DATA:BEGIN OF fs_sflight,
    
18.         carrid LIKE sflight-carrid,
    
19.         connid LIKE sflight-connid,
    
20.         fldate LIKE sflight-fldate,
    
21.      END OF fs_sflight.
    
22. DATA:BEGIN OF fs_sbook,
    
23.         carrid LIKE sbook-carrid,
    
24.         connid LIKE sbook-connid,
    
25.         fldate LIKE sbook-fldate,
    
26.         bookid LIKE sbook-bookid,
    
27.      END OF fs_sbook.
    
28. DATA:t_scarr LIKE TABLE OF fs_scarr,
    
29.      t_spfli LIKE TABLE OF fs_spfli,
    
30.      t_sflight LIKE TABLE OF fs_sflight,
    
31.      t_sbook LIKE TABLE OF fs_sbook.
    
32. 
    
33. START-OF-SELECTION.
    
34.   PERFORM get_data.
    
35.   PERFORM build_tree.
    
36.   PERFORM display_tree.
    
37. *&----------------------------------------------------------------*
    
38. *&      Form  get_data
    
39. *&----------------------------------------------------------------*
    
40. FORM get_data .
    
41.   SELECT carrid
    
42.          FROM scarr
    
43.          INTO TABLE t_scarr.
    
44.   SELECT carrid
    
45.           connid
    
46.           FROM spfli
    
47.           INTO TABLE t_spfli
    
48.           FOR ALL ENTRIES IN t_scarr
    
49.           WHERE carrid EQ t_scarr-carrid.
    
50. ENDFORM.                    " get_data
    
51. *&----------------------------------------------------------------*
    
52. *&      Form  build_tree
    
53. *&----------------------------------------------------------------*
    
54. FORM build_tree .
    
55.   CLEAR: it_node,
    
56.          wa_node.
    
57.   SORT: t_scarr BY carrid,
    
58.         t_spfli BY carrid connid,
    
59.         t_sflight BY carrid connid fldate,
    
60.         t_sbook BY carrid connid fldate bookid.
    
61.   wa_node-type = 'T'.
    
62.   wa_node-name = 'Flight Details'.
    
63.   wa_node-tlevel = '01'.
    
64.   wa_node-nlength = '15'.
    
65.   wa_node-color = '4'.
    
66.   wa_node-text = 'Flight'.
    
67.   wa_node-tlength ='20'.
    
68.   wa_node-tcolor = 3.
    
69.   APPEND wa_node TO it_node.
    
70.   CLEAR wa_node.
    
71.   LOOP AT t_scarr INTO fs_scarr.
    
72.     wa_node-type = 'P'.
    
73.     wa_node-name = 'CARRID'.
    
74.     wa_node-tlevel = '02'.
    
75.     wa_node-nlength = '8'.
    
76.     wa_node-color = '1'.
    
77.     wa_node-text = fs_scarr-carrid.
    
78.     wa_node-tlength ='20'.
    
79.     wa_node-tcolor = 4.
    
80.     APPEND wa_node TO it_node.
    
81.     CLEAR wa_node.
    
82.     LOOP AT t_spfli INTO fs_spfli WHERE carrid EQ fs_scarr-carrid.
    
83.       wa_node-type = 'P'.
    
84.       wa_node-name = 'CONNID'.
    
85.       wa_node-tlevel = '03'.
    
86.       wa_node-nlength = '8'.
    
87.       wa_node-color = '1'.
    
88.       wa_node-text = fs_spfli-connid.
    
89.       wa_node-tlength ='20'.
    
90.       wa_node-tcolor = 4.
    
91.       APPEND wa_node TO it_node.
    
92.       CLEAR wa_node.
    
93.     ENDLOOP.
    
94.   ENDLOOP.
    
95. ENDFORM.                    " build_tree
    
96. 
    
97. FORM display_tree.
    
98. *Fm for constructing the tree
    
99.   CALL FUNCTION 'RS_TREE_CONSTRUCT'
    
100.     TABLES
     
101.       nodetab = it_node.
     
102.   IF sy-subrc <> 0.
     
103. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
     
104. *         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
     
105.   ENDIF.
     
106. *FM for displaying the tree
     
107.   CALL FUNCTION 'RS_TREE_LIST_DISPLAY'
     
108.     EXPORTING
     
109.       callback_program     = sy-repid
     
110.       check_duplicate_name = '1'
     
111.       color_of_node        = '4'
     
112.       color_of_mark        = '3'
     
113.       color_of_link        = '1'
     
114.       color_of_match       = '5'
     
115.       node_length          = 30
     
116.       text_length          = 75
     
117.       use_control          = 'L'.
     
118. ENDFORM.                    " build_tree

复制代码

程序执行效果：