topic Re: ABAP OOPS in Application Development and Automation Discussions

ABAP OOPS

Former Member — Thu, 16 Feb 2006 15:55:38 GMT

Hi all,

I am trying to learn OOP's concepts oin ABAP.I wrote a very small program but it gives me an error saying "Statement not accessible". I am forwarding my whole code, please eplain me where I am going wrong.

*********************************************************

REPORT zclass_demo.

----

CLASS C_COUNTER DEFINITION

----

CLASS c_counter DEFINITION.

PUBLIC SECTION.

METHODS: set_counter IMPORTING value(set_value) TYPE i,

increment_counter,

get_counter EXPORTING value(get_value) TYPE i.

PRIVATE SECTION.

DATA count TYPE i.

ENDCLASS. "C_COUNTER DEFINITION

----

CLASS C_COUNTER IMPLEMENTATION

----

CLASS c_counter IMPLEMENTATION.

METHOD set_counter.

count = set_value.

ENDMETHOD. "SET_COUNTER

METHOD increment_counter.

ADD 1 TO count.

ENDMETHOD. "INCREMENT_COUNTER

METHOD get_counter.

get_value = count.

ENDMETHOD. "GET_COUNTER

ENDCLASS. "C_COUNTER IMPLEMENTATION

*---- Data Statement

DATA cref1 TYPE REF TO c_counter.

CREATE OBJECT cref1.

DATA num TYPE i VALUE 5.

CALL METHOD cref1->set_counter

EXPORTING

set_value = number.

DO 3 TIMES.

CALL METHOD cfref1->increment_counter.

ENDDO.

CALL METHOD cref1->get_counter

IMPORTING

get_value = number.

WRITE number.

*********************************************************

The problem is with the underlined line of the code.

Regards,

Varun.

Re: ABAP OOPS

Former Member — Thu, 16 Feb 2006 15:58:08 GMT

Where have you defined NUMBER?

Anyway you have to insert the START-OF-SELECTION event

DATA cref1 TYPE REF TO c_counter.

DATA number TYPE i VALUE 5.

START-OF-SELECTION. <----

CREATE OBJECT cref1.

Max

Re: ABAP OOPS

RichHeilman — Thu, 16 Feb 2006 15:59:02 GMT

Its actually just a warning, but there are two ways to fix it. The first one is to insert the START-OF-SELECTION event .



*---- Data Statement

data cref1 type ref to c_counter.


<b>start-of-selection.</b>
  create object cref1.

  data number type i value 5.


  call method cref1->set_counter
  exporting
  set_value = number.

  do 3 times.
    call method cref1->increment_counter.
  enddo.

  call method cref1->get_counter
  importing
  get_value = number.

  write number.

The second is to put the implementation at the end of the program.





report zclass_demo.

*---------------------------------------------------------------------*
* CLASS C_COUNTER DEFINITION
*---------------------------------------------------------------------*
class c_counter definition.

  public section.
    methods: set_counter importing value(set_value) type i,
    increment_counter,
    get_counter exporting value(get_value) type i.

  private section.
    data count type i.

endclass. "C_COUNTER DEFINITION



*---- Data Statement

data cref1 type ref to c_counter.


create object cref1.

data number type i value 5.


call method cref1->set_counter
exporting
set_value = number.

do 3 times.
  call method cref1->increment_counter.
enddo.

call method cref1->get_counter
importing
get_value = number.

write number.



<b>*---------------------------------------------------------------------*
* CLASS C_COUNTER IMPLEMENTATION
*---------------------------------------------------------------------*
class c_counter implementation.

  method set_counter.
    count = set_value.
  endmethod. "SET_COUNTER

  method increment_counter.
    add 1 to count.
  endmethod. "INCREMENT_COUNTER

  method get_counter.
    get_value = count.
  endmethod. "GET_COUNTER

endclass. "C_COUNTER IMPLEMENTATION</b>

REgards,

Rich Heilman

Re: ABAP OOPS

Former Member — Thu, 16 Feb 2006 15:59:32 GMT

CREATE OBJECT cref1.

this should be after start-of-selection.

Re: ABAP OOPS

Former Member — Thu, 16 Feb 2006 15:59:43 GMT

Try the following statement before the offending line.

start-of-selection.

Re: ABAP OOPS

Former Member — Thu, 16 Feb 2006 16:00:01 GMT

Hi Varun,

Add this code "CLASS c_counter DEFINITION create public".

instaed of "CLASS c_counter DEFINITION " It should work.

Cheers

Ankur

Re: ABAP OOPS

Former Member — Thu, 16 Feb 2006 16:00:48 GMT

Hi Max,

Its defined under underlined code. I know I gave it wrong and I corrected it now. But it still gives me the same error.

Regards,

Varun.

Re: ABAP OOPS

RichHeilman — Thu, 16 Feb 2006 16:01:54 GMT

Varun, please see my above post.

Regards,

Rich Heilman

Re: ABAP OOPS

Former Member — Thu, 16 Feb 2006 16:03:19 GMT

please C my post

Re: ABAP OOPS

Former Member — Thu, 16 Feb 2006 16:03:52 GMT

the problem is

Report <name>

DATA cref1 TYPE REF TO c_counter.

Start-of-selection.

CREATE OBJECT cref1.

DATA num TYPE i VALUE 5.

CALL METHOD cref1->set_counter

EXPORTING

set_value = number.

DO 3 TIMES.

CALL METHOD cfref1->increment_counter.

ENDDO.

CALL METHOD cref1->get_counter

IMPORTING

get_value = number.

WRITE number.

then add the implementation at the end

the problem was the create object should be defined after the start of selection. that should the first line to be executed. that's why it gave the error statement not accessible

regards

kishore

reward if helpful

Message was edited by: Harikishore Sreenivasulu