************************************************************************

* 本程序实现的功能是读取结构的字段名。

************************************************************************

REPORT ZREAD_STRUCT_FLDNAME.

TYPES:

BEGIN OF TYP_DEPT,

ID(10) TYPE N,

NAME(10) TYPE C,

END OF TYP_DEPT.

DATA:

WA_DEPT TYPE TYP_DEPT,

DESCR_REF TYPE REF TO CL_ABAP_STRUCTDESCR.

FIELD-SYMBOLS:

> TYPE ABAP_COMPDESCR.

************************************************************************

* START-OF-SELECTION

************************************************************************

START-OF-SELECTION.

DESCR_REF ?= CL_ABAP_TYPEDESCR=>DESCRIBE_BY_DATA( WA_DEPT ).

LOOP AT DESCR_REF->COMPONENTS ASSIGNING .

WRITE: / -NAME.

ENDLOOP.