Dialog 程序添加下拉comboox

1… REPORT Z_YY_PRG_009. " 主程序

DATA: Save_OK type sy-ucomm,
OK_Code type sy-ucomm.

DATA: FLD1(20) TYPE C,
FLD2(20) TYPE C,
FLD3(20) TYPE C,
FLD4(20) TYPE C,
ACTION(50) TYPE C.

TYPE-POOLS VRM.

DATA: FNAME TYPE VRM_ID,
VVA TYPE VRM_VALUES,
LVVA LIKE LINE OF VVA.

call SCREEN 100.

MODULE CANCEL INPUT.
leave PROGRAM.

ENDMODULE. " CANCEL INPUT

2. PBO事件

MODULE STATUS_0100 OUTPUT.

• SET PF-STATUS ‘xxxxxxxx’.
• SET TITLEBAR ‘xxx’.

*加两条记录
FNAME = ‘list’.
LVVA-KEY = ‘广州’.
APPEND LVVA TO VVA.
CLEAR LVVA.
LVVA-KEY = ‘上海’.
APPEND LVVA TO VVA.

CALL FUNCTION ‘VRM_SET_VALUES’
EXPORTING
ID = FNAME
VALUES = VVA

• 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. " STATUS_0100 OUTPUT