Skip to Content
0
Jul 06, 2009 at 10:39 AM

What am I doing wrong? ---->F4IF_INT_TABLE_VALUE_REQUEST

30 Views

Hi All,

I am rookie in ABAP UI programming and have written the following code:

'REPORT  TEST_UI_TEST1.

DATA: l_string(20) TYPE c.

SELECT-OPTIONS: p_list FOR l_string.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_list-low.
  PERFORM show_f4_help.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_list-high.
  PERFORM show_f4_help.

FORM show_f4_help.
  DATA:
        BEGIN OF itab_val OCCURS 0,
          val1(20) type c,
          val2(20) type c,
        end of itab_val.

   DATA: t_return TYPE ddshretval OCCURS 0 WITH HEADER LINE.

   itab_val-val1 = 'XBOX'.
   itab_val-val2 = '360'.
   APPEND itab_val.

   itab_val-val1 = 'PlayStation'.
   itab_val-val2 = '3'.
   APPEND itab_val.

   SORT itab_val by VAL1.

   CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
     EXPORTING
      RETFIELD               = 'VAL1'
      DYNPPROG               = SY-cprog
      DYNPNR                 = sy-dynnr
      DYNPROFIELD            = 'P_LIST'
      WINDOW_TITLE           = 'F4 Help'
      VALUE_ORG              = 'S'
      DISPLAY                = 'F'
     TABLES
       VALUE_TAB              = itab_val
      RETURN_TAB             = t_return
    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.


ENDFORM.

When I run this code and press F4, I see a dialog with NO entries but at the status bar have "2 entries found" message. Please help.

Regards,

Arpit