topic Re: doubt in ABAP OOP in Application Development and Automation Discussions

doubt in ABAP OOP

Former Member — Fri, 06 Jul 2007 06:45:43 GMT

CLASS SAMPLE DEFINITION.

PUBLIC SECTION.

DATA : PU_A TYPE I.

METHODS : CONSTRUCTOR,MM1,MM2.

PRIVATE SECTION.

DATA : PR_B TYPE I.

ENDCLASS.

CLASS SAMPLE IMPLEMENTATION.

METHOD CONSTRUCTOR.

ENDMETHOD.

METHOD MM1.

ENDMETHOD.

METHOD MM2.

ENDMETHOD.

ENDCLASS.

DATA : OBJ_SAMPLE TYPE REF TO SAMPLE.

CREATE OBJECT OBJ_SAMPLE.

In CREATE OBJECT OBJ_SAMPLE its giving err msg that statement could not be accessible.why id it so?.plz help

Re: doubt in ABAP OOP

Former Member — Fri, 06 Jul 2007 06:46:58 GMT

give start-of-selection before data object declaration and try

like this

Start-of-selection.

DATA : OBJ_SAMPLE TYPE REF TO SAMPLE.

CREATE OBJECT OBJ_SAMPLE.

Re: doubt in ABAP OOP

Former Member — Fri, 06 Jul 2007 06:48:43 GMT

is start-of-selection compulsory? but start-of-selection is not compulsary no?

Re: doubt in ABAP OOP

Former Member — Fri, 06 Jul 2007 06:49:49 GMT

CLASS SAMPLE DEFINITION.

PUBLIC SECTION.

DATA : PU_A TYPE I.

METHODS : CONSTRUCTOR,MM1,MM2.

PRIVATE SECTION.

DATA : PR_B TYPE I.

ENDCLASS.

CLASS SAMPLE IMPLEMENTATION.

METHOD CONSTRUCTOR.

ENDMETHOD.

METHOD MM1.

ENDMETHOD.

METHOD MM2.

ENDMETHOD.

ENDCLASS.

DATA : OBJ_SAMPLE TYPE REF TO SAMPLE.

start-of-selection.

CREATE OBJECT OBJ_SAMPLE .

Write START-OF-SELECTION before that line.

Regards,

Pavan P.

Re: doubt in ABAP OOP

Former Member — Fri, 06 Jul 2007 06:50:44 GMT

if it has a selection sceen then an event is necessary...

try and see if it solves the problem

PLEASE REWARD POINTS IF IT SOLVED THE PROBLEM

Re: doubt in ABAP OOP

Former Member — Fri, 06 Jul 2007 06:51:51 GMT

START-OF-SELECTION is compulsory as we are creating object.

Regards,

Pavan P.

Re: doubt in ABAP OOP

Former Member — Fri, 06 Jul 2007 06:52:33 GMT

Hi,

Object creation should be done under start-of-selection.

example

data obj1 type ref to <classname>.

start-of-selection.

create object obj1.

reward if useful

Regards,

Prajith

Re: doubt in ABAP OOP

Former Member — Fri, 06 Jul 2007 06:52:59 GMT

no it doesnot have a selection screen. Is the event start-of-selection compulsory?

Re: doubt in ABAP OOP

Former Member — Fri, 06 Jul 2007 06:53:37 GMT

copy paste my code and check. its very simple one that ur are looking for.



REPORT  zaaclc_report.

*----------------------------------------------------------------------*
*       CLASS lcl_test_class DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_test_class DEFINITION.
  PUBLIC SECTION.
    METHODS increment_counter.
    EVENTS break_statement EXPORTING value(count) TYPE i.

  PRIVATE SECTION.
    DATA: num TYPE i,
          max TYPE i VALUE 5.
ENDCLASS.                    "lcl_test_class DEFINITION



*----------------------------------------------------------------------*
*       CLASS lcl_test_class IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_test_class IMPLEMENTATION.
  METHOD increment_counter.
    num = num + 1.

    IF num EQ max.
      RAISE EVENT break_statement  EXPORTING count = num.
    ENDIF.

    WRITE:/ num .
  ENDMETHOD.                    "increment_counter
ENDCLASS.                    "lcl_test_class IMPLEMENTATION

*----------------------------------------------------------------------*
*       CLASS event_receiver DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS event_receiver DEFINITION.

  PUBLIC SECTION.
    METHODS handler FOR EVENT break_statement OF lcl_test_class  IMPORTING count.

    endclass.

*----------------------------------------------------------------------*
*       CLASS event_receiver IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS event_receiver IMPLEMENTATION.
  METHOD handler.
*    count = count + 10.
    WRITE :/ count.
    WRITE :/ 'Event Raised'.
    endmethod.
ENDCLASS.                    "event_receiver IMPLEMENTATION


DATA:obj TYPE REF TO lcl_test_class,
     rec TYPE REF TO event_receiver.

START-OF-SELECTION.
CREATE OBJECT: obj,rec.

set handler rec->handler for obj." for all instances.

  DO 10 TIMES.
    CALL METHOD obj->increment_counter.

  ENDDO.

hope it clears ur doubt

regards

ravish

plz dont forget to reward points if helpful

Message was edited by:

ravish goyal

Re: doubt in ABAP OOP

Former Member — Fri, 06 Jul 2007 06:54:21 GMT

thank u

Re: doubt in ABAP OOP

Former Member — Fri, 06 Jul 2007 06:54:33 GMT

thank u