下拉菜单的使用

看下这个例子
TYPE-POOLS: VRM.
CONSTANTS: CNS_1(1) TYPE C VALUE '1',
CNS_2(1) TYPE C VALUE '2',
CNS_3(1) TYPE C VALUE '3',
CNS_4(1) TYPE C VALUE '4',
CNS_5(1) TYPE C VALUE '5',
CNS_6(1) TYPE C VALUE '6',
CNS_7(1) TYPE C VALUE '7',
CNS_A(20) TYPE C VALUE '美元借款',
CNS_B(20) TYPE C VALUE '人民币借款',
CNS_C(20) TYPE C VALUE '固定资产贷款',
CNS_D(20) TYPE C VALUE '信用证',
CNS_E(20) TYPE C VALUE '银行承兑汇票',
CNS_F(20) TYPE C VALUE '股东借款',
CNS_G(20) TYPE C VALUE '内部借款'.

DATA: OK_CODE TYPE SY-UCOMM.
DATA: REPID TYPE SY-REPID VALUE 'ZZYH070807'.
DATA: FNAME TYPE VRM_ID,
LIST TYPE VRM_VALUES.
WLIST LIKE LINE OF LIST.
DATA: SCRNO TYPE SY-DYNNR VALUE '1000'.
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS '0100'.
SET TITLEBAR '010'.
REFRESH LIST.
PERFORM VRM_SET USING CNS_1 CNS_A.
PERFORM VRM_SET USING CNS_2 CNS_B.
PERFORM VRM_SET USING CNS_3 CNS_C.
PERFORM VRM_SET USING CNS_4 CNS_D.
PERFORM VRM_SET USING CNS_5 CNS_E.
PERFORM VRM_SET USING CNS_6 CNS_F.
PERFORM VRM_SET USING CNS_7 CNS_G.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
ID = FNAME
VALUES = LIST
EXCEPTIONS
ID_ILLEGAL_NAME = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDMODULE.

MODULE USER_COMMAND_0100 INPUT.
CASE OK_CODE.
WHEN 'ENTR'.
PERFORM SUBSCR_SET.
ENDMODULE.

FORM VRM_SET USING VALUE(CNS_N)
VALUE(CNS_X).
CLEAR WLIST.
FNAME = 'ITAB-ZSORT'.
WLIST-KEY = CNS_N.
WLIST-KEY = CNS_X.
APPEND WLIST TO LIST.
ENDFORM. " VRM_SET

FORM SUBSCR_SET .
CASE ITAB-ZSORT.
WHEN CNS_A.
SCRNO = '200'.
ITAB-WAERS = CNS_USD.
PERFORM SELECT_NAME.
WHEN CNS_B.
SCRNO ='300'.
ITAB-WAERS = CNS_CNY.
PERFORM SELECT_NAME.
WHEN CNS_C.
SCRNO = '400'.
PERFORM SELECT_NAME.
WHEN CNS_D.
SCRNO = '500'.
PERFORM SELECT_NAME.
WHEN CNS_E.
SCRNO = '600'.
PERFORM SELECT_NAME.
WHEN CNS_F.
SCRNO = '700'.
PERFORM SELECT_NAME.
WHEN CNS_G.
SCRNO = '800'.
PERFORM SELECT_NAME.
ENDCASE.
ENDFORM. " SUBSCR_SET

PROCESS BEFORE OUTPUT.
MODULE STATUS_0100.
CALL SUBSCREEN SUBSCR INCLUDING REPID SCRNO.
*
PROCESS AFTER INPUT.
MODULE USER_COMMAND_0100.
CALL SUBSCREEN SUBSCR.