DYNAMIC SEARCH HELP

Former Member — Tue, 04 Sep 2007 10:04:28 GMT

HI GURUS

I CREATED SELECTION SCREEN WITH TWO BLOCKS IN SECOND BLOCK IDEFINE SELECTIONSCREEN WITH FIELDS RESB-MATNR FOR THIS I HAVE TO PROVIDE DYNAMIC SEARCH HELP PLZ SEND THE LOGIC FOR THTA ONE

Re: DYNAMIC SEARCH HELP

varma_narayana — Tue, 04 Sep 2007 10:07:58 GMT

Hi..

This is the Code to generate F4 help in selection screen.. modify as per ur need.

REPORT ZSEL_F4HELP.

*---Report with selection screen and to display the list of

possible entries for field 'B' as per the value in field 'A'.

PARAMETERS: p_vbeln TYPE vbaP-VBELN,

p_posnr TYPE vbap-posnr,

P_MATKL TYPE VBAP-MATKL.

DATA : IT_RTAB TYPE TABLE OF DDSHRETVAL WITH HEADER LINE.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_posnr.

DATA: BEGIN OF help_item OCCURS 0,

posnr TYPE vbap-posnr,

matnr TYPE vbap-matnr,

MATKL TYPE VBAP-MATKL,

END OF help_item.

DATA: dynfields TYPE TABLE OF dynpread WITH HEADER LINE.

dynfields-fieldname = 'P_VBELN'.

APPEND dynfields.

**Read the Values of the SCREEN FIELDs

CALL FUNCTION 'DYNP_VALUES_READ'

EXPORTING

dyname = sy-cprog

dynumb = sy-dynnr

translate_to_upper = 'X'

TABLES

dynpfields = dynfields

EXCEPTIONS

invalid_abapworkarea = 1

invalid_dynprofield = 2

invalid_dynproname = 3

invalid_dynpronummer = 4

invalid_request = 5

no_fielddescription = 6

invalid_parameter = 7

undefind_error = 8

double_conversion = 9

stepl_not_found = 10

OTHERS = 11.

**Find out the Value of P_VBELN

READ TABLE dynfields WITH KEY fieldname = 'P_VBELN'.

p_vbeln = dynfields-fieldvalue.

**Convert the Value into internal format

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

input = p_vbeln

IMPORTING

output = p_vbeln.

**Fetch the correponding itemnos from VBAP

SELECT posnr matnr MATKL INTO TABLE help_item

FROM vbap

WHERE vbeln = p_vbeln.

**Generate the F4 help with internal table values

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

DDIC_STRUCTURE = ' '

retfield = 'POSNR'

dynprofield = 'P_POSNR'

dynpprog = sy-cprog

dynpnr = sy-dynnr

STEPL = 0
WINDOW_TITLE =
VALUE = ' '

VALUE_ORG = 'S'

MULTIPLE_CHOICE = ' '
DISPLAY = ' '
CALLBACK_PROGRAM = ' '
CALLBACK_FORM = ' '
MARK_TAB =
IMPORTING
USER_RESET =

TABLES

VALUE_TAB = HELP_ITEM

FIELD_TAB =

RETURN_TAB = IT_RTAB

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.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'POSNR'
dynprofield = 'P_POSNR'
dynpprog = sy-cprog
dynpnr = sy-dynnr
value_org = 'S'
TABLES
value_tab = help_item.

*********************************************************

READ TABLE IT_RTAB WITH KEY RETFIELD = 'MATKL'.

IF SY-SUBRC = 0.

READ TABLE dynfields WITH KEY fieldname = 'P_MATKL'.

dynfields-fieldvalue = IT_RTAB-FIELDVAL.

MODIFY DYNFIELDS INDEX SY-TABIX

TRANSPORTING FIELDVALUE.

CALL FUNCTION 'DYNP_VALUES_UPDATE'

EXPORTING

DYNAME = SY-CPROG

DYNUMB = SY-DYNNR

TABLES

DYNPFIELDS = DYNFIELDS

EXCEPTIONS
INVALID_ABAPWORKAREA = 1
INVALID_DYNPROFIELD = 2
INVALID_DYNPRONAME = 3
INVALID_DYNPRONUMMER = 4
INVALID_REQUEST = 5
NO_FIELDDESCRIPTION = 6
UNDEFIND_ERROR = 7
OTHERS = 8

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

<b>Reward if Helpful</b>

topic DYNAMIC SEARCH HELP in Application Development and Automation Discussions

DYNAMIC SEARCH HELP

Re: DYNAMIC SEARCH HELP