CLASS {{p}}cx_claim_error DEFINITION PUBLIC FINAL CREATE PUBLIC
  INHERITING FROM cx_static_check.
  PUBLIC SECTION.
    TYPES ty_reason TYPE c LENGTH 12.
    DATA mv_reason TYPE ty_reason READ-ONLY.
    METHODS constructor
      IMPORTING iv_reason TYPE ty_reason.
    METHODS get_text REDEFINITION.

  PRIVATE SECTION.
    CONSTANTS c_prefix TYPE string VALUE 'Claim rejected:'.
ENDCLASS.


CLASS {{p}}cx_claim_error IMPLEMENTATION.
  METHOD constructor.
    super->constructor( ).
    mv_reason = iv_reason.
  ENDMETHOD.

  METHOD get_text.
    result = |{ c_prefix } { mv_reason }|.
  ENDMETHOD.
ENDCLASS.