Search help

[Former Member]

Hi

while giving search help to a parameter and press F4 i shd get an intial screen and while i press enter i shd get all the data assigned to that field

please suggest me

Regards

Salman

[Former Member]

Hi,

Refer to the code below:-

REPORT ZSRI_SEARCHHELP .

TYPES: BEGIN OF values,

bukrs TYPE bkpf-bukrs,

belnr TYPE bkpf-belnr,

• gjahr TYPE bkpf-gjahr,

END OF values.

*

DATA: BUKRS(4) TYPE c,

BELNR(10) TYPE c.

*

DATA: progname TYPE sy-repid,

dynnum TYPE sy-dynnr,

dynpro_values TYPE TABLE OF dynpread,

field_value LIKE LINE OF dynpro_values,

values_tab TYPE TABLE OF values.

*

CALL SCREEN 100.

*&----

---

*

*& Module INIT OUTPUT

*&----

---

*

• text

*----

---

*

MODULE INIT OUTPUT.

progname = sy-repid.

dynnum = sy-dynnr.

CLEAR: field_value, dynpro_values.

field_value-fieldname = 'BUKRS'.

APPEND field_value TO dynpro_values.

ENDMODULE. " INIT OUTPUT

*&----

---

*

*& Module CANCEL INPUT

*&----

---

*

• text

*----

---

*

MODULE CANCEL INPUT.

LEAVE PROGRAM.

ENDMODULE.

• " CANCEL INPUT

***&----

---

*-

***

*& Module VALUE_BUKRS INPUT

*&----

---

*

• text

*----

---

*

MODULE VALUE_BUKRS INPUT.

CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'

EXPORTING

tabname = 'BKPF'

fieldname = 'BUKRS'

dynpprog = progname

dynpnr = dynnum

dynprofield = 'BUKRS'.

ENDMODULE. " VALUE_BUKRS INPUT

**&----

---

**

**& Module VALUE_BELNR INPUT

**&----

---

**

• text

**----

---

**

MODULE VALUE_BELNR INPUT.

CALL FUNCTION 'DYNP_VALUES_READ'

EXPORTING

dyname = progname

dynumb = dynnum

translate_to_upper = 'X'

TABLES

dynpfields = dynpro_values.

READ TABLE dynpro_values INDEX 1 INTO field_value.

SELECT BUKRS BELNR

FROM BKPF

INTO CORRESPONDING FIELDS OF TABLE values_tab

WHERE BUKRS = field_value-fieldvalue.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

retfield = 'BUKRS'

dynpprog = progname

dynpnr = dynnum

dynprofield = 'BELNR'

value_org = 'S'

TABLES

value_tab = values_tab.

ENDMODULE. " VALUE_BELNR INPUT

*

&----

---

*& Module VALUE_GJAHR INPUT

&----

---

• text

----

---

MODULE VALUE_GJAHR INPUT.

ENDMODULE. " VALUE_GJAHR INPUT

Screen painter flow logic se51

PROCESS BEFORE OUTPUT.

MODULE INIT.

PROCESS AFTER INPUT.

MODULE CANCEL AT EXIT-COMMAND.

PROCESS ON VALUE-REQUEST.

FIELD BUKRS MODULE VALUE_BUKRS.

FIELD BELNR MODULE VALUE_BELNR.

• FIELD GJAHR MODULE VALUE_GJAHR.

*

Thanks and regards,

Prerna