34 lines
703 B
ABAP
34 lines
703 B
ABAP
CLASS {{p}}cx_scaf_order DEFINITION
|
|
PUBLIC
|
|
INHERITING FROM cx_static_check
|
|
FINAL
|
|
CREATE PUBLIC.
|
|
|
|
PUBLIC SECTION.
|
|
DATA order_id TYPE string READ-ONLY.
|
|
DATA reason TYPE string READ-ONLY.
|
|
|
|
METHODS constructor
|
|
IMPORTING
|
|
iv_order_id TYPE string
|
|
iv_reason TYPE string.
|
|
|
|
METHODS get_message
|
|
RETURNING
|
|
VALUE(rv_message) TYPE string.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS {{p}}cx_scaf_order IMPLEMENTATION.
|
|
METHOD constructor.
|
|
super->constructor( ).
|
|
order_id = iv_order_id.
|
|
reason = iv_reason.
|
|
ENDMETHOD.
|
|
|
|
METHOD get_message.
|
|
MESSAGE ID '{{P}}SCAF_MSG' TYPE 'E' NUMBER '001'
|
|
WITH order_id reason INTO rv_message.
|
|
ENDMETHOD.
|
|
ENDCLASS.
|