REPORT ZTEST.
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 SELECTION-SCREEN OUTPUT .

*选择1而没有选择2
IF P_CB1 = 'X' AND P_CB2 = ''.

*向listbox里面添加值
    REFRESH LIST .
    VALUE-KEY = '1111111111' . "这个就是变量P_LIST的值
    VALUE-TEXT = '1111111111' . "这个是text
    APPEND VALUE TO LIST .
    VALUE-KEY = '2222222222' .
    VALUE-TEXT = '2222222222' .
    APPEND VALUE TO LIST .
    VALUE-KEY = '3333333333' .
    VALUE-TEXT = '3333333333' .
    APPEND VALUE TO LIST .
   
*调用函数显示listbox里面的值
    CALL FUNCTION 'VRM_SET_VALUES'
      EXPORTING
        ID     = 'P_LIST1'
        VALUES = LIST.
       
*把第二个listbox的值清空，并且不能输入
    CLEAR P_LIST2 .
    LOOP AT SCREEN .
      IF SCREEN-NAME = 'P_LIST2' .
        SCREEN-INPUT = 0 .
        MODIFY SCREEN .
      ENDIF .
    ENDLOOP .
   
*选择2，没有选择1，同上
ELSEIF P_CB2 = 'X' AND P_CB1 = ''.
    REFRESH LIST .
    VALUE-KEY = 'AAAAAAAAAAAAAAAAAAAA' .
    VALUE-TEXT = 'AAAAAAAAAAAAAAAAAAAA' .
    APPEND VALUE TO LIST .
    VALUE-KEY = 'BBBBBBBBBBBBBBBBBBBB' .
    VALUE-TEXT = 'BBBBBBBBBBBBBBBBBBBB' .
    APPEND VALUE TO LIST .
    VALUE-KEY = 'CCCCCCCCCCCCCCCCCCCC' .
    VALUE-TEXT = 'CCCCCCCCCCCCCCCCCCCC' .
    APPEND VALUE TO LIST .
    APPEND VALUE TO LIST .
    CALL FUNCTION 'VRM_SET_VALUES'
      EXPORTING
        ID     = 'P_LIST2'
        VALUES = LIST.
       
*清空listbox 1的值
    CLEAR P_LIST1 .
    LOOP AT SCREEN .
      IF SCREEN-NAME = 'P_LIST1' .
        SCREEN-INPUT = 0 .
        MODIFY SCREEN .
      ENDIF .
    ENDLOOP .
   
*都没有选择，都清空且不能输入
ELSEIF P_CB1 = '' AND P_CB2 = '' .
    CLEAR: P_LIST1,P_LIST2 .
    LOOP AT SCREEN .
      IF SCREEN-NAME = 'P_LIST1' .
        SCREEN-INPUT = 0 .
        MODIFY SCREEN .
      ENDIF .
    ENDLOOP .
    LOOP AT SCREEN .
      IF SCREEN-NAME = 'P_LIST2' .
        SCREEN-INPUT = 0 .
        MODIFY SCREEN .
      ENDIF .
    ENDLOOP .
   
*都选，执行
ELSEIF P_CB1 = 'X' AND P_CB2 = 'X' .
    REFRESH LIST .
    VALUE-KEY = '1111111111' .
    VALUE-TEXT = '1111111111' .
    APPEND VALUE TO LIST .
    VALUE-KEY = '2222222222' .
    VALUE-TEXT = '2222222222' .
    APPEND VALUE TO LIST .
    VALUE-KEY = '3333333333' .
    VALUE-TEXT = '3333333333' .
    APPEND VALUE TO LIST .
    CALL FUNCTION 'VRM_SET_VALUES'
      EXPORTING
        ID     = 'P_LIST1'
        VALUES = LIST.
    REFRESH LIST .
    VALUE-KEY = 'AAAAAAAAAAAAAAAAAAAA' .
    VALUE-TEXT = 'AAAAAAAAAAAAAAAAAAAA' .
    APPEND VALUE TO LIST .
    VALUE-KEY = 'BBBBBBBBBBBBBBBBBBBB' .
    VALUE-TEXT = 'BBBBBBBBBBBBBBBBBBBB' .
    APPEND VALUE TO LIST .
    VALUE-KEY = 'CCCCCCCCCCCCCCCCCCCC' .
    VALUE-TEXT = 'CCCCCCCCCCCCCCCCCCCC' .
    APPEND VALUE TO LIST .
    CALL FUNCTION 'VRM_SET_VALUES'
      EXPORTING
        ID     = 'P_LIST2'
        VALUES = LIST.
ENDIF .

START-OF-SELECTION .

*输出到第二屏幕看看
WRITE: P_LIST1 ,/ P_LIST2 .