REPORT Z.
data: begin of inttab occurs 10,
          bukrs like t001-bukrs,
          butxt like t001-butxt,
          ort01 like t001-ort01,
      end of inttab,
      ret_tab like DDSHRETVAL occurs 0 with header line.

start-of-selection.
  select bukrs butxt ort01 from t001 into table inttab.

  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
*     DDIC_STRUCTURE         = ' '
      RETFIELD               = 'BUKRS'
*     PVALKEY                = ' '
*     DYNPPROG               = ' '
*     DYNPNR                 = ' '
*     DYNPROFIELD            = ' '
*     STEPL                  = 0
      WINDOW_TITLE           = 'Select Company Code'
      VALUE                  = 'S*'
      VALUE_ORG              = 'S'
*     MULTIPLE_CHOICE        = ' '
*     DISPLAY                = ' '
*     CALLBACK_PROGRAM       = ' '
*     CALLBACK_FORM          = ' '
    TABLES
      VALUE_TAB              = inttab
*     FIELD_TAB              =
      RETURN_TAB             = ret_tab
*     DYNPFLD_MAPPING        =
    EXCEPTIONS
      PARAMETER_ERROR        = 1
      NO_VALUES_FOUND        = 2
      OTHERS                 = 3.
  IF SY-SUBRC <> 0.
    write: / 'Error =', sy-subrc.
  else.
    loop at ret_tab.
      write ret_tab-fieldval.
    endloop.
  ENDIF.
* end of code