* Die Referenz auf das Ausnahmeobjekt
DATA: lr_exc TYPE REF TO zcx_sch_011_termintreue,
* Der Text zur Ausnahme
ld_text TYPE string.

START-OF-SELECTION.
* Behandlung
TRY.
* Die Methode kann eine Ausnahme werfen
lcl_buch=>check_in_time( ).
* Alles okay.
WRITE: / 'Der Autor war brav und alles ist im Plan'.
* Falls eine Ausnahme auftritt, dann der CATCH-Teil
CATCH zcx_sch_011_termintreue INTO lr_exc.
ld_text = lr_exc->get_text( ).
WRITE: / ld_text.
ENDTRY.