oops code

[Former Member]

Hi all,

I need to write a small program where i m exporting some value and importing some value and want to

concatenate it and get the return value.

can anyone help me wht to do?

i have tried it even i m below giving my code.

please help me.

<code>

REPORT z_demo_ops.

----

---

• CLASS zdemo DEFINITION

----

---

*

----

---

CLASS zdemo DEFINITION .

PUBLIC SECTION.

CLASS-DATA a1(10) TYPE c VALUE 'Static'.

DATA a2(10) TYPE c VALUE 'Instance'.

ENDCLASS. "zdemo DEFINITION

----

---

• CLASS zdemo1 DEFINITION

----

---

*

----

---

CLASS zdemo2 DEFINITION.

PUBLIC SECTION.

DATA p3(30) TYPE c VALUE 'satya'.

DATA p4 LIKE p3.

METHODS:

change

IMPORTING p1 TYPE c

EXPORTING p2 LIKE p3.

ENDCLASS. "zdemo2 DEFINITION

DATA :cref TYPE REF TO zdemo.

DATA :ppr TYPE REF TO zdemo2.

DATA :ppr1 TYPE REF TO zdemo2.

CREATE OBJECT cref

TYPE

zdemo.

CREATE OBJECT ppr

TYPE

zdemo2.

CREATE OBJECT ppr1

TYPE

zdemo2.

*WRITE cref->a2.

CALL METHOD ppr1->change.

(

EXPORTING

p1 = 'satya'

IMPORTING p3 = p4

).

).

WRITE ppr->p4.

*WRITE ppr->p4.

----

---

• CLASS zdemo IMPLEMENTATION

----

---

*

----

---

CLASS zdemo2 IMPLEMENTATION.

METHOD change.

• data: p2(50) type c.

CONCATENATE p1 'wordk for xyz' INTO p4.

*return .

ENDMETHOD. "change

ENDCLASS. "zdemo IMPLEMENTATION

</code>

regards,

satya

[RichHeilman]

See the modified code.

*----------------------------------------------------------------------*
*       CLASS zdemo DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS zdemo DEFINITION .
  PUBLIC SECTION.
    CLASS-DATA a1(10) TYPE c VALUE 'Static'.
    DATA a2(10) TYPE c VALUE 'Instance'.
ENDCLASS. "zdemo DEFINITION


*----------------------------------------------------------------------*
*       CLASS zdemo2 DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS zdemo2 DEFINITION.
  PUBLIC SECTION.
    DATA p3(30) TYPE c VALUE 'satya'.
    DATA p4 LIKE p3.
    METHODS:
    change
    IMPORTING p1 TYPE c.
*    EXPORTING p2 LIKE p3.    "<-- don't need this
ENDCLASS. "zdemo2 DEFINITION


DATA :cref TYPE REF TO zdemo.
DATA :ppr1 TYPE REF TO zdemo2.

CREATE OBJECT cref TYPE zdemo.

CREATE OBJECT ppr1 TYPE zdemo2.

CALL METHOD ppr1->change(
EXPORTING p1 = 'satya' ).
*IMPORTING p3 = p4 ).   "<-- Don't need this.

WRITE ppr1->p4.    "<-- change from PPR to PPR1

*----------------------------------------------------------------------*
*       CLASS zdemo2 IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS zdemo2 IMPLEMENTATION.
  METHOD change.
    CONCATENATE p1 'wordk for xyz' INTO p4.
  ENDMETHOD. "change
ENDCLASS. "zdemo IMPLEMENTATION

Regards,

Rich Heilman