34 lines
720 B
ABAP
34 lines
720 B
ABAP
CLASS zcx_demo_abap_error_b DEFINITION
|
|
PUBLIC
|
|
INHERITING FROM cx_static_check
|
|
FINAL
|
|
CREATE PUBLIC .
|
|
|
|
PUBLIC SECTION.
|
|
|
|
INTERFACES if_t100_message.
|
|
INTERFACES if_t100_dyn_msg.
|
|
|
|
METHODS constructor
|
|
IMPORTING
|
|
textid LIKE if_t100_message=>t100key OPTIONAL
|
|
previous LIKE previous OPTIONAL.
|
|
PROTECTED SECTION.
|
|
PRIVATE SECTION.
|
|
ENDCLASS.
|
|
|
|
|
|
|
|
CLASS zcx_demo_abap_error_b IMPLEMENTATION.
|
|
METHOD constructor ##ADT_SUPPRESS_GENERATION.
|
|
super->constructor( previous = previous ).
|
|
|
|
CLEAR me->textid.
|
|
IF textid IS INITIAL.
|
|
if_t100_message~t100key = if_t100_message=>default_textid.
|
|
ELSE.
|
|
if_t100_message~t100key = textid.
|
|
ENDIF.
|
|
ENDMETHOD.
|
|
ENDCLASS.
|