REPORT zsch_011_oo_exc.
CLASS lcl_buch DEFINITION.
PUBLIC SECTION.
* Ausnahme propagieren
CLASS-METHODS: check_in_time
RAISING zcx_sch_011_termintreue.
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
CLASS lcl_buch IMPLEMENTATION.
METHOD check_in_time.
* Die Nachricht
DATA: ls_textid LIKE if_t100_message=>t100key.
* Hier kommen die komplexen Ermittlungen
* ...
* Nehmen wir mal an, dass der Autor mit dem Buch
* nicht in der Zeit liegt. Ausnahme werfen!
ls_textid-msgid = 'ZSCH_011'.
ls_textid-msgno = 001.
* Lieber Autor! Deinen Termin wirst du nicht halten knnen.
* Schme dich!
RAISE EXCEPTION TYPE zcx_sch_011_termintreue 
EXPORTING
textid = ls_textid
* previous = .
ENDMETHOD.
ENDCLASS.