FUNCTION {{p}}grain_sample
  IMPORTING
    iv_grain_type TYPE string
  EXPORTING
    ev_grain_name TYPE string.

  CASE iv_grain_type.
    WHEN 'WHEAT'.
      ev_grain_name = 'Wheat'.
    WHEN 'BARLEY'.
      ev_grain_name = 'Barley'.
    WHEN 'RYE'.
      ev_grain_name = 'Rye'.
    WHEN OTHERS.
      ev_grain_name = 'Unknown'.
  ENDCASE.

ENDFUNCTION.