Um report para demonstrar material em Tree.
Os níveis são demonstrados por cores nas exposições de subníveis.
REPORT Zw4nd3r_TREE.
TYPE-POOLS : fibs, stree.
DATA : t_node TYPE snodetext.
DATA : node_tab LIKE t_node OCCURS 0 WITH HEADER LINE.
DATA: w_tabix TYPE sy-tabix.
CLEAR : node_tab, node_tab[].
DEFINE zmcr_add_node.
node_tab-type = &1. "Tipo
node_tab-name = &2. "Nome Principal
node_tab-tlevel = &3. "Nível
node_tab-nlength = &4. "Tamanho do campo
node_tab-color = &5. "Cor
node_tab-text = &6. "Descrição do Campo
node_tab-tlength = &7. "Tamano da Descrição
node_tab-tcolor = &8. "Cor da Descrição
append node_tab.
END-OF-DEFINITION.
DATA: BEGIN OF it_mara OCCURS 0,
matnr TYPE mara-matnr,
END OF it_mara,
BEGIN OF it_makt OCCURS 0,
matnr TYPE makt-matnr,
spras TYPE makt-spras,
maktx TYPE makt-maktx,
END OF it_makt.
SELECT matnr
FROM mara
INTO TABLE it_mara.
SELECT matnr spras maktx
FROM makt
INTO TABLE it_makt
FOR ALL ENTRIES IN it_mara
WHERE matnr EQ it_mara-matnr.
SORT: it_mara BY matnr,
it_makt BY matnr spras.
sy-tleng = STRLEN( text-000 ).
zmcr_add_node: 'T' text-000 '01' sy-tleng '7' space space space.
LOOP AT it_mara.
w_tabix = sy-tabix.
zmcr_add_node: 'P' it_mara-matnr '02' '18' sy-tabix space space space.
READ TABLE it_makt WITH KEY matnr = it_mara-matnr BINARY SEARCH.
LOOP AT it_makt FROM sy-tabix.
IF it_makt-matnr NE it_mara-matnr.
EXIT.
ENDIF.
zmcr_add_node: 'P' it_makt-spras '03' '02' sy-tabix it_makt-maktx '50' sy-tabix.
ENDLOOP.
ENDLOOP.
CALL FUNCTION 'RS_TREE_CONSTRUCT'
TABLES
nodetab = node_tab
EXCEPTIONS
tree_failure = 1
id_not_found = 2
wrong_relationship = 3
OTHERS = 4.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
CALL FUNCTION 'RS_TREE_LIST_DISPLAY'
EXPORTING
use_control = 'L'.
**********end of program .
