Berikut ini contoh syntaxnya:
TABLES tcurt.
DATA dyfields LIKE dynpread OCCURS 1 WITH HEADER LINE.
PARAMETERS: p_waers LIKE tcurt-waers, ”Currency
p_ltext LIKE tcurt-ltext, ”Long Text
p_ktext LIKE tcurt-ktext. ”Short Text
*———————————————————————–
*— Example of updating value of another field on the screen ———-
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_waers.
CLEAR: dyfields[], dyfields.
*— select currency
CALL FUNCTION ’HELP_VALUES_GET’
EXPORTING
fieldname = ’WAERS’
tabname = ’TCURT’
IMPORTING
select_value = p_waers.
*— get long text for the selected currency
SELECT SINGLE ltext FROM tcurt
INTO dyfields-fieldvalue
WHERE spras = sy-langu
AND waers = p_waers.
IF sy-subrc <> 0.
CLEAR dyfields-fieldvalue.
ENDIF.
*— update another field
dyfields-fieldname = ’P_LTEXT’.
APPEND dyfields.
CALL FUNCTION ’DYNP_VALUES_UPDATE’
EXPORTING
dyname = sy-cprog
dynumb = sy-dynnr
TABLES
dynpfields = dyfields.
*———————————————————————–
*— Example of reading value of another field ————————-
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_ktext.
*— read another field
CLEAR: dyfields[], dyfields.
dyfields-fieldname = ’P_WAERS’.
APPEND dyfields.
CALL FUNCTION ’DYNP_VALUES_READ’
EXPORTING
dyname = sy-cprog
dynumb = sy-dynnr
TABLES
dynpfields = dyfields.
READ TABLE dyfields INDEX 1.
*— get short text and update current field
SELECT SINGLE ktext FROM tcurt
INTO p_ktext
WHERE spras EQ sy-langu
AND waers EQ dyfields-fieldvalue.
Hasilnya:
Misal p_waers dipilih IDR, maka p_ltext akan otomatis terisi Indonesian Rupiah. Dan p_ktext jika dieksekusi search help-nya, akan otomatis terisi Rupiah.
Source: www.sap-img.com
