Народ, надо написать программу, которое бы выводило дерево.
Я новичок в этом деле, но моя идея такова:

Данные хранятся в таблице в виде:

2501
2501-01
2502-01
2501-02
2502
2501-01-001
и т.д.

после сортировки получаем:
2501
2501-01
2501-01-001
2502
2502-01
(хм, а может он отсортирует по длине..... - я не пробовал просто пока)

У меня мысль какая, раньше хотел по strlen узнавать какая запись длиннее, но это не совсем практично.
Потом в голову пришло сделать колонку level в моем itab. И туда помещать номер уровня следующим образом:
если строка не содержит "-", то уровень 1
если содержит один "-", то уровень 2
если два - уровень два.
Только вот незнаю, можно ли это как-то узнать?
команда search находит вроде бы первый символ, а не их количество.
Находить и удалять символ и делать пока не кончатся все "-" тоже неправильно
А быть может можно узнать сколько всего заданных символов содержится в конкретной строке?
Или может это вообще стоит по другому делать...
Просто слышал что стандартное дерево поддерживает максимум 3 уровня, а мне надо 4, быть может и 5. Поэтому сам подумал сделать. Идею описал. Посоветуйте плиз как и чего. ( я про поиск символов в строке или про иной подход к делу с атого рода данными.

А может того-с, велосипед-то не изобретать? Есть дерево в виде класса (искать по маске cl*tree*), есть группа функций для вывода дерева в список (искать по маске RS*TREE*). Насчет трех уровней это вам не подумавши ляпнули..

Потестируй этот фрагмент построения дерева по pspid
из таблицы proj

PERFORM fill_objects_in_hierarchy
CHANGING l_objects_in_hierarchy.

CALL FUNCTION 'CNPB_H_PROJ_HIER_SELECT'
EXPORTING
i_objects_in_hierarchy = l_objects_in_hierarchy
i_pspid = pspid
i_flg_enqueue = 'X'
i_expand_levels = '99'
i_drag_drop_handle = l_drag_drop_handle
i_hier_col_is_key = ' ' "l_hier_col_is_key
IMPORTING
et_treeitm = p_item_table
et_treev_node = p_node_table
e_flg_enqueue = l_enqueue
e_objects_in_hierarchy = g_objects_in_tree.
IF sy-subrc NE 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

FORM fill_objects_in_hierarchy
CHANGING p_objects_in_hierarchy TYPE cnpb_h_objects_in_hierarchy.
p_objects_in_hierarchy-proj = 'X'. "g_options-project.
p_objects_in_hierarchy-prps = 'X'. "g_options-wbselement.
p_objects_in_hierarchy-aufk_ps = space. "g_options-network.
p_objects_in_hierarchy-vallc = space. "g_options-network.
p_objects_in_hierarchy-afvg_ps = space. "g_options-activity.
p_objects_in_hierarchy-afvg_ps_uvo = space. "g_options-element.
p_objects_in_hierarchy-resb = space. "g_options-material.
p_objects_in_hierarchy-mlst = space. "g_options-milestone.
p_objects_in_hierarchy-pstx = space. "g_options-pstext.
p_objects_in_hierarchy-affh = space.
p_objects_in_hierarchy-drad = space. "g_options-document.
p_objects_in_hierarchy-afab = space. "g_options-relation.

ENDFORM. " FILL_OBJECTS_IN_HIERARCHY

Вот этот кусок выводит замечательное дерево, содержимое и внешность дерева настраивается в таблице p_it_tree :

С построением более менее разобрался.
Никак не могу понять каким образом заполняется таблица с деревом.

То есть: у меня есть на входе таблица с данными (вид данных я писал) + всякие их определения соответсвенно и тексты.
на выходе должен получить дерево

как заполнить таблицу?
Не пойму никак...

просто в структуре таблицы p_it_tree аж 98 элементов
Я конечно понимаю что больше половины из них для настройки.
Но ведь ID и ROOT и TYPE вроде автоматом проставляться должны. и еще какие-то.
не пойму как ее заполнить, имея всего:

2501 тест1
2501-01 подтест1
2501-01-001 подтест2
2502 тест2
2502-01 подтест2

а чем тебе наборы не дерево ?

GS01 - создание набора

вот пример, разбирайся:


и так можно этих вложенных циклов создать сколько тебе нужно ...

надо рекурсию использовать, как можо предусмотреть количество вложенных циклов

А после того как я постоил дерево по примеру от EHOT,
Как мне сделать чтобы папки с плюсиками разварачивались?

ну это понятно, но в большинстве случаев все же известно количество уровней

в начале программы пишешь
set pf-status 'MAIN'.
и в него в "строку кнопок" добавляешь кнопки с кодами TREP (это для разворачивания) и TRCM (для сворачивания) ... если надо в каком-то уровне обрабатывать даблклик, то добавляешь TRSL ...
а в "присвоении кнопок" делаешь слияние функций списка ... (ну это для удобства)

Друг. спасибо, все работает.
Только можно опконкретнее про даблик.
Чего-то не обрабатывается двойной щелчок ((
Может надо еще чего-то прописывать в


Я там написал USER_COMMAND (где-то так увидел)
Или чего еще может быть?

Разобрался.
Надо было вместо PICK повесить TRSL.
А вот двойной щелчек по самому названию как обработать? (надо его редактировать просто)

В общем если конкретизировать, то в R3 есть программа стандартная Raimhier вроде или Raimher

у нас она вызывается транзакцией im22

Смысл такой, что в ней выводится дерево - в него можно добавлять и редактировать, но там все это только для одной выбранной позиции (ROOT)

А мне надо со всеми. Переписать заного прогу нереально вроде как я понял. А вот детали из нее придется брать. В том числе это редактирование и т.д.