获得内表结构信息

我写了一段代码：

TYPE-POOLS: abap.
TABLES: sflight.
TYPES: BEGIN OF ty_sflight,
      carrid TYPE s_carrid,
      connid TYPE s_conn_id,
      fldate TYPE sy-datum,
      price TYPE s_price,
      END OF ty_sflight.
DATA: gt_sflight TYPE STANDARD TABLE OF ty_sflight.
data: gs_sflight type ty_sflight.
DATA: go_strucdes TYPE REF TO cl_abap_structdescr.
DATA: gt_components TYPE abap_compdescr_tab WITH HEADER LINE.
START-OF-SELECTION.
  SELECT carrid
         connid
         fldate
         price
    INTO CORRESPONDING FIELDS OF TABLE gt_sflight
    UP TO 10 ROWS
    FROM sflight.

  go_strucdes ?= cl_abap_typedescr=>describe_by_data( gs_sflight ).
  gt_components[] = go_strucdes->components[].
  LOOP AT gt_components.
    WRITE:/ gt_components-name,
            gt_components-type_kind,
            gt_components-length.
  ENDLOOP.  

 

如下几点要说明一下：

1.这里是调用describe_by_data方法获取内表信息，传入的是一个structure并非内表本身。

2.我们可以通过describe_by_name方法获取abap dictionary的表结构信息，传入一个表名或者structure名。

3.对于前两点，获取的长度和本身会不一致，这是unicode的原因，办法是在其基础上除以2。