*&---------------------------------------------------------------------*
*& Report ZDIALOGTEST
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT zdialogtest.
TYPE-POOLS: vrm. "存放combobox内容的type pool
DATA: name TYPE vrm_id, "list box的名称
list TYPE vrm_values, "list box的值
value LIKE LINE OF list. "list box的结构
*定义checkbox,指定command,为了能够响应选择屏幕中值的改变
PARAMETERS: p_cb1 TYPE c AS CHECKBOX DEFAULT 'X' USER-COMMAND check,
p_cb2 TYPE c AS CHECKBOX DEFAULT 'X' USER-COMMAND check.
*定义listbox,必须指定visible length
PARAMETERS: p_list1(10) TYPE c AS LISTBOX
VISIBLE LENGTH 15 ,
p_list2(20) TYPE c AS LISTBOX
VISIBLE LENGTH 25 .
*开始执行
AT
*& Report ZDIALOGTEST
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT zdialogtest.
TYPE-POOLS: vrm. "存放combobox内容的type pool
DATA: name TYPE vrm_id, "list box的名称
list TYPE vrm_values, "list box的值
value LIKE LINE OF list. "list box的结构
*定义checkbox,指定command,为了能够响应选择屏幕中值的改变
PARAMETERS: p_cb1 TYPE c AS CHECKBOX DEFAULT 'X' USER-COMMAND check,
p_cb2 TYPE c AS CHECKBOX DEFAULT 'X' USER-COMMAND check.
*定义listbox,必须指定visible length
PARAMETERS: p_list1(10) TYPE c AS LISTBOX
VISIBLE LENGTH 15 ,
p_list2(20) TYPE c AS LISTBOX
VISIBLE LENGTH 25 .
*开始执行
AT