sap listbox
REPORTYTEST007. DATA : OK_CODE TYPE SY-UCOMM,SAVE_OK TYPE SY-UCOMM.
TYPE-POOLS VRM.
DATA : FLD1(20) TYPE C.
DATA : FNAME TYPE VRM_ID,
VVA TYPE VRM_VALUES,
LVVA LIKE LINE OF VVA.
CALL SCREEN 100.
*----------------------------------------------------------------------*
*MODULE CANCEL INPUT
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
MODULE CANCEL INPUT.
LEAVE PROGRAM.
ENDMODULE. "CANCEL INPUT
*----------------------------------------------------------------------*
*MODULE STATUS_0100 OUTPUT
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS 'TESTSTA1'.
FNAME = 'FLD1'.
LVVA-KEY = 'GZ'.
LVVA-TEXT = 'GUANGZHOU'.
APPEND LVVA TO VVA.
FNAME = 'FLD1'.
LVVA-KEY = 'SH'.
LVVA-TEXT = 'SHANGHAI'.
APPEND LVVA TO VVA.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
ID = FNAME
VALUES = VVA
* EXCEPTIONS
* ID_ILLEGAL_NAME = 1
* OTHERS = 2
.
IF SY-SUBRC0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDMODULE. "STATUS_0100 OUTPUT
*----------------------------------------------------------------------*
*MODULE USER_COMMAND_0100 INPUT
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0100 INPUT.
SAVE_OK = OK_CODE.
CLEAR OK_CODE.
CASE SAVE_OK.
WHEN 'EXIT'.
LEAVE PROGRAM.
ENDCASE.
ENDMODULE. "USER_COMMAND_0100 INPUT
页:
[1]