CLASS lcl_singleton DEFINITION CREATE PRIVATE.
PUBLIC SECTION.
CLASS-METHODS: get_instance
RETURNING
value(rr_instance) TYPE REF TO lcl_singleton.
METHODS: eine_instanz_methode.
PROTECTED SECTION.
PRIVATE SECTION.
CLASS-DATA: gr_instance TYPE REF TO lcl_singleton.
ENDCLASS.
CLASS lcl_singleton IMPLEMENTATION.
METHOD get_instance.
* Falls das Objekt noch nicht exisitiert
IF gr_instance IS NOT BOUND.
CREATE OBJECT gr_instance.
ENDIF.
* Zurck damit
rr_instance = gr_instance.
ENDMETHOD. "get_instance
METHOD eine_instanz_methode.
* Hier passiert etwas Passendes fr das Singleton
ENDMETHOD. "eine_methode
ENDCLASS.
* Einfaches Singleton
DATA: gr_singleton TYPE REF TO lcl_singleton.
* Geht das?
* CREATE OBJECT gr_singleton.
* Die Instanz ermitteln
gr_singleton = lcl_singleton=>get_instance( ).
* Eine Methode aufrufen
gr_singleton->eine_instanz_methode( ).