sap listbox

iszjw

REPORT  YTEST007.　　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-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
　　*----------------------------------------------------------------------*
　　*  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