DATA:nameTYPEvrm_id,
listTYPEvrm_values,
valueLIKELINEOFlist.

DATAlt_itab5TYPETABLEOFdynpread.
DATAls_itab5TYPEdynpread.
DATAl_kunagTYPElikp-kunag.

ls_itab5-fieldname='S_KUNAG'.
APPENDls_itab5TOlt_itab5.
***獲取螢幕輸入框值
CALLFUNCTION'DYNP_VALUES_READ'
EXPORTING
dyname=sy-cprog
dynumb=sy-dynnr
TABLES
dynpfields=lt_itab5.

IFsy-subrc<>0.

ENDIF.

READTABLElt_itab5INTOls_itab5WITHKEYfieldname='S_KUNAG'.
IFls_itab5-fieldvalueISNOTINITIAL.
CLEARl_kunag.
l_kunag=ls_itab5-fieldvalue.
CALLFUNCTION'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input=l_kunag
IMPORTING
output=l_kunag.
****獲取螢幕輸入值之後當作條件可以在table中select 下拉框所需的key值
REFRESHlist.
CLEARlist.
SELECTDISTINCTtypeASkeyINTOCORRESPONDINGFIELDSOFTABLElistFROM [table]WHEREkunnr=l_kunag.
CALLFUNCTION'VRM_SET_VALUES'
EXPORTING
id='s_type'
values=list.
ENDIF.