FORM currency_value_help_display.
CONSTANTS:
lc_table_name_currency LIKE help_info-tabname VALUE 'TCURC',
lc_field_name_currency LIKE help_info-fieldname VALUE 'WAERS'.
data : lv_tab type TABLE OF help_info.
DATA : lv_field TYPE dfies-fieldname ,
lv_tabname type tabname.
DATA: li_return type ddshretval occurs 0 with header line,
li_help_fields like dfies occurs 0 with header line.
lv_field = lc_field_name_currency.
lv_tabname = LC_TABLE_NAME_CURRENCY.
CALL FUNCTION 'HELP_VALUES_GET'
EXPORTING
DISPLAY = FALSE
FIELDNAME = LC_FIELD_NAME_CURRENCY
TABNAME = LC_TABLE_NAME_CURRENCY
IMPORTING
SELECT_VALUE = P_WAERS
EXCEPTIONS
NO_HELP_FOR_FIELD = 1
OTHERS = 2.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
DDIC_STRUCTURE = lv_tabname
retfield = lv_field
PVALKEY = ' '
DYNPPROG = ' '
DYNPNR = ' '
DYNPROFIELD = ' '
STEPL = 0
WINDOW_TITLE =
VALUE = ' '
VALUE_ORG = 'C'
MULTIPLE_CHOICE = ' '
DISPLAY = FALSE
CALLBACK_PROGRAM = ' '
CALLBACK_FORM = ' '
MARK_TAB =
IMPORTING
USER_RESET =
TABLES
value_tab = lv_tab
RETURN_TAB = li_return
EXCEPTIONS
parameter_error = 1
no_values_found = 2
OTHERS = 3.
IF sy-subrc EQ 0.
IF li_return[] is not Initial.
Read table li_return index 1.
P_WAERS = li_return-fieldval.
ENDIF.
ENDIF.
IF sy-subrc > 1.
MESSAGE x083(eip) WITH '012'.<=== HERE I AM GETTING ERROR THAT SY-SUBRC >1 .So please help me how to replace the parameters in f4if_int_table_value_request.PLEASE GUIDE ME.
ENDIF.
ENDFORM. "currency_value_help_display
Bluesky
