report z_test_tree.
parameters fl like iflot-tplnr.
...
* нажали эфчетыре:
at selection-screen on value-request for fl.
set pf-status 'LD_TREE'.
*дальше рисую и строю дерево...
...
* колбэк функция для дерева:
form at_user_command tables knoten structure seucomm
           using command
           changing exit list_refresh.
....
*по двойному клики возвращаюсь:
    exit = 'X'.
endform.

report z_test_tree.
parameters fl like iflot-tplnr.
...
* нажали эфчетыре:
at selection-screen on value-request for fl.
set pf-status 'LD_TREE'.
*дальше рисую и строю дерево...
...

leave screen.

* колбэк функция для дерева:
form at_user_command tables knoten structure seucomm
           using command
           changing exit list_refresh.
....
*по двойному клики возвращаюсь:
    exit = 'X'.
endform.