tables

[Former Member]

hi experts plz ,

i.i want to display a search help in selection-screen, can any one give me the syntax for search help in selection-screen plz?

2.

[Former Member]

Hi,

Check this sample code:

REPORT ZF4_HELP.

TABLES:DNAST,T681Z,T681B.

SELECT-OPTIONS: S_KAPPL FOR DNAST-KAPPL.

INCLUDE RSEF4HLP .

AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_KAPPL-LOW.

PERFORM VALUES_FOR_KAPPL USING S_KAPPL-LOW.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_KAPPL-HIGH.

PERFORM VALUES_FOR_KAPPL USING S_KAPPL-HIGH.

&----

---

*& Form values_for_kappl

&----

---

FORM VALUES_FOR_KAPPL USING KAPPL_VALUE LIKE T681Z-KAPPL.

REFRESH: HELP_VAL, VALUES.

• we want the text of this field

MOVE 'T681Z' TO HELP_INF-TABNAME.

MOVE 'KAPPL' TO HELP_INF-FIELDNAME.

• store the definitions of the data to be displayed

CLEAR HELP_VAL.

MOVE 'T681Z' TO HELP_VAL-TABNAME.

MOVE 'KAPPL' TO HELP_VAL-FIELDNAME.

MOVE 'ON' TO HELP_VAL-SELECTFLAG.

APPEND HELP_VAL.

CLEAR HELP_VAL.

MOVE 'T681B' TO HELP_VAL-TABNAME.

MOVE 'VTEXT' TO HELP_VAL-FIELDNAME.

APPEND HELP_VAL.

• store the data to be displayed

SELECT * FROM T681Z WHERE KVEWE EQ 'B'.

MOVE T681Z-KAPPL TO VALUES.

APPEND VALUES.

• add description

SELECT SINGLE * FROM T681B WHERE SPRAS EQ SY-LANGU

AND KAPPL EQ T681Z-KAPPL.

IF SY-SUBRC EQ 0.

MOVE T681B-VTEXT TO VALUES.

ELSE.

CLEAR VALUES.

ENDIF.

APPEND VALUES.

ENDSELECT.

CALL FUNCTION 'F4TOOL_F4FUNCTION_BRIDGE'

EXPORTING

• CUCOL = 0

• CUROW = 0

TABNAME = HELP_INF-TABNAME

FIELDNAME = HELP_INF-FIELDNAME

DISPLAY_ONLY = ' '

• NO_CONVERSION = ' '

• WINDOW_TITLE = WINDOW_TITLE

• TABDISPLAY = ' '

IMPORTING

SELECTED_VALUE = KAPPL_VALUE

• SELECTED_INDEX = SELECTED_INDEX

TABLES

• SHVALUE_TAB = SHVALUE_TAB

• SHSTRUC_TAB = SHSTRUC_TAB

VALUE_TAB = VALUES

FIELDS_TAB = HELP_VAL

• VALUES_OUT = VALUES

• COLTITLE_TAB = COLTITLE_TAB

• SEL_OPT = SEL_OPT

.

ENDFORM. " values_for_kappl

[Former Member]

Hi Murali,

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_lgart.

*Get the F4 value of Customer Wage Types

PERFORM f_dn_grp_f4 USING 'P_LGART'.

&----

---

*& Form f_dn_grp_f4

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM f_dn_grp_f4 USING p_field TYPE any.

DATA: p_field_name TYPE help_info-dynprofld.

• varaible used to get the value returned by the function module

DATA l_return TYPE ddshretval OCCURS 0 WITH HEADER LINE.

• get the fieldname for F4 help

p_field_name = p_field.

g_repid = sy-repid.

g_dynnr = sy-dynnr.

• Call the function module for the display of F4 values

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

retfield = 'LGART'

dynpprog = g_repid

dynpnr = g_dynnr

dynprofield = p_field_name

window_title = 'Customer Wage Types'

value_org = 'S'

TABLES

value_tab = g_t_user_help

return_tab = l_return

• FIELD_TAB =

EXCEPTIONS

parameter_error = 1

no_values_found = 2

OTHERS = 3

.

IF sy-subrc = 0.

p_lgart = l_return-fieldval.

ENDIF.

ENDFORM. " f_dn_grp_f4

*&----

---

Hope this helps.

Thanks

Aneesh.

[Former Member]

Hello,

Check the following Code

TABLES : MARD.
DATA: BEGIN OF IT_MARD OCCURS 0,
WERKS LIKE MARD-WERKS,
END OF IT_MARD.

DATA : T_RETURN TYPE STANDARD TABLE OF DDSHRETVAL WITH HEADER LINE.
parameters : P_WERKS LIKE MARD-WERKS.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_WERKS.

SELECT WERKS FROM MARD UP TO 10 ROWS INTO table IT_MARD.


CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
RETFIELD = 'WERKS'
DYNPPROG = SY-REPID
DYNPNR = '1000'
DYNPROFIELD = 'P_WERKS'
VALUE_ORG = 'S'
TABLES
VALUE_TAB = IT_MARD
RETURN_TAB = T_RETURN
EXCEPTIONS
PARAMETER_ERROR = 1
NO_VALUES_FOUND = 2
OTHERS = 3.

Thanks & regards

Deepu.K