topic Re: Free object problem in Application Development and Automation Discussions

Free object problem

david_fryda2 — Thu, 24 May 2007 13:58:32 GMT

Hi everyone,

Here is a code where the object is not really cleared.


CLASS testfree DEFINITION.
  PUBLIC SECTION.
    METHODS set_var.
    METHODS getvar EXPORTING pv_text TYPE char10.
  PRIVATE SECTION.
    CLASS-DATA : gv_text(10).
ENDCLASS.        

CLASS testfree IMPLEMENTATION.
  METHOD set_var.
    gv_text = 'hello world'.
  ENDMETHOD.                    "set_var
  METHOD getvar.
    pv_text =  gv_text.
  ENDMETHOD.                    "getvar

ENDCLASS.                    "testfree IMPLEMENTATION

START-OF-SELECTION.
  DATA: go_testfree TYPE REF TO testfree,
        gv_text1(10).
  CREATE OBJECT go_testfree.
  CALL METHOD go_testfree->set_var.
  CALL METHOD go_testfree->getvar
    IMPORTING
      pv_text = gv_text1.
  WRITE:/ 'before free : ', gv_text1.

  FREE  go_testfree .
  CLEAR gv_text1.

  CREATE OBJECT go_testfree.
  CALL METHOD go_testfree->getvar
    IMPORTING
      pv_text = gv_text1.
  WRITE:/ 'After free : ', gv_text1.


The problem is that gv_text1 is still set to value 'hello world' after the FREE command.
How is it possible ?

Thanks
Regards.

Re: Free object problem

Former Member — Thu, 24 May 2007 14:07:19 GMT

I guess declaring it as CLASS-DATA is the problem here

declare that as DATA

DATA : gv_text(10).

Re: Free object problem

RichHeilman — Thu, 24 May 2007 14:09:48 GMT

The reason is simply, you have declare the GV_TEXT attribute as a static attribute. You did this using the CLASS-DATA statement, if you want it to be an instance attribute, you need to define with a DATA statement instead.

  private section.
     data: gv_text(10).

Regards,

RIch Heilman

Re: Free object problem

david_fryda2 — Thu, 24 May 2007 14:09:51 GMT

Thanks for the quick and right answer!!!

Regards.