F4HELP

AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_flag-low.
  PERFORM frm_f4_help CHANGING s_flag-low.

*&---------------------------------------------------------------------*
*&      Form  frm_f4_help
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->PI_ATWRT   text
*----------------------------------------------------------------------*
FORM frm_f4_help  CHANGING pi_atwrt.

  TYPES:
    BEGIN OF lst_cawn,
      atwrta TYPE cawn-atwrt,
*      atwrta TYPE mara-matnr,
      atwtb TYPE cawnt-atwtb,
    END OF lst_cawn.


  DATA:
    lt_cawn TYPE TABLE OF lst_cawn WITH HEADER LINE,
*    lv_retfield TYPE dfies-fieldname VALUE 'ATWRT',
    lwa_return  TYPE ddshretval,
    lt_return   TYPE TABLE OF ddshretval.


  lt_cawn-atwrta = 'A'.
  lt_cawn-atwtb = '输出全部数据'.
  APPEND lt_cawn.
  lt_cawn-atwrta = 'B'.
  lt_cawn-atwtb = '输出有提取标示的数据'.
  APPEND lt_cawn.
  lt_cawn-atwrta = 'C'.
  lt_cawn-atwtb = '输出无提取标示的数据'.
  APPEND lt_cawn.
* 调用F4 HELP
  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield   = 'ATWRTA'
      value_org  = 'S'
    TABLES
      value_tab  = lt_cawn
      return_tab = lt_return.

  READ TABLE lt_return INTO lwa_return INDEX 1 .
  MOVE lwa_return-fieldval TO pi_atwrt.

ENDFORM.                    "frm_f4_help