Hi experts,
I have a Ztable: ZLT_Mita with two fields M1, M2 and Disable
On Screen in Module pool (Screen Number 9000) I need to pull in data from ZLT_MITA to :
input/Output fields: IT_mita-m1 and IT_Mita-M2
as well as in checkbox: IT_Mita-Disable.
I am unable to get anything when I press f4 in the input/output fields on the Screen.
The code is:
On Flow Logic Screen:
PROCESS ON VALUE-REQUEST.
FIELD it_mita-M1 Module F4_Help_it_mita.
Mod. Pool Screen:
module F4_Help_it_mita input.
wa_mapping-fldname = 'F0001'.
wa_mapping-dyfldname = 'IT_MITA-M1'.
append wa_mapping to it_mapping.
clear wa_mapping.
wa_mapping-fldname = 'F0002'.
wa_mapping-dyfldname = 'IT_MITA-M2'.
append wa_mapping to it_mapping.
clear wa_mapping.
wa_mapping-fldname = 'F0003'.
wa_mapping-dyfldname = 'IT_MITA-DISABLE'.
append wa_mapping to it_mapping.
clear wa_mapping.
Call function 'F4IF_INT_TABLE_VALUE_REQUEST'
exporting
* DDIC_STRUCTURE = ' '
retfield = 'M1'
* PVALKEY = ' '
dynpprog = sy-cprog
dynpnr = sy-dynnr
dynprofield = 'It_mita-M1'
* STEPL = 0
window_title = 'Bildschrim für Mitarbeiter Code'
* VALUE = ' '
value_org = 'S'
* MULTIPLE_CHOICE = ' '
* DISPLAY = ' '
* CALLBACK_PROGRAM = ' '
* CALLBACK_FORM = ' '
* MARK_TAB =
* IMPORTING
* USER_RESET =
tables
value_tab = it_mita
* FIELD_TAB =
return_tab = it_return
dynpfld_mapping = it_mapping
* 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.
read table it_return with key fieldname = 'F0001'
retfield = 'IT_MITA-M1'.
if sy-subrc = 0.
it_mita-m1 = it_return-fieldval.
endif.
read table it_return with key fieldname = 'F0002'
retfield = 'IT_Mita-M2'.
if sy-subrc = 0.
it_mita-m2 = it_return-fieldval.
endif.
read table it_return with key fieldname = 'F0003'
retfield = 'IT_Mita-M3'.
if sy-subrc = 0.
it_mita-disable = it_return-fieldval.
endif.
endmodule. " F4_Help_it_mita INPUT
Please suggest me where I am wrong.
Regards
Deepika