REPORT zrpp014.

  TYPE-POOLS vrm.
  PARAMETERS: zlist(2) TYPE c AS LISTBOX VISIBLE LENGTH 15.

INITIALIZATION.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR zlist.

 PERFORM selectlist CHANGING zlist.

FORM selectlist CHANGING zlist.

DATA itab_list TYPE vrm_values.
DATA wa_list LIKE LINE OF itab_list.
wa_list-key = '01'.
wa_list-text = '入庫單'.
APPEND wa_list TO itab_list.
wa_list-key = '02'.
wa_list-text = '移庫單'.
APPEND wa_list TO itab_list.
wa_list-key = '03'.
wa_list-text = '出庫單'.
APPEND wa_list TO itab_list.
wa_list-key = '04'.
wa_list-text = '銷售出庫單'.
APPEND wa_list TO itab_list.
wa_list-key = '05'.
wa_list-text = '銷售退貨單'.
APPEND wa_list TO itab_list.
wa_list-key = '06'.
wa_list-text = '整車出庫單'.
APPEND wa_list TO itab_list.
wa_list-key = '07'.
wa_list-text = '整車退貨單'.
APPEND wa_list TO itab_list.
wa_list-key = '08'.
wa_list-text = '復(fù)核'.
APPEND wa_list TO itab_list.
wa_list-key = '09'.
wa_list-text = '過賬'.
APPEND wa_list TO itab_list.
CALL FUNCTION 'VRM_SET_VALUES'
      EXPORTING
            id     = 'ZLIST'  "屏幕中的下拉菜單的NAME,下拉菜單選擇LISTBOX
            values = itab_list.
            "if zlist = ''.　　　　"好像沒什么用
READ TABLE itab_list INTO wa_list INDEX 1. 
REFRESH itab_list.

ENDFORM.