Skip to Content
0
Former Member
May 19, 2010 at 11:48 AM

F4 With text

90 Views

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

  • DDIC_STRUCTURE = 'ZEMPTEAM'

RETFIELD = 'EMPID'

  • PVALKEY = ' '

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

  • FIELD_TAB =

RETURN_TAB = return_tab

DYNPFLD_MAPPING = LOTO1.

  • EXCEPTIONS

  • PARAMETER_ERROR = 1

  • NO_VALUES_FOUND = 2

  • OTHERS = 3

.

IF SY-SUBRC <> 0.

  • MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

  • WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

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.

  • MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

  • WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.