Directly change an objects variable

[Former Member]

Hi everyone,

I'm a bit rusty with my ABAP, and I was hoping you could help.

I have my object called 'value', which has many classes in it, and each of these classes have variables. My question is, how do I directly access those variables through the object, without calling a utility? I want to set VAR A to something, how would I do that?

The hierarchy goes:

OBJECT value

CL_1

VAR A

VAR B

.....

CL_2

VAR A

VAR B

.....

How do I directly change these variables?

Thanks in advance!

[Former Member]

Hi

Check with below sample code

REPORT ysubdel .

INTERFACE i1 .

DATA : inum TYPE i .

DATA : cnum TYPE i .

ENDINTERFACE. "i1

CLASS c1 DEFINITION .

PUBLIC SECTION.

INTERFACES : i1 DATA VALUES inum = 5 cnum = 6 .

ENDCLASS. "c1 DEFINITION

CLASS c1 IMPLEMENTATION.

ENDCLASS. "c1 IMPLEMENTATION

START-OF-SELECTION.

DATA : oref TYPE REF TO c1 .

CREATE OBJECT : oref.

WRITE:/5 'Values from class',oref->i1~inum ,

oref->i1~cnum .

oref->i1~inum = '7'.

oref->i1~cnum = '8'.

WRITE:/5 'Values after changing',oref->i1~inum ,

oref->i1~cnum .

oref->i1~inum = '7'.

oref->i1~cnum = '8'.

Regards

Srilaxmi