20 lines
470 B
ABAP
20 lines
470 B
ABAP
CLASS {{p}}cx_legacy DEFINITION PUBLIC INHERITING FROM cx_static_check FINAL CREATE PUBLIC.
|
|
PUBLIC SECTION.
|
|
METHODS constructor IMPORTING iv_text TYPE string.
|
|
METHODS if_message~get_text REDEFINITION.
|
|
PRIVATE SECTION.
|
|
DATA mv_text TYPE string.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS {{p}}cx_legacy IMPLEMENTATION.
|
|
METHOD constructor.
|
|
super->constructor( ).
|
|
mv_text = iv_text.
|
|
ENDMETHOD.
|
|
|
|
METHOD if_message~get_text.
|
|
result = mv_text.
|
|
ENDMETHOD.
|
|
ENDCLASS.
|