reg. object in an internal table,

[Former Member]

data : begin of itab occurs 0,

var1 LIKE sy-index,

var2(20),

obj TYPE REF TO zclass,

END OF itab.

Zclass has a public attribute, A.

what't the way for filling & reading this type of itab, I want to put just 4 records in this itab.

For any clarification please reply.!

[Former Member]

data : begin of itab occurs 0,

var1 LIKE sy-index,

var2(20),

obj TYPE REF TO zclass,

END OF itab.

Zclass has a public attribute, A.

what't the way for filling & reading this type of itab, I want to put just 4 records in this itab.

For any clarification please reply.!

[Former Member]

Hi,

do like this.

data : begin of itab occurs 0,
var1 LIKE sy-index,
var2(20),
obj TYPE REF TO zclass->A,
end of itab.

rgds,

bharat.

[Former Member]

following is the small code, it is error free, but the last loop stmt is showing 8 at every pass.

so whether we are refering to a class or attribute...i think approach will be same..i just want to fill unique data in A attribute of class.......

please help!

REPORT zrnd

NO STANDARD PAGE HEADING LINE-SIZE 255.

DATA : BEGIN OF itab OCCURS 0,

var1 LIKE sy-index,

var2(20),

obj TYPE REF TO zclass,

END OF itab.

START-OF-SELECTION.

itab-var1 = 1.

itab-var2 = 'pradeep'.

CREATE OBJECT itab-obj.

itab-obj->a = 6.

APPEND itab.

itab-var1 = 2.

itab-var2 = 'sandeep'.

itab-obj->a = 7.

APPEND itab.

itab-var1 = 3.

itab-var2 = 'tanu'.

itab-obj->a = 8.

APPEND itab.

LOOP AT itab.

WRITE : / itab-var1 , itab-var2 , itab-obj->a.

ENDLOOP.

[Former Member]

data : begin of itab occurs 0,

var1 LIKE sy-index,

var2(20),

obj TYPE REF TO zclass,

END OF itab.

To fill this table:

DATA wa LIKE LINE OF itab.

DATA ref TYPE REF TO zclass.

• Create an instance of a class

CREATE OBJECT ref.

• Operations of ref.

ref->A = '10'.

• Assign

wa-obj = ref.

• reading

LooP AT itab INTO wa.

• Class

ref = wa-obj.

ref->A.

ENDLOOP.

Regards

Wenceslaus

[Former Member]

Hi,

please have a look on this code....give me some comment on this...the last loop stmt...is showing 8 every time...but i m putting unique value in A....there is some tech. pbm.. in code..help me..?

REPORT zrnd

NO STANDARD PAGE HEADING LINE-SIZE 255.

DATA : BEGIN OF itab OCCURS 0,

var1 LIKE sy-index,

var2(20),

obj TYPE REF TO zclass,

END OF itab.

START-OF-SELECTION.

itab-var1 = 1.

itab-var2 = 'pradeep'.

CREATE OBJECT itab-obj.

itab-obj->a = 6.

APPEND itab.

itab-var1 = 2.

itab-var2 = 'sandeep'.

itab-obj->a = 7.

APPEND itab.

itab-var1 = 3.

itab-var2 = 'tanu'.

itab-obj->a = 8.

APPEND itab.

LOOP AT itab.

WRITE : / itab-var1 , itab-var2 , itab-obj->a.

ENDLOOP.

[Former Member]

Hi Pradeep,

Each time you may need to create an object for ZCLASS.

DATA : BEGIN OF itab OCCURS 0,
  var1 LIKE sy-index,
  var2(20),
  obj TYPE REF TO zclass,
  END OF itab.



START-OF-SELECTION.

  itab-var1 = 1.
  itab-var2 = 'pradeep'.
  *CREATE OBJECT itab-obj.*
  itab-obj->a = 6.
  APPEND itab.

  itab-var1 = 2.
  itab-var2 = 'sandeep'.
  *CREATE OBJECT itab-obj.*
  itab-obj->a = 7.
  APPEND itab.

  itab-var1 = 3.
  itab-var2 = 'tanu'.
  *CREATE OBJECT itab-obj.*
  itab-obj->a = 8.
  APPEND itab.


  LOOP AT itab.
    WRITE :  /  itab-var1 , itab-var2 , itab-obj->a.
  ENDLOOP.

Please reward helpful posts.

Regards

Wenceslaus

[Former Member]

Thanks buddy!