25 lines
610 B
ABAP
25 lines
610 B
ABAP
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.
|