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