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

  PUBLIC SECTION.
    DATA mv_currency TYPE {{p}}if_expense_claim=>ty_currency READ-ONLY.

    METHODS constructor
      IMPORTING iv_currency TYPE {{p}}if_expense_claim=>ty_currency.
ENDCLASS.


CLASS {{p}}cx_claim_currency IMPLEMENTATION.
  METHOD constructor.
    super->constructor( iv_message = 'Currency is not supported' ).
    mv_currency = iv_currency.
  ENDMETHOD.
ENDCLASS.