*----------------------------------------------------------------

*       CLASS CL_NAME IMPLEMENTATION

*----------------------------------------------------------------

CLASS CL_NAME IMPLEMENTATION.

  METHOD IS_CLASS_INITIATED.

    IF I_COUNT > 0.

      RE_BOOL = CO_TRUE.

    ELSE.

      RE_BOOL = CO_FALSE.

    ENDIF.

  ENDMETHOD. "IS_CLASS_INITIATED

  METHOD SET_NAME.

    NAME = IM_NAME.

  ENDMETHOD. "SET_NAME

  METHOD GET_NAME.

    EX_NAME = NAME.

  ENDMETHOD. "GET_NAME

ENDCLASS.                    "CL_NAME IMPLEMENTATION

START-OF-SELECTION.

  DATA BOOL TYPE BOOLEAN.


" CHECK IF ANY INSTANCE OF THIS CLASS HAS BEEN CREATED BEFORE

  CALL METHOD CL_NAME=>IS_CLASS_INITIATED

    IMPORTING

      RE_BOOL = BOOL.

  IF BOOL = CO_FALSE.
//  blablabla
endif.