User Search help

[Former Member]

Hello Everyone

I have created a report for username , but I want to add search help and that perticular user must display on the screen

Thanks

Monto

[Former Member]

Hi Monto,

Can you paste your code and tell which data element you used for defining the parameter on selection screen.

Regards,

Atish

[Former Member]

Hi, Monto,

maybe you can use the search help named USER_ADDR.

Regrads.

[Former Member]

Hello yang

I did not find the table user_addr it is showing as USR01,USR02...........Etc.,

Monto

[Former Member]

Hi Monto,

USER_ADDR is a View.

Regards,

Atish

[Former Member]

check below code where F4 for s_sbgrp will be displyed as per the s_bukrs.

check select options

SELECT-OPTIONS: s_bukrs FOR gs_bsid-bukrs OBLIGATORY NO-EXTENSION, " Company code

s_sbgrp FOR gs_knkk-sbgrp NO-EXTENSION. " Credit Rep. Group

In main program

• Value request on Credit Rep. Group.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_sbgrp-high.

PERFORM sub_search_help_sbgrp.

Inside subroutine

&----

---

*& Form sub_search_help_sbgrp

&----

---

• Search Help for Credit Rep. Group based on company code value

----

---

FORM sub_search_help_sbgrp .

DATA: lv_bukrs LIKE LINE OF s_bukrs.

CLEAR gs_dynfields.

• Assigning the company code value to the table (DYNPREAD) Fields of the current screen (with values)

gs_dynfields-fieldname = 'S_BUKRS-LOW'.

APPEND gs_dynfields TO gt_dynfields.

gs_dynfields-fieldname = 'S_BUKRS-HIGH'.

APPEND gs_dynfields TO gt_dynfields.

• Call this function module to get the values of selection screen for company code

CALL FUNCTION 'DYNP_VALUES_READ'

EXPORTING

dyname = sy-cprog

dynumb = sy-dynnr

translate_to_upper = 'X'

TABLES

dynpfields = gt_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.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

• Get the values obtained for company code into select options s_bukrs

CLEAR gs_dynfields.

FREE: lv_bukrs, s_bukrs.

READ TABLE gt_dynfields INTO gs_dynfields WITH KEY fieldname = 'S_BUKRS-LOW'.

IF sy-subrc = 0.

s_bukrs-low = gs_dynfields-fieldvalue.

ENDIF.

CLEAR gs_dynfields.

READ TABLE gt_dynfields INTO gs_dynfields WITH KEY fieldname = 'S_BUKRS-HIGH'.

IF sy-subrc = 0.

s_bukrs-high = gs_dynfields-fieldvalue.

ENDIF.

lv_bukrs-low = s_bukrs-low.

lv_bukrs-high = s_bukrs-high.

IF lv_bukrs-high IS NOT INITIAL.

lv_bukrs-option = 'BT'.

ELSE.

lv_bukrs-option = 'EQ'.

ENDIF.

lv_bukrs-sign = 'I'.

APPEND lv_bukrs TO s_bukrs .

IF s_bukrs IS NOT INITIAL.

• Get the data from Credit management: Credit representative groups (t024b) into internal table

SELECT kkber sbgrp stext

FROM t024b

INTO CORRESPONDING FIELDS OF TABLE gt_t024b

WHERE kkber IN s_bukrs.

IF sy-subrc EQ 0.

SORT gt_t024b BY kkber sbgrp.

ENDIF.

• Passing the data of internal table gt_t691b to get the search help for credit group

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

retfield = 'sbgrp'

dynpprog = sy-cprog

dynpnr = sy-dynnr

dynprofield = 's_bukrs-low'

value_org = 'S'

TABLES

value_tab = gt_t024b

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.

ENDIF.

ENDFORM. " sub_search_help_sbgrp

Rewards if useful.............

Minal