Code: Alles auswählen.
PARAMETERS: pa_tab TYPE tabname,
pa_spalt TYPE dfies-lfieldname.
Code: Alles auswählen.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR pa_spalt.
*--- select currency
CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'
EXPORTING
TABNAME = pa_tab
FIELDNAME = pa_spalt
EXCEPTIONS
FIELD_NOT_FOUND = 1.
* NO_HELP_FOR_FIELD = 2
* INCONSISTENT_HELP = 3
* NO_VALUES_FOUND = 1.
* OTHERS = 5
IF SY-SUBRC = 1.
WRITE: 'No values foud'.
ENDIF.
Folgende Benutzer bedankten sich beim Autor abuma für den Beitrag:
erubadhron
Code: Alles auswählen.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR pa_spalt.
*--- select currency
CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'
EXPORTING
TABNAME = pa_tab
FIELDNAME = pa_spalt
SEARCHHELP = 'EHSWAH_DD03L'
* SHLPPARAM = ' '
* DYNPPROG = ' '
* DYNPNR = ' '
* DYNPROFIELD = ' '
* STEPL = 0
* VALUE = ' '
* MULTIPLE_CHOICE = ' '
* DISPLAY = ' '
* SUPPRESS_RECORDLIST = ' '
* CALLBACK_PROGRAM = ' '
* CALLBACK_FORM = ' '
* CALLBACK_METHOD =
* SELECTION_SCREEN = ' '
* IMPORTING
* USER_RESET =
* TABLES
* RETURN_TAB =
* EXCEPTIONS
* FIELD_NOT_FOUND = 1
* NO_HELP_FOR_FIELD = 2
* INCONSISTENT_HELP = 3
* NO_VALUES_FOUND = 4
* OTHERS = 5
.
IF SY-SUBRC <> 0.
* Implement suitable error handling here
ENDIF.
Folgende Benutzer bedankten sich beim Autor black_adept für den Beitrag:
erubadhron