Codebeispiel Beschreibung einer Struktur

From Sapwiki

Metadaten, z. B. Feldnamen, einer Struktur ermitteln.

Code

*
* Dictionarynamen einer Struktur ermitteln
*
REPORT Z_STRUKTUR_METADATA.

DATA: bapiad3vl LIKE bapiad3vl OCCURS 0 WITH HEADER LINE,
wa_bapiad3vl LIKE LINE OF bapiad3vl.

DATA: descr_ref TYPE REF TO cl_abap_structdescr.

FIELD-SYMBOLS:
<comp_wa> TYPE abap_compdescr.

descr_ref ?= cl_abap_typedescr=>describe_by_data( wa_bapiad3vl ).

WRITE: / 'Typename :', descr_ref->absolute_name.
WRITE: / 'Kind :', descr_ref->type_kind.
WRITE: / 'Length :', descr_ref->length.
WRITE: / 'Decimals :', descr_ref->decimals.
WRITE: / 'Struct Kind :', descr_ref->struct_kind.
WRITE: / 'Components'.
WRITE: / 'Name Kind Length Decimals'.
LOOP AT descr_ref->components ASSIGNING <comp_wa>.
  WRITE: / <comp_wa>-name, <comp_wa>-type_kind,
  <comp_wa>-length, <comp_wa>-decimals.
ENDLOOP.

[bearbeiten]