************************************************************************
* 本程序实现的功能是读取结构的字段名。
************************************************************************
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:
************************************************************************
* START-OF-SELECTION
************************************************************************
START-OF-SELECTION.
DESCR_REF ?= CL_ABAP_TYPEDESCR=>DESCRIBE_BY_DATA( WA_DEPT ).
LOOP AT DESCR_REF->COMPONENTS ASSIGNING
WRITE: /
ENDLOOP.
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/8214011/viewspace-910889/ ，如需转载，请注明出处，否则将追究法律责任。
