Skip to Content
0
Former Member
Apr 17, 2014 at 08:01 AM

Problem in Creating F4 search Help

55 Views

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