‎2008 Jul 24 9:41 PM
The error is
STATEMENT IS NOT ACCESSIBLE
in the line with CREATE OBJECT
Someone can tell me why ???
Thanks you...
CLASS pablo DEFINITION.
PUBLIC SECTION.
METHODS: get_cont EXPORTING value(val) TYPE i,
inc_cont,
set_cont IMPORTING value(val) TYPE i.
PRIVATE SECTION.
DATA: cont TYPE i.
ENDCLASS. "pablo
----
CLASS cont IMPLEMENTATION
----
*
----
CLASS pablo IMPLEMENTATION.
METHOD get_cont.
val = cont.
ENDMETHOD. "get_cont
METHOD inc_cont.
ADD 1 TO cont.
ENDMETHOD. "inc_cont
METHOD set_cont.
cont = val.
ENDMETHOD. "set_cont
ENDCLASS. "pablo IMPLEMENTATION
break abap.
DATA: obj TYPE REF TO pablo.
DATA: i TYPE i VALUE 0.
CREATE OBJECT obj.
CALL METHOD obj->set_cont
EXPORTING
val = i.
DO 5 TIMES.
CALL METHOD obj->inc_cont.
ENDDO.
CALL METHOD obj->get_cont
IMPORTING
i = val.
WRITE /i.
‎2008 Jul 24 9:45 PM
Include the line start-of-selection.
START-OF-SELECTION.
CREATE OBJECT obj.
CALL METHOD obj->set_cont
EXPORTING
val = i.
DO 5 TIMES.
CALL METHOD obj->inc_cont.
ENDDO.
CALL METHOD obj->get_cont
IMPORTING
i = val.
WRITE /i.
‎2008 Jul 24 9:45 PM
Include the line start-of-selection.
START-OF-SELECTION.
CREATE OBJECT obj.
CALL METHOD obj->set_cont
EXPORTING
val = i.
DO 5 TIMES.
CALL METHOD obj->inc_cont.
ENDDO.
CALL METHOD obj->get_cont
IMPORTING
i = val.
WRITE /i.
‎2008 Jul 24 10:15 PM