DATA: gr_schroedingers_maschine TYPE REF TO
lcl_lieblingssuchmaschine, "ORef
gr_schroedingers_katze TYPE REF TO lcl_katze, "ORef
gr_search TYPE REF TO lif_search, "Interface-Referenz
gt_things TYPE stringtab.

* Objekte instanziieren 
CREATE OBJECT gr_schroedingers_maschine.
CREATE OBJECT gr_schroedingers_katze.
* Sprich mit der Suchmaschine
* ?-Cast
gr_search = gr_schroedingers_maschine.
gr_search->get_it(
EXPORTING
id_thing = 'Stockerl'
IMPORTING
et_things = gt_things ).
* Sprich mit der Katze
* ?-Cast
gr_search = gr_schroedingers_katze.
gr_search->get_it(
EXPORTING
id_thing = 'Stockerl'
IMPORTING
et_things = gt_things ).