CL_ABAP_TYPEDESCR

zjut_xiongfeng

浏览: 285029 次
性别:
来自: 杭州

最近访客更多访客>>

ggggoo

Jafiv

149032105

depravedangel

博主相关

博客

微博

相册

留言

关于我

文章分类

社区版块

存档分类

.net Blog

有时候我们要在程序运行的时候取得某个内表或者某个结构它的属性或者它的字段的属性，可能通过类CL_ABAP_TYPEDESCR和它的子类取得指定内表的属性。类CL_ABAP_TYPEDESCR和它的子类的结构图 CL_ABAP_TYPEDESCR | |--CL_ABAP_DATADESCR | | | |--CL_ABAP_ELEMDESCR | |--CL_ABAP_REFDESCR | |--CL_ABAP_COMPLEXDESCR | | | |--CL_ABAP_STRUCTDESCR | |--CL_ABAP_TABLEDESCR | |--CL_ABAP_OBJECTDESCR | |--CL_ABAP_CLASSDESCR |--CL_ABAP_INTFDESCR 例子1： 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: <fs_dept> 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 <fs_dept>. WRITE: / <fs_dept>-NAME. ENDLOOP. 例子2： TYPES: my_table TYPE HASHED TABLE OF i WITH UNIQUE KEY TABLE LINE. DATA: descr_ref TYPE ref to cl_abap_tabledescr. FIELD-SYMBOLS: <key_comp_wa> TYPE abap_keydescr. START-OF-SELECTION. descr_ref ?= cl_abap_typedescr=>describe_by_name( 'MY_TABLE' ). WRITE: / 'Typename :', descr_ref->absolute_name. WRITE: / 'Kind :', descr_ref->type_kind. WRITE: / 'Length :', descr_ref->length. WRITE: / 'Decimals :', descr_ref->decimals. WRITE: / 'Table Kind :', descr_ref->table_kind. WRITE: / 'Initial Size :', descr_ref->initial_size. WRITE: / 'Key Def Kind :', descr_ref->key_defkind. WRITE: / 'Has Unique Key:', descr_ref->has_unique_key. WRITE: / 'Key Components:'. LOOP AT descr_ref->key ASSIGNING <key_comp_wa>. WRITE <key_comp_wa>-name. ENDLOOP. 本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/lhx20/archive/2008/10/23/3128295.aspx</key_comp_wa></key_comp_wa></key_comp_wa></fs_dept></fs_dept></fs_dept>

分享到：