AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_zzcj-low.
PERFORM frm_value_request_zzcj USING s_zzcj-low.
TYPES:BEGIN OF lty_itab,
zorglev TYPE ztgl1067-zorglev,
zorglevt TYPE ztgl1067-zorglevt,
END OF lty_itab.
DATA:lt_itab TYPE TABLE OF lty_itab,
ls_itab TYPE lty_itab.
DATA:lt_ddshretval TYPE STANDARD TABLE OF ddshretval,
ls_ddshretval LIKE LINE OF lt_ddshretval,
lt_dynpfields TYPE TABLE OF dynpread,
ls_dynpfields TYPE dynpread.
SELECT ('*') INTO CORRESPONDING FIELDS OF TABLE lt_itab FROM ztgl1067.
SORT lt_itab BY zorglev.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'ZORGLEV'
dynpprog = sy-cprog
dynpnr = sy-dynnr
* WINDOW_TITLE = LV_TITLE
value_org = 'S'
callback_program = sy-repid
* CALLBACK_FORM = 'CB_FORM'
multiple_choice = 'X'
TABLES
value_tab = lt_itab
* field_tab = lt_field_tab
return_tab = lt_ddshretval
EXCEPTIONS
parameter_error = 1
no_values_found = 2
OTHERS = 3.
IF sy-subrc = 0. ELSE. ENDIF.
READ TABLE lt_ddshretval INTO ls_ddshretval INDEX 1.
field = ls_ddshretval-fieldval.
