Auflösen von ?Absolute Typnamen?

Hallo frank_dengler,

ohne es ausprobiert zu haben, sollte es mit CL_ABAP_STRUCT=>DESCRIBE_BY_NAME( tabledescr->absolute_type ) möglich sein, die Beschreibung der Struktur deiner Tabelle zu erhalten.
Ob man dabei auch die Namen der Felder bekommt, hängt wohl von SAP-Release ab.

Hallo BlackMail,

danke für deine Antwort.

Folgendes zu deinen Fragen:
Das Feld/Variable für den ich den Typ ermittel will, wird momentan nicht dynamisch, sondern normal mit DATA erzeugt. Der Type kann sowohl aus dem DDIC stammen oder aber im Programm mittels TYPE definiert werden.

Ich benötige, wenns den geht, eine allgemeingültige Lösung, mit der ich den Type dieses Feldes ermittel kann.

Für den Fall das es sich bei der Variablen um eine interne Tabelle handelt habe ich eine eingeschränkte Lösung (siehe unten) für die Fälle 1 und 2 geht?s aber nicht für Fall 3.

Bevor ich es wieder vergesse ? ich arbeite mit dem Release 4.6C.

REPORT y_find_typ .

TYPES: my_tabletype_1 TYPE TABLE OF vbrk,
begin of my_structtype_1,
field1 type c,
field2 type i,
end of my_structtype_1.

DATA: my_tabledata_1 TYPE my_tabletype_1,
my_tabledata_2 type table of my_structtype_1,
my_tabledata_3 type table of c.

DATA: oref_abap_typedescr TYPE REF TO cl_abap_typedescr.
DATA: oref_abap_tabledescr TYPE REF TO cl_abap_tabledescr.

START-OF-SELECTION.

* Fall 1
* So hätte ich es gerne
oref_abap_typedescr =
cl_abap_typedescr=>describe_by_data( my_tabledata_1 ).

WRITE: / 'ABSOLUTE_NAME :', oref_abap_typedescr->absolute_name.

oref_abap_tabledescr ?= oref_abap_typedescr.

CALL METHOD oref_abap_tabledescr->get_table_line_type
RECEIVING
p_descr_ref = oref_abap_typedescr.

WRITE: / 'Type :', oref_abap_typedescr->absolute_name.

* Fall 2
* Das geht auch noch
oref_abap_typedescr =
cl_abap_typedescr=>describe_by_data( my_tabledata_2 ).

WRITE: / 'ABSOLUTE_NAME :', oref_abap_typedescr->absolute_name.

oref_abap_tabledescr ?= oref_abap_typedescr.

CALL METHOD oref_abap_tabledescr->get_table_line_type
RECEIVING
p_descr_ref = oref_abap_typedescr.

WRITE: / 'Type :', oref_abap_typedescr->absolute_name.

* Fall 3
* Hier habe ich ein Problem mit der Angabe \TYPE=%_TYPE0000000279
* kann ich nichts anfangen.
* Ich hätte gerne so was wie \TYPE=C
oref_abap_typedescr =
cl_abap_typedescr=>describe_by_data( my_tabledata_3 ).

WRITE: / 'ABSOLUTE_NAME :', oref_abap_typedescr->absolute_name.

oref_abap_tabledescr ?= oref_abap_typedescr.

CALL METHOD oref_abap_tabledescr->get_table_line_type
RECEIVING
p_descr_ref = oref_abap_typedescr.

WRITE: / 'Type :', oref_abap_typedescr->absolute_name.


Gruß
Frank

frank_dengler hat geschrieben:* Ich hätte gerne so was wie \TYPE=C

Diese Information bekommst Du doch über das Attribut TYPE_KIND der Klasse cl_abap_typedesc in Zusammenhang mit LENGTH und ggf. DECIMALS. Dieses müsstest du mit den Konstanten wie TYPEKIND_CHAR vergleichen.

xxxx hat geschrieben:DESCRIBE FIELD my_tabledata_3 INTO TD.

Ich würde diese Variante vermeiden, da sie ja nur intern verwendet werden soll. Im Detail habe ich es mir nicht angeguckt, aber es scheint, als würden die RTTI-Klassen auch die gleichen Infos liefern.

Gruß BlackMail.

frank_dengler hat geschrieben: leider klappt das nicht so, im Fall 3 liefert mir das Attribut TYPE_KIND den Wert 'h',

Dann hast Du aber im 3. Fall den TYPE_KIND von "oref_abap_tabledescr" und nicht von "oref_abap_typedescr" abgefragt.
Wenn Du vor der letzten WRITE-Anweisung TYPE_KIND abfragst erhältst Du TYPE_KIND = 'C'.

Natürlich kann es sein, dass der Zeilentyp kein einfacher Datentyp ist sondern wieder eine Struktur. In dem Fall musst Du von der Struktur zu den Komponenten navigieren (cl_abap_structdescr : get_components). Die Tabelle enthält für alle Komponenten eine Referenz auf cl_abap_datadescr).

Gruß BlackMail.