Objekte in interner Tabelle suchen / speichern

[Maja967]

Hallo,

mir fehlt noch etwas das Grundverständniss für das Speichern von Objekten in einer Tabelle, unter Beispielccode wie ich einen Objekt-Manager erstellenwürde ... -> dh ein Tabelle beinhaltet alle erzeugen Objekte einer Klasse bzw deren Referenzen. diese Tabelle wird einmalig aufgebaut und READ-Only im Programm verwendet .. vermutlich kommen da so 100.000 Objekte des gleichen Typs rein.

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1. CLASS my_class DEFINITION.
2.   PUBLIC SECTION.
3.   DATA: id      type i,
4.         val     type i,
5.         knz     type c.
6.  
7. METHODS constructor IMPORTING p1 TYPE any
8.                               p2 type any
9.                               p3 type any.
10.  
11. ENDCLASS.
12.  
13.  CLASS my_class IMPLEMENTATION.
14.   METHOD constructor.
15.  
16.  
17.      me->id  = p1.
18.      me->val = p2.
19.      me->knz = p3.
20.  
21.   ENDMETHOD.
22.  
23.  
24. ENDCLASS.
25.  
26. data rf_1 type REF TO my_class.
27. data rf_2 type REF TO my_class.
28. data rf_3 type REF TO my_class.
29. data it_test type HASHED TABLE OF REF TO my_class with UNIQUE key table_line.
30. data ab_test like LINE OF it_test.
31.  
32.    create OBJECT rf_1  exporting p1 = 1  p2 = 2  p3 = 'A' .
33.    create OBJECT rf_2  exporting p1 = 1  p2 = 2  p3 = 'A' .
34.    create OBJECT rf_3  exporting p1 = 10 p2 = 10 p3 = 'B' .
35.                       .
36.   insert rf_1 into table it_test.
37.   insert rf_2 into table it_test.
38.   insert rf_3 into table it_test.
39.  
40. *(1)
41.   LOOP AT it_test into ab_test.
42.     write: ab_test->id , ab_test->knz. NEW-LINE.
43.   ENDLOOP.
44.   write 'ENDE1'. NEW-LINE.
45.  
46. * (2)
47.   LOOP AT it_test into ab_test where TABLE_LINE->knz = 'A'.
48.     write: ab_test->id , ab_test->knz. NEW-LINE.
49.   ENDLOOP.
50.   write 'ENDE2'. NEW-LINE.
51.  
52. * (3)
53.   LOOP AT it_test into ab_test where TABLE_LINE->knz = 'A' and
54.                                      TABLE_LINE->id  = 2.
55.     write: ab_test->id , ab_test->knz. NEW-LINE.
56.   ENDLOOP.
57.   write 'ENDE3'. NEW-LINE.
58.  
59.  
60. * ----------------------------------------------
61. *  das ganze mal als sorted table ....
62. * ----------------------------------------------
63. data it_test_sorted type SORTED TABLE OF ref to my_class with UNIQUE key table_line.
64. FIELD-SYMBOLS <fs_sorted> like LINE OF it_test_sorted.
65.  
66.   insert rf_1 into table it_test_sorted.
67.   insert rf_2 into table it_test_sorted.
68.   insert rf_3 into table it_test_sorted.
69.  
70.   NEW-LINE.
71.   uline.
72.   write: 'SORTED'. NEW-LINE.
73.   uline.
74.  
75.  
76.   LOOP AT it_test_sorted ASSIGNING <fs_sorted> where TABLE_LINE->knz = 'A'.
77.         write: ab_test->id , ab_test->knz. NEW-LINE.
78.   ENDLOOP.

GeSHi ©

kann man das so machen ????

Ich habe mal aus Performance Sicht die folgende Vermutung
die sortierte Tabelle ist für den A. da ja lediglich die Referenzen sortiert sind, das bringt jedoch keinen Vorteil für die Objektsuche via Attribute -> ergo sollte die interne Tabelle wohl immer als "Hashed Table" typisiert sein oder ?

habt Ihr vielleicht noch ein paar Erfahrungswerte mit dem Speichern von Objekten in Internen Tabellen ?

thx

[ewx]

Interessante Fragestellung!
Du brauchst doch aber dein Programm nur noch dahingehend zu erweitern, dass der CONSTRUCTOR seine Attribute selbst setzt (abwechselnd A, B und C z.B.) und dann erzeugst du mal 100.000 Referenzen und machst danach einen LOOP WHERE ->attribut = 'A'.
Das ganze für jede Tabellenart und dann ab in die SE30 damit...
Ergebnisse hier -> . <- bitte posten!!