CLASS {{p}}cx_claim_amount DEFINITION
  PUBLIC
  INHERITING FROM {{p}}cx_claim_error
  FINAL
  CREATE PUBLIC.

  PUBLIC SECTION.
    DATA mv_amount TYPE {{p}}if_expense_claim=>ty_amount READ-ONLY.

    METHODS constructor
      IMPORTING iv_amount TYPE {{p}}if_expense_claim=>ty_amount.
ENDCLASS.


CLASS {{p}}cx_claim_amount IMPLEMENTATION.
  METHOD constructor.
    super->constructor( iv_message = 'Amount must be positive' ).
    mv_amount = iv_amount.
  ENDMETHOD.
ENDCLASS.