f4 help

[Former Member]

Hi,

how create search help for particular field that holds the value internal table at run time.

regards,

ARUN

[Former Member]

hi,

there are two function modules.

1)

Internal table tmmapl contains all the values.

screen field name should be passed to dynprofield.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

retfield = 'LCINTNUM'

dynpprog = sy-cprog

dynpnr = sy-dynnr

dynprofield = 'V_LCNUM'

value_org = 'S'

TABLES

value_tab = tmmapl.

2 )

DATA: BEGIN OF it_ddown OCCURS 0,

key(40),

text(80),

END OF it_ddown.

LOOP AT tmmapl INTO wa_appl.

it_ddown-key = wa_appl-lcintnum.

APPEND it_ddown.

CLEAR it_ddown.

ENDLOOP.

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

id = 'V_LCNUM'

values = it_ddown[].

in 2nd case in screen editor , for that field u need to provied listbox in dropdown instead of value list.

hope ur problem will get solved

[Former Member]

use field symbols

[Former Member]

Hi Arun,

Use the FM 'F4IF_INT_TABLE_VALUE_REQUEST'.

Hope this helps you.

Regards,

Anand

[Former Member]

You can use the function module 'F4IF_INT_TABLE_VALUE_REQUEST'

select-options : s_carrid for.....

at selection-screen on s_carrid-low.

SELECT carrid carrname
FROM scarr
INTO CORRESPONDING FIELDS OF TABLE itab_carrid.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'SCARRID-low'
value_org = 'S'
TABLES
value_tab = itab_carrid
EXCEPTIONS
parameter_error = 1
no_values_found = 2
OTHERS = 3.

Regards

Sam

[Former Member]

SELECT ernam FROM ekko

INTO CORRESPONDING FIELDS OF

TABLE it_value1 .

DELETE it_value1 WHERE NOT ernam CA sy-abcde.

SORT it_value1 BY ernam ASCENDING.

DELETE ADJACENT DUPLICATES FROM it_value1.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

RETFIELD = 'ernam'

DYNPPROG = sy-cprog

DYNPNR = sy-dynnr

DYNPROFIELD = 's_nam_po-low'

VALUE_ORG = 'S'

CALLBACK_PROGRAM = sy-cprog

TABLES

VALUE_TAB = it_value1

EXCEPTIONS

PARAMETER_ERROR = 1

NO_VALUES_FOUND = 2

OTHERS = 3.

IF SY-SUBRC <> 0.

ENDIF.

Regards,

Ajay

[Former Member]

Hi Arun

Use FM 'F4IF_INT_TABLE_VALUE_REQUEST'

if u want to create another search help which is element of dat dictionary.

First Create HELP VIEW ........................>assign help view to Search Help.

Regards,

Flavya

[Former Member]

hi,

there are two function modules.

1)

Internal table tmmapl contains all the values.

screen field name should be passed to dynprofield.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

retfield = 'LCINTNUM'

dynpprog = sy-cprog

dynpnr = sy-dynnr

dynprofield = 'V_LCNUM'

value_org = 'S'

TABLES

value_tab = tmmapl.

2 )

DATA: BEGIN OF it_ddown OCCURS 0,

key(40),

text(80),

END OF it_ddown.

LOOP AT tmmapl INTO wa_appl.

it_ddown-key = wa_appl-lcintnum.

APPEND it_ddown.

CLEAR it_ddown.

ENDLOOP.

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

id = 'V_LCNUM'

values = it_ddown[].

in 2nd case in screen editor , for that field u need to provied listbox in dropdown instead of value list.

hope ur problem will get solved

[former_member206439]

Hi

sample code

TABLES: HRP1001, HRP1026, HRP1000,PCHDY.
TYPES : BEGIN OF ST_OBJID_SH,
         OTYPE TYPE HRP1000-OTYPE,
         OBJID TYPE HRP1000-OBJID,
        END OF ST_OBJID_SH.

DATA : IT_OBJID_SH TYPE STANDARD TABLE OF ST_OBJID_SH.
DATA : WA_OBJID_SH TYPE ST_OBJID_SH.

**********VALIDATION FOR SCREEN FIELDS*********************

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

*  IF S_OBJID IS NOT INITIAL.

    SELECT OTYPE OBJID FROM HRP1000
                 INTO TABLE IT_OBJID_SH
                 WHERE OTYPE = 'D'.

 IF SY-SUBRC EQ 0.

* SEARCH HELP FOR QUALIFICATION.

    CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
      EXPORTING
*              DDIC_STRUCTURE         = ' '
        RETFIELD               =  'OBJID'
*              PVALKEY                = ' '
       DYNPPROG               = SY-REPID
       DYNPNR                 = SY-DYNNR
       DYNPROFIELD            = 'S_OBJID'
*              STEPL                  = 0
*              WINDOW_TITLE           =
*              VALUE                  = ' '
       VALUE_ORG              = 'S'
*              MULTIPLE_CHOICE        = ' '
*              DISPLAY                = ' '
*              CALLBACK_PROGRAM       = ' '
*              CALLBACK_FORM          = ' '
*              MARK_TAB               =
*            IMPORTING
*              USER_RESET             =
      TABLES
        VALUE_TAB              =  IT_OBJID_SH
*              FIELD_TAB              =
*              RETURN_TAB             = RETURN_TAB
*              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.
  ENDIF.

              .

[Former Member]

THANKS TO ALL