ABAP动态内表使用的例子

1、关键技巧:1， 创建动态内表：a, 动态内表的结构的定义.动态内表表结构的定义必须使用表结构与 table type: lvc_t_fcat一样的内表.一般情况下，我们都内表的所有列定义成字符型.b, 根据表结构生成内表.系统提供了一个标准的method来产生动态表，使用方法如下:2， 动态内表的赋值：a, 获取指定的字段b, 给指定的字段赋值3， 读取动态内表的值：a, 获取指定的字段b, 读取指定的字段值REPORT  zdyn_test.FIELD-SYMBOLS: <dyn_table> TYPE STANDARD

2、 TABLE,               <dyn_wa>,               <dyn_field>.DATA: dy_table TYPE REF TO data,   

3、   dy_line  TYPE REF TO data,      it_structure TYPE lvc_t_fcat,      wa_structure TYPE lvc_s_fcat.START-OF-SELECTION.  PERFORM create_structure.  "&#

4、160;定义内表的结构  PERFORM create_dynamic_table.  " 按照定义的内表结构，产生一个内表  PERFORM write_data_to_dyntable.  " 向动态内表中写数  PERFORM output_dyntable_data.   " 从动态内表中取数，并写到屏幕*&-*&   &#

5、160;  Form  create_structure*&-*FORM create_structure .  wa_structure-fieldname = 'COL1'.  " 第一列列名  wa_structure-col_pos   = 1.       " 表示第一列&#

6、160;- 可心省略，默认情况下，第一行对应到生产内表的第一列，如果指定，则按指定的列顺序生成内表  wa_structure-inttype = 'C'.       " 数据类型  wa_structure-intlen = 6.          " 长度  

7、;APPEND wa_structure TO it_structure.  wa_structure-fieldname = 'COL2'.  " 第二列列名  wa_structure-col_pos   = 2.       " 表示第二列- 可心省略，默认情况下，第一行对应到生产内表的第一列，如果指定，则

8、按指定的列顺序生成内表  wa_structure-inttype = 'C'.       " 数据类型  wa_structure-intlen = 6.          " 长度  APPEND wa_structure TO it_s

9、tructure.  wa_structure-fieldname = 'COL3'.  " 第三列名  wa_structure-col_pos   = 3.       " 表示第三列 - 可心省略，默认情况下，第一行对应到生产内表的第一列，如果指定，则按指定的列顺序生成内表  wa_structure-in

10、ttype = 'C'.       " 数据类型  wa_structure-intlen = 6.          " 长度  APPEND wa_structure TO it_structure.ENDFORM.   

11、60;                " create_structure*&-*&      Form  create_dynamic_table*&-*FORM create_dynamic_table .  CALL METHOD cl_alv_ta

12、ble_create=>create_dynamic_table    EXPORTING      it_fieldcatalog = it_structure    IMPORTING      ep_table        = dy_table.  ASS

13、IGN dy_table->* TO <dyn_table>.    " 用表类型指针 <dyn_table> 指向 数据对象的内容.ENDFORM.                    " create_dynamic_tab

14、le*&-*&      Form  write_data_to_dyntable*&-*FORM write_data_to_dyntable .  DATA:wa_new_line TYPE REF TO data.  DATA:i TYPE n.  DATA:j TYPE n.  CREATE DA

15、TA wa_new_line LIKE LINE OF <dyn_table>.  " 建立一个与动态内表结构相同的数据对象，且数据对象为是一个结构  ASSIGN wa_new_line->* TO <dyn_wa>.  " 用<dyn_wa>指针指向该结构  DO 3 TIMES.    i&

16、#160;= i + 1.    CLEAR j.    LOOP AT it_structure INTO wa_structure.      j = j + 1.      ASSIGN COMPONENT wa_structure-fieldname&

17、#160;OF STRUCTURE <dyn_wa> TO <dyn_field>.  " 用指针 <dyn_field>指向工作区<dyn_wa>中的一个字段，字段名为wa_structure-fieldname.      CONCATENATE i j INTO <dyn_field>.    

18、0;                                         " 给指针指向的字段赋值    ENDLOO

19、P.    APPEND <dyn_wa> TO <dyn_table>.  ENDDO.ENDFORM.                    " write_data_to_dyntable*&-*&    

20、;  Form  output_dyntable_data*&-*FORM output_dyntable_data .  LOOP AT it_structure INTO wa_structure.    WRITE: wa_structure-fieldname(5).  ENDLOOP.  LOOP AT <dyn_table> INTO <dyn_wa>