hi gurus,
i am using this function module in my program . although the data is filling in internal table its not showing any display when we press f4 for field m1. i am giving the coding below.
report ztest1.
TYPES : BEGIN OF ty_mnth,
m1(2) TYPE c,
END OF ty_mnth.
*
DATA : it_mnth TYPE TABLE OF ty_mnth,
WA_MNTH TYPE TY_MNTH.
DATA: var(2) TYPE c.
TYPES: v2(2) TYPE c,
v3(4) TYPE c.
DATA: it_return TYPE STANDARD TABLE OF ddshretval.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (5) text-001.
PARAMETERS : m1 TYPE v2.
SELECTION-SCREEN COMMENT (6) text-002.
PARAMETERS : y1 TYPE v3.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK b1.
**&----
*
*& At Selection Screen
*&
&----
AT SELECTION-SCREEN .
IF m1 > 12.
MESSAGE e000(zshmsg) WITH 'enter valid date'.
ENDIF.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR m1.
REFRESH IT_MNTH.
DO 12 TIMES.
var = var + 1.
wa_mnth-m1 = var.
APPEND wa_mnth TO it_mnth.
ENDDO.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
DDIC_STRUCTURE = ' '
retfield = 'M1'
PVALKEY = ' '
dynpprog = sy-repid
dynpnr = sy-dynnr
DYNPROFIELD = 'M1'
STEPL = 0
WINDOW_TITLE =
VALUE = ' '
value_org = 'S'
MULTIPLE_CHOICE = ' '
DISPLAY = ' '
CALLBACK_PROGRAM = ' '
CALLBACK_FORM = ' '
MARK_TAB =
IMPORTING
USER_RESET =
TABLES
value_tab = it_mnth
FIELD_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.