на dynpro хочется иметь сабж. как его получить?

REPORT ZTEST54 .

TYPE-POOLS VRM.

TABLES: T001.


DATA: NAME TYPE VRM_ID,
LIST TYPE VRM_VALUES,
VALUE LIKE LINE OF LIST.


PARAMETERS: BUKRS TYPE BUKRS AS LISTBOX VISIBLE LENGTH 30.


INITIALIZATION.

CLEAR LIST. REFRESH LIST.
SELECT * FROM T001.
VALUE-KEY = T001-BUKRS.
VALUE-TEXT = T001-BUTXT.
APPEND VALUE TO LIST.
ENDSELECT.

CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
ID = 'BUKRS'
VALUES = LIST.

START-OF-SELECTION.

чё то не катит. нужно то его ещё на dynpro положить, а ещё и с множественным выбором! а с selection-screen все ок

ну а в чем проблема?

делаешь

CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
ID = 'XXXX'
VALUES = LIST.

где XXXX - имя переменной
в PBO логике экрана

и не совсем понимаю что такое "множественный выбор"

ок,
когда можно выбрать неск элементов из списка

приведи пример в стандартных транзакциях,
когда из листбокса можно выбрать несколько значений,
и главное - куда?

если делать PARAMETERS: bukrs TYPE bukrs AS LISTBOX VISIBLE LENGTH 30.
то в INITIALIZATION. рисуется selection screen с этим параметром а нужно только на dynpro его видеть
NO-DISPLAY не проходит вместе с AS LISTBOX

прибил параметры. оставил только переменную. её на экран. vrm в неё

Может, ты об этом?

TABLES t001.

SELECT-OPTIONS s_parms FOR t001-bukrs.

* Вспомогательные типы
TYPE-POOLS sscr.

* Объект RESTRICTION параметра
DATA restrict TYPE sscr_restrict.

* Обязательные подобъекты объекта RESTRICT
DATA: opt_list TYPE sscr_opt_list,
ass TYPE sscr_ass.


INITIALIZATION.
* только ПАРАМЕТР
CLEAR opt_list.
MOVE 'JUST_EQ' TO opt_list-name.
MOVE 'X' TO opt_list-options-eq.
APPEND opt_list TO restrict-opt_list_tab.

* применяется только к S_PARAMS
MOVE: 'S' TO ass-kind,
'S_PARMS' TO ass-name,
'*' TO ass-sg_main,
'JUST_EQ' TO ass-op_main.
APPEND ass TO restrict-ass_tab.

* ограничение вызовом ФМ
CALL FUNCTION 'SELECT_OPTIONS_RESTRICT'
EXPORTING
restriction = restrict
EXCEPTIONS
OTHERS = 1.
IF sy-subrc NE 0.
* TODO: обработка ошибок
ENDIF.


AT SELECTION-SCREEN OUTPUT.
* подавить вывод на экран HIGH-параметра
LOOP AT SCREEN.
IF screen-name EQ 'S_PARMS-HIGH'.
screen-invisible = '1'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.

Ну, а для LOW-параметра уже повесить ListBox.