replacing obsolete FM HELP_VALUES_GET_WITH_TABLE

[hemanth_kumar21]

Hi,

We are upgrading our system from ECC 4.6 to ECC 6.0. For that we are replacing obsolete Function modules.

I found one obsolete function module HELP_VALUES_GET_WITH_TABLE. For that I found the replacement function module F4IF_INT_TABLE_VALUE_REQUEST. But I am not sure how to use the new one. We don't know what are all the import and export parameters and the table values.

Could any one please help me out in resolving this.

Below is my old code

CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE'

EXPORTING

DISPLAY = DISPLAY

IMPORTING

SELECT_VALUE = KEY

TABLES

FIELDS = HELP_VALUE

VALUETAB = VALUE_TAB.

Regards,

Hemanth

[Sandeep_Panghal]

Check the FM "F4IF_INT_TABLE_VALUE_REQUEST" documentation.

[Former Member]

Hi,

here is a sample call for a domain fix value selection:

TYPES: BEGIN OF x_bs,
         domvalue_l  TYPE domvalue_l,
         ddtext      TYPE val_text,
       END   OF x_bs.
                                                                                DATA:  xt_bs         TYPE TABLE OF x_bs.
DATA:  xs_return     TYPE ddshretval.
DATA:  xt_return     TYPE TABLE OF ddshretval.
                                                                                CONSTANTS: xk_bs TYPE domname VALUE '/SIE/IS_BPS_BS_0000001'.
                                                                                * only for  0000001
  IF  i_prps-slwid               EQ  '0000001'.
                                                                                *   Only for customer field PRPS-USR02
    IF  i_user_field             EQ  'PRPS-USR02'.
                                                                                *     Get all possible values from DD07V
      SELECT domvalue_l ddtext FROM  dd07v
                               INTO  CORRESPONDING FIELDS OF TABLE xt_bs
      WHERE  domname             EQ  xk_bs.
                                                                                *     Display values
      IF  sy-subrc               EQ  0.
        SORT                         xt_bs.
                                                                                CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
          EXPORTING
            retfield              =  'DOMVALUE_L'
            window_title          =  'Select Value'(001)
            value_org             =  'S'
          TABLES
            value_tab             =  xt_bs
            return_tab            =  xt_return
          EXCEPTIONS
            OTHERS                =  4.
                                                                                IF  sy-subrc             EQ  0.
          READ  TABLE                xt_return
                              INDEX  1
                               INTO  xs_return.
                                                                                e_value                 =  xs_return-fieldval.
        ENDIF.
      ENDIF.
    ENDIF. "Field PRPS-USR02
  ENDIF.   "only 0000001

Parameter "value_org" with S means, it is a value structure (in this case field value and description in the same line of value tab!

Regards,

Klaus

Edited by: Klaus Babl on Feb 25, 2011 7:38 AM

[venkatapavan_sinagam]

HI mhemanth ,

find the below code to replacing HELP_VALUES_GET_WITH_TABLE obsolete with F4IF_INT_TABLE_VALUE_REQUEST

********************************************************
'HELP_VALUES_GET_WITH_TABLE'
********************************************************

*    call function 'HELP_VALUES_GET_WITH_TABLE'
*         exporting
*              display            = disp_flag
*              fieldname         = 'PERSA'
*              titel                 = 'Personalbereich'(peb)
*         importing
*              select_value    = q1008-persa
*         tables
*              fields              = field_tab
*              valuetab          = value_tab
*         exceptions
*              others            = 0.



*******************************************************
'F4IF_INT_TABLE_VALUE_REQUEST'
*******************************************************


data: l_retfield      type  dfies-fieldname,
          it_return       type  ddshretval occurs 0 with header line,
          it_help_fields  like  dfies      occurs 0 with header line. 
       move 'T500P' to it_help_fields-tabname.
         move  'PERSA' to it_help_fields-fieldname.
          append it_help_fields.

         move 'NAME1' to it_help_fields-fieldname.
          append it_help_fields.

         move  'BUKRS' to it_help_fields-fieldname.
          append it_help_fields.

         move  'MOLGA' to it_help_fields-fieldname.
          append it_help_fields.


 CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
          EXPORTING
            RETFIELD                          = l_retfield
            DISPLAY                           = disp_flag
            WINDOW_TITLE                 = 'Personalbereich'(peb)
          TABLES
            VALUE_TAB                      = value_tab
            FIELD_TAB                        = it_help_fields
            RETURN_TAB                    = it_return
          EXCEPTIONS
           PARAMETER_ERROR        = 1
           NO_VALUES_FOUND         = 2
           OTHERS                            = 3.
       if it_return[] is not initial.
            read table it_return index 1.
            q1008-persa = it_return-fieldval.
       endif.

thanks ,

venkatapavan

[hemanth_kumar21]

Hi Pavan,

Thanks a lot for your answer.

But, in my old code there is no value for field name.

can you please suggest me in FM F4IF_INT_TABLE_VALUE_REQUEST which value i need to pass for RETFIELD (Name of return field in FIELD_TAB).

Thanks,

Hemanth.

[Former Member]

Hi,

From your FM it should be the Display as retutn field.

Try it.

Thanks

Arbind