读取内表的字段名

一个可以读取内表的字段名的程序。[@more@]

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

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

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

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.

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/8214011/viewspace-910889/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/8214011/viewspace-910889/