F4IF_INT_TABLE_VALUE_REQUEST not returning value with 2 decimals point

Question

hi all,
i use function F4IF_INT_TABLE_VALUE_REQUEST to do search help, the master data in table ZINVEST has field ZNO, with field type CURR , 2 decimals point.
the return table shows 2 decimals point but in display screen it only shows 1 decimal point, pls advice
here's the coding:
DATA : BEGIN OF itab OCCURS 0,
          e_value(20),
         END OF itab.
  DATA: BEGIN OF field_tab OCCURS 0.
          INCLUDE STRUCTURE dfies.
  DATA END OF field_tab.
  DATA : return_tab LIKE ddshretval OCCURS 0 .
      CLEAR field_tab.
      field_tab-fieldname = 'E_VALUE'.
      field_tab-intlen = 17.
      field_tab-outputlen = 17.
      field_tab-decimals = 2.
      field_tab-inttype = 'C'.
      field_tab-scrtext_m = 'Investment No'.
      APPEND field_tab.
      SELECT * FROM ZINVEST.
        CLEAR: itab.
        itab-e_value = ZINVEST-ZNO.
        APPEND itab.
      ENDSELECT.
  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield        = 'E_VALUE'
      dynprofield     = 'A'
      dynpprog        = sy-cprog
      dynpnr          = sy-dynnr
    TABLES
      value_tab       = itab
      field_tab       = field_tab
      return_tab      = return_tab
    EXCEPTIONS
      parameter_error = 1
      no_values_found = 2
      OTHERS          = 3.

Answer 1

Hi ester,
You shud try this way. Try to use this code.
DATA:  BEGIN OF it_help OCCURS 0,
       zuonr TYPE zvinvoice,
       kunnr TYPE kunnr,
       name  TYPE zvcustname,
       END OF it_help.
SELECT-OPTIONS: p_zuonr FOR bsid-zuonr.
SELECT DISTINCT
         zuonr
         kunnr
  INTO CORRESPONDING FIELDS OF TABLE it_help
  FROM bsid
  WHERE zuonr <> space.
  SORT it_help BY zuonr kunnr.
  DELETE ADJACENT DUPLICATES FROM it_help
  COMPARING zuonr kunnr.
  IF it_help[] IS NOT INITIAL.
    SELECT kunnr
           name1
           name2
    INTO TABLE it_kna1
    FROM kna1
    FOR ALL ENTRIES IN it_help
    WHERE kunnr = it_help-kunnr.
    SORT it_kna1 BY kunnr.
    CLEAR v_tabix.
    SORT it_help BY kunnr.
    LOOP AT it_help.
      v_tabix = sy-tabix.
      READ TABLE it_kna1 WITH KEY kunnr = it_help-kunnr
                                  BINARY SEARCH.
      IF sy-subrc EQ 0.
        CONCATENATE it_kna1-name1 it_kna1-name2 INTO it_help-name  
        SEPARATED BY space.
        MODIFY it_help FROM it_help INDEX v_tabix
                                    TRANSPORTING name.
      ENDIF.
    ENDLOOP.
FORM event_selscr_valreq_for_pzuonr .
***Function module to display the search help for the assignment filed****
  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield         = 'ZUONR'
      dynpprog         = sy-cprog
      dynpnr           = sy-dynnr
      dynprofield      = 'P_ZUONR'
      window_title     = text-029
      value_org        = 'S'
      callback_program = sy-repid
    TABLES
      value_tab        = it_help
    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.
Reward if help ful.
Regards
Azad.