Dear Experts.
As per the document available in this forum: F4 Search Help to select more than one column value
I created a similar F4 search help for my requirement. But I am facing problem in populating data in the screen.
Scenario: I have an employee database table Zlt_mita with two fields M1 (Employee Name) and M2 (Mitarbeiter Code)
Like: M1 M2
Chandan Kumar DAS0907
Alexander Schmitz EXT0806
Petra Sutor DAS0906
------------- --------
------- -------
And so on.
The Problem: Now I had created Parameters: P_mita for M1 and P_mitanr for M2.
On selection scren when I hit F4 for P_mita then the whole table appears but when I select on of the name (M1) then it doesn't gets populated in the box there .
My Code (In Se38)
&---------------------------------------------------------------------*
*& Report ZEITERFASSUNGF4HELP
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZEITERFASSUNGF4HELP.
TYPES: Begin OF ty_Mita,
M1 TYPE Zlt_mita-M1,
M2 TYPE Zlt_mita-M2,
END OF ty_mita.
DATA: it_mita TYPE STANDARD TABLE OF ty_mita with header line,
it_return TYPE STANDARD TABLE OF ddshretval,
it_mapping TYPE STANDARD TABLE OF dselc.
DATA: wa_mita TYPE ty_mita,
wa_return TYPE ddshretval,
wa_mapping TYPE dselc.
SELECTION-SCREEN begin of block blk2 with frame title text-102.
SELECTION-SCREEN SKIP 2.
PARAMETERS: P_Mita TYPE ZLT_Mita-M1,
P_Mitanr TYPE ZLT_Mita-M2.
SELECTION-SCREEN end of block blk2.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_mita.
SELECT M1
M2
FROM ZLT_Mita
INTO TABLE it_mita
UP TO 50 ROWS.
* WHERE sprach = sy-langu.
wa_mapping-fldname = 'F0001'.
wa_mapping-dyfldname = 'P_mita'.
APPEND wa_mapping to it_mapping.
Clear wa_mapping.
wa_mapping-fldname = 'F0002'.
wa_mapping-dyfldname = 'P_mitanr'.
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 = 'P_mita'
* STEPL = 0
WINDOW_TITLE = 'Bildschrim für Mitarbeiter Kode'
* 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.
I am unable to find where I am wrong.
Would request you Experts to help me out.
Regards
Chandan