DATA: BEGIN OF gs_vbsart,
        vbsart     TYPE vbsart,
        vbsarttext TYPE vbsarttext,
      END OF gs_vbsart,
      gt_vbsart LIKE TABLE OF gs_vbsart.

...

PARAMETERS: p_vbsart(20).

...

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_vbsart.

  SELECT vbsart vbsarttext
    FROM te102t
    INTO TABLE gt_vbsart
    WHERE spras = sy-langu.

  REFRESH gt_fields.
  REFRESH gt_return.

  gs_fields-tabname = 'TE102T'.
  gs_fields-fieldname = 'VBSART'.
  APPEND gs_fields TO gt_fields.

  gs_fields-tabname = 'TE102T'.
  gs_fields-fieldname = 'VBSARTTEXT'.
  APPEND gs_fields TO gt_fields.

  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield   = 'VBSARTTEXT'
    TABLES
      value_tab  = gt_vbsart
      field_tab  = gt_fields
      return_tab = gt_return.

  IF sy-subrc = 0.
    p_vbsart = gt_return-fieldval.
  ENDIF.