Hi,
I am getting dump when i try to populate other field with employe name when employee id id selected in f4
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
RETFIELD = 'EMPID'
DYNPPROG = sy-repid
DYNPNR = sy-dynnr
DYNPROFIELD = 'ZEMPTEAM-ZEMPID' << This is my screen field
STEPL = 0
WINDOW_TITLE =
VALUE = ' '
VALUE_ORG = 'S'
MULTIPLE_CHOICE = ' '
DISPLAY = ' '
CALLBACK_PROGRAM = ' '
CALLBACK_FORM = ' '
MARK_TAB =
IMPORTING
USER_RESET =
TABLES
VALUE_TAB = values_tab1
RETURN_TAB = return_tab
DYNPFLD_MAPPING = LOTO1.
EXCEPTIONS
PARAMETER_ERROR = 1
NO_VALUES_FOUND = 2
OTHERS = 3
.
IF SY-SUBRC <> 0.
ENDIF.
refresh it_dynpfields.
read table return_tab with key fieldname = '/BIC/PZEMPLOYEE-/BIC/OIZEMPLOYEE'.
loto1-fldname = return_tab-retfield.
loto1-dyfldname = return_tab-fieldval.
APPEND loto1.
data: xt001 type /BIC/PZEMPLOYEE .
clear xt001.
select single * into xt001 from /BIC/PZEMPLOYEE where /BIC/ZEMPLOYEE = return_tab-fieldval.
loto1-fldname = '/BIC/OIZEMPLOYEE'.
loto1-dyfldname = xt001-/bic/zemployee.
APPEND loto1.
loto1-fldname = '/BIC/ZCNAME'.
loto1-dyfldname = xt001-/BIC/ZCNAME.
APPEND loto1.
CALL FUNCTION 'DYNP_VALUES_UPDATE' <<< Dump at this place
EXPORTING
DYNAME = sy-repid
DYNUMB = sy-dynnr
TABLES
DYNPFIELDS = loto1.
EXCEPTIONS
INVALID_ABAPWORKAREA = 1
INVALID_DYNPROFIELD = 2
INVALID_DYNPRONAME = 3
INVALID_DYNPRONUMMER = 4
INVALID_REQUEST = 5
NO_FIELDDESCRIPTION = 6
UNDEFIND_ERROR = 7
OTHERS = 8
.
IF SY-SUBRC <> 0.
ENDIF.
Bluesky
