un exemplu:
select-options so_nchmc for s_nchmc.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR so_nchmc-low.
PERFORM f4_so_nchmc.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR so_nchmc-high.
PERFORM f4_so_nchmc.
FORM f4_so_nchmc .
*CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'
* EXPORTING
* TABNAME = 'PA0002'
* FIELDNAME = 'NCHMC'
** SEARCHHELP = ' '
** SHLPPARAM = ' '
* DYNPPROG = sy-cprog
* DYNPNR = sy-dynnr
* DYNPROFIELD = 'SO_NCHMC '
** STEPL = 0
** VALUE = ' '
** MULTIPLE_CHOICE = ' '
* DISPLAY = 'F'
** SUPPRESS_RECORDLIST = ' '
** CALLBACK_PROGRAM = ' '
** CALLBACK_FORM = ' '
** SELECTION_SCREEN = ' '
** IMPORTING
** USER_RESET =
* TABLES
* RETURN_TAB = t_return
** EXCEPTIONS
** FIELD_NOT_FOUND = 1
** NO_HELP_FOR_FIELD = 2
** INCONSISTENT_HELP = 3
** NO_VALUES_FOUND = 4
** OTHERS = 5
* .
*IF SY-SUBRC <> 0.
** MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
** WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
*ENDIF.
*
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
* DDIC_STRUCTURE = ' '
RETFIELD = 'NCHMC'
* PVALKEY = ' '
DYNPPROG = sy-cprog
DYNPNR = sy-dynnr
DYNPROFIELD = 'SO_NCHMC'
* STEPL = 0
* WINDOW_TITLE =
* VALUE = ' '
VALUE_ORG = 'S'
* MULTIPLE_CHOICE = ' '
DISPLAY = 'F'
* CALLBACK_PROGRAM = ' '
* CALLBACK_FORM = ' '
* MARK_TAB =
* IMPORTING
* USER_RESET =
TABLES
VALUE_TAB = tab_np
* FIELD_TAB = LGART
RETURN_TAB = t_return
* 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.
ENDFORM. " f4_so_nchmc
pentru alte informatii, poti sa-mi raspunzi pe forum sau mail
cezarpaulet@yahoo.com