topic Re: tables in Application Development and Automation Discussions

tables

Former Member — Fri, 01 Jun 2007 13:37:59 GMT

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?

Re: tables

Former Member — Fri, 01 Jun 2007 13:41:46 GMT

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

Re: tables

Former Member — Fri, 01 Jun 2007 13:42:49 GMT

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.

Re: tables

Former Member — Fri, 01 Jun 2007 13:42:55 GMT

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