Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
I've alread answered this question on SDN Forum, you can see here que this .
You need control this in the class as the follow example.
*----------------------------------------------------------------------*
* CLASS one DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS one DEFINITION CREATE PRIVATE.
PUBLIC SECTION.
CLASS-METHODS create_objects EXPORTING obj_ref TYPE REF TO one.
CLASS-METHODS clear_objects.
PROTECTED SECTION.
PRIVATE SECTION.
CLASS-DATA obj_one TYPE REF TO one.
ENDCLASS. "one DEFINITION
*----------------------------------------------------------------------*
* CLASS one IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS one IMPLEMENTATION.
METHOD create_objects.
IF obj_one IS INITIAL.
" Create a new instance
CREATE OBJECT obj_one.
MOVE obj_one TO obj_ref.
ELSE.
" Use an existing instance
MOVE obj_one TO obj_ref.
ENDIF.
ENDMETHOD. "create_objects
METHOD clear_objects.
CLEAR obj_one.
ENDMETHOD. "clear_objects
ENDCLASS. "one IMPLEMENTATION
DATA: obj1 TYPE REF TO one,
obj2 TYPE REF TO one.
START-OF-SELECTION.
" Now you'll create the first instance for your class
CALL METHOD one=>create_objects
IMPORTING
obj_ref = obj1.
" Now you'll use an existing instance
CALL METHOD one=>create_objects
IMPORTING
obj_ref = obj2.
CLEAR obj1.
one=>clear_objects( ).
" Now you'll be able to create a new instance for your class
CALL METHOD one=>create_objects
IMPORTING
obj_ref = obj2.
I assume you want to check whether your reference variable hold an instance already. There are two ways available:
DATA:
lo_myref TYPE REF TO <class name / interface name>.
IF ( lo_myref IS INITIAL ).
ELSE.
" we have an instance
ENDIF.
" Since SAP release >= 6.20 a more specific statement is available:
IF ( lo_myref IS BOUND ).
" we have an instance
ELSE.
ENDIF.
I've alread answered this question on SDN Forum, you can see here que this .
You need control this in the class as the follow example.
*----------------------------------------------------------------------*
* CLASS one DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS one DEFINITION CREATE PRIVATE.
PUBLIC SECTION.
CLASS-METHODS create_objects EXPORTING obj_ref TYPE REF TO one.
CLASS-METHODS clear_objects.
PROTECTED SECTION.
PRIVATE SECTION.
CLASS-DATA obj_one TYPE REF TO one.
ENDCLASS. "one DEFINITION
*----------------------------------------------------------------------*
* CLASS one IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS one IMPLEMENTATION.
METHOD create_objects.
IF obj_one IS INITIAL.
" Create a new instance
CREATE OBJECT obj_one.
MOVE obj_one TO obj_ref.
ELSE.
" Use an existing instance
MOVE obj_one TO obj_ref.
ENDIF.
ENDMETHOD. "create_objects
METHOD clear_objects.
CLEAR obj_one.
ENDMETHOD. "clear_objects
ENDCLASS. "one IMPLEMENTATION
DATA: obj1 TYPE REF TO one,
obj2 TYPE REF TO one.
START-OF-SELECTION.
" Now you'll create the first instance for your class
CALL METHOD one=>create_objects
IMPORTING
obj_ref = obj1.
" Now you'll use an existing instance
CALL METHOD one=>create_objects
IMPORTING
obj_ref = obj2.
CLEAR obj1.
one=>clear_objects( ).
" Now you'll be able to create a new instance for your class
CALL METHOD one=>create_objects
IMPORTING
obj_ref = obj2.
Bluesky
