FUNCTION {{p}}glaz_sample
  IMPORTING
    iv_width_mm  TYPE i
    iv_height_mm TYPE i
    iv_glass     TYPE string
    iv_urgent    TYPE abap_bool
  EXPORTING
    ev_fee       TYPE decfloat34
  EXCEPTIONS
    invalid_input.

  ev_fee = 0.

ENDFUNCTION.