F4 ile özel olarak listeleme yapmak için kullanabilirsiniz.

Örnek tek seçim içindir

FUNCTION ZQMIZ_CH_F4_TANK.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     REFERENCE(I_QPART) TYPE  ZQMIZ_E_QPART
*"     VALUE(I_DELETE_IF_EMPTY) TYPE  CHAR1 DEFAULT SPACE
*"  EXPORTING
*"     VALUE(E_ZZBBTNO) TYPE  ZZBBTNO
*"----------------------------------------------------------------------


  DATA: BEGIN OF value_tab OCCURS 0,
            ZBBTNO  TYPE ZZBBTNO,
            ZBBTTANIM  TYPE ZZBBTTANIM,
            ZBBTHACMI  TYPE ZZBBTHACMI,
            ZBBTHACIM_BIRIMI  TYPE ZQMIZ_E_HACIM_BIRIMI,
        END OF value_tab.
  DATA : return_tab LIKE TABLE OF ddshretval WITH HEADER LINE,
         lv_fieldname(50).

  clear:value_tab,value_tab[].



  SELECT ZBBTNO ZBBTTANIM ZBBTHACMI ZBBTHACIM_BIRIMI FROM ZQMIZ_BBT_TANK INTO TABLE value_tab
    WHERE QPART =  I_QPART .

  if I_DELETE_IF_EMPTY = `X`.
    delete value_tab where ZBBTHACMI = 0.
  endif.

  CALL FUNCTION `F4IF_INT_TABLE_VALUE_REQUEST`
    EXPORTING
      retfield        = `ZBBTNO`
      value_org       = `S`
    TABLES
      value_tab       = value_tab
      return_tab      = return_tab
    EXCEPTIONS
      parameter_error = 1
      no_values_found = 2
      OTHERS          = 3.
  IF sy-subrc = 0 AND return_tab-fieldval <> ``.
    MOVE return_tab-fieldval TO E_ZZBBTNO.
  ENDIF.
*  <---------

ENDFUNCTION.