*--------------------------------------------------------------*
* Объявляем специальную системную
* структуру для работы с экраном
TABLES: sscrfields.
* Объявляем структуру которую будем
* использовать для формирования текстов для кнопок
DATA: functxt TYPE smp_dyntxt.
SELECT-OPTIONS...
PARAMETERS...
* Активируем кнопку номер 1
SELECTION-SCREEN FUNCTION KEY 1.
* в этом событии создаем кнопку и записываем
* ее в sscrfields
AT SELECTION-SCREEN OUTPUT.
functxt-icon_id = icon_create.
functxt-quickinfo = 'Создать'.
functxt-icon_text = 'Создать'.
MOVE funcxt TO sscrfields-functxt_01.
* Обрабатываем реакцию на нажатие кнопки
AT SELECTION-SCREEN.
CASE sscrfields-ucomm.
WHEN 'FC01'.
"тут происходит что-то важное
"и тут
"и еще немного тут
ENDCASE.
*--------------------------------------------------------------*
В результате получится что-то в этом духе:
