REPORT {{p}}optic_quote_rpt.

DATA lo_pricer TYPE REF TO {{p}}glasses_pricer.
DATA lv_price TYPE {{p}}glasses_pricer=>ty_amount.

lo_pricer = NEW #( ).
lv_price = lo_pricer->price( iv_frame = CONV {{p}}glasses_pricer=>ty_amount( '120.00' )
                             iv_lens  = 'P'
                             iv_coat  = 'A'
                             iv_qty   = 2 ).

WRITE: / 'Quotation:', lv_price.