2019-11-15 选择屏幕f4 最简单的实现，代码量最少的操

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.