oops code

Former Member — Mon, 04 Aug 2008 14:48:58 GMT

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

Re: oops code

RichHeilman — Mon, 04 Aug 2008 14:59:15 GMT

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

topic Re: oops code in Application Development and Automation Discussions

oops code

Re: oops code