topic Re: Search help in Application Development and Automation Discussions

Search help

Former Member — Wed, 17 Oct 2007 07:32:32 GMT

Hi all

i gt 2 input field: name, address

i want to create a search help on the address input field base on the name i had.

Hw to do that? any code

Re: Search help

Former Member — Wed, 17 Oct 2007 07:36:58 GMT

Hi,

Refer to the following code:

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

REFRESH ITEMP.

CLEAR ITEMP.

SELECT WERKS

NAME1

FROM T001W

INTO TABLE ITEMP

WHERE IWERK = 'M011'.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

DDIC_STRUCTURE = ' '

RETFIELD = 'WERKS'

PVALKEY = ' '
DYNPPROG = ' '
DYNPNR = ' '
DYNPROFIELD = ' '
STEPL = 0
WINDOW_TITLE =
VALUE = ' '

VALUE_ORG = 'S'

MULTIPLE_CHOICE = ' '
DISPLAY = ' '
CALLBACK_PROGRAM = ' '
CALLBACK_FORM = ' '

TABLES

VALUE_TAB = ITEMP

FIELD_TAB =

RETURN_TAB = T_RETURN

DYNPFLD_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.

S_WERK-LOW = T_RETURN-FIELDVAL.

Hope this helps.

Reward if helpful.

Regards,

Sipra

Re: Search help

Former Member — Wed, 17 Oct 2007 07:39:16 GMT

hi,

u want to have ur own search help then goto se 11 -> create a search help and in ur program use event AT SELECTION-SCREEN ON HELP REQUEST and code.

if helpful reward some points.

with regards,

Suresh Aluri.

Re: Search help

Former Member — Wed, 17 Oct 2007 08:00:55 GMT

How do u write this AT SELECTION-SCREEN ON HELP REQUEST?

Write at where? flow logic or report ?

Re: Search help

Former Member — Wed, 17 Oct 2007 08:03:46 GMT

hihi. Sorry i new to abap.... can u start from the report and rewrote the whole code. Any code in the flow logic? thank

Re: Search help

Former Member — Wed, 17 Oct 2007 09:16:27 GMT

Hi Gary,

You may use the following program logic for your purposes. Hope it helps

REPORT zhr_astest.

Data : Begin of li_address,

STRAS type pa0006-stras,

ORT01 type pa0006-ort01,

ORT02 type pa0006-ort02,

LAND1 type pa0006-land1,

end of li_address.

Data : it_addr like table of li_address.

DATA: progname TYPE sy-repid,

dynnum TYPE sy-dynnr,

dynpro_values TYPE TABLE OF dynpread,

field_value LIKE LINE OF dynpro_values.

Parameters : p_pernr type pa0006-pernr,

p_addr type pa0006-STRAS.

INITIALIZATION.

progname = sy-repid.

dynnum = sy-dynnr.

Search-help for P_WERKS-Low

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_addr.

CLEAR: field_value, dynpro_values, it_addr.

REFRESH dynpro_values.

field_value-fieldname = 'P_PERNR'.

APPEND field_value TO dynpro_values.

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 data to be display on Search Help

Select stras ort01 ort02 land1

into table it_addr

from pa0006

where pernr = field_value-fieldvalue and

anssa = '1'.

SORT it_addr BY land1.

DELETE ADJACENT DUPLICATES FROM it_addr

COMPARING stras ort01 ort02 land1.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

retfield = 'P_ADDR'

dynpprog = progname

dynpnr = dynnum

dynprofield = 'P_ADDR'

value_org = 'S'

TABLES

value_tab = it_addr.

Re: Search help

Former Member — Wed, 17 Oct 2007 09:33:32 GMT

Thank you u save my day!

Re: Search help

Former Member — Wed, 17 Oct 2007 09:46:06 GMT

Hihi.. sorry to bother u .

I not using a selection screen but a dialog screen.

How to make yr working code to be in dialog screen?

Re: Search help

Former Member — Thu, 18 Oct 2007 03:14:02 GMT

Hi Gary,

You might want to do this way. Let me know if it works or not

The screen flow logic is as follows:

PROCESS ON VALUE-REQUEST.

FIELD P_ADRR MODULE VALUE_ADDRESS.

In the Dialog Modules

Module Value_Address 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 data to be display on Search Help

Select stras ort01 ort02 land1

into table it_addr

from pa0006

where pernr = field_value-fieldvalue and

anssa = '1'.

SORT it_addr BY land1.

DELETE ADJACENT DUPLICATES FROM it_addr

COMPARING stras ort01 ort02 land1.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

retfield = 'P_ADDR'

dynpprog = progname

dynpnr = dynnum

dynprofield = 'P_ADDR'

value_org = 'S'

TABLES

value_tab = it_addr.

endmodule.

Re: Search help

Former Member — Thu, 18 Oct 2007 03:26:20 GMT

Below is my code. The bold word is where i gt syntax error.

REPORT ZGARY_SEARCH_HELP_DIA.

DATA: ADMINO(20) type c.

Start-of-selection.

call screen 100.

Module Value_Address 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 data to be display on Search Help

Select ADMINOGARY FNAMEGARY LNAMEGARY

into table it_addr

from ZSTUDGARY

where ADMINOGARY = ADMINO.

SORT it_addr BY land1.

DELETE ADJACENT DUPLICATES FROM it_addr

COMPARING stras ort01 ort02 land1.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

retfield = 'P_ADDR'

dynpprog = <b>progname</b>

dynpnr = dynnum

dynprofield = 'P_ADDR'

value_org = 'S'

TABLES

value_tab = it_addr.

endmodule.

Re: Search help

Former Member — Fri, 19 Oct 2007 06:51:16 GMT

Hi Gary,

I would suggest you to assign the program name to that variable before calling it.

Regards,

Loo