动态ABAP内表

REPORT  ZLEIY_ABAP_TEST .
FIELD-SYMBOLS : <dyn_table>  TYPE  STANDARD  TABLE ,
               <dyn_wa> ,
               <dyn_field> .

DATA : dy_table  TYPE  REF  TO  data ,
      dy_line   TYPE  REF  TO  data ,
      it_structure  TYPE lvc_t_fcat ,
      wa_structure  TYPE lvc_s_fcat .


START-OF-SELECTION .
   PERFORM create_structure .   " 定义内表的结构

   PERFORM create_dynamic_table .   " 按照定义的内表结构，产生一个内表

   PERFORM write_data_to_dyntable .   " 向动态内表中写数

   PERFORM output_dyntable_data .    " 从动态内表中取数，并写到屏幕

*&---------------------------------------------------------------------*
*&      Form  create_structure
*&---------------------------------------------------------------------*
FORM create_structure  .
  wa_structure -fieldname  =  'COL1' .   " 第一列列名
  wa_structure -col_pos    =  1 .        " 表示第一列 --- 可心省略，默认情况下，第一行对应到生产内表的第一列，如果指定，则按指定的列顺序生成内表
  wa_structure -inttype  =  'C' .        " 数据类型
  wa_structure -intlen  =  6 .           " 长度
   APPEND wa_structure  TO it_structure .

  wa_structure -fieldname  =  'COL2' .   " 第二列列名
  wa_structure -col_pos    =  2 .        " 表示第二列--- 可心省略，默认情况下，第一行对应到生产内表的第一列，如果指定，则按指定的列顺序生成内表
  wa_structure -inttype  =  'C' .        " 数据类型
  wa_structure -intlen  =  6 .           " 长度
   APPEND wa_structure  TO it_structure .

  wa_structure -fieldname  =  'COL3' .   " 第三列名
  wa_structure -col_pos    =  3 .        " 表示第三列 --- 可心省略，默认情况下，第一行对应到生产内表的第一列，如果指定，则按指定的列顺序生成内表
  wa_structure -inttype  =  'C' .        " 数据类型
  wa_structure -intlen  =  6 .           " 长度
   APPEND wa_structure  TO it_structure .

ENDFORM.                    " create_structure

注：创建完的IT_STRUCTURE是这样的

WA_STRUCTURE是这样的

*&---------------------------------------------------------------------*
*&      Form  create_dynamic_table
*&---------------------------------------------------------------------*
FORM create_dynamic_table  .

   CALL  METHOD cl_alv_table_create =>create_dynamic_table
     EXPORTING
      it_fieldcatalog  = it_structure
     IMPORTING
      ep_table         = dy_table .

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

注意：创建了一个内表
*&---------------------------------------------------------------------*
*&      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  DATA wa_new_line  LIKE  LINE  OF <dyn_table> .   " 建立一个与动态内表结构相同的数据对象，且数据对象为是一个结构
   ASSIGN wa_new_line ->*  TO <dyn_wa> .

   " 用<dyn_wa>指针指向该结构
   DO  3  TIMES .
     i  =  i +  1 .
     CLEAR j .
     LOOP  AT it_structure  INTO wa_structure .
      j  = j +  1 .
       ASSIGN  COMPONENT wa_structure -fieldname  OF  STRUCTURE <dyn_wa>  TO <dyn_field> .   " 用指针 <dyn_field>指向工作区<dyn_wa>中的一个字段，字段名为wa_structure-fieldname.
       CONCATENATE  i j  INTO <dyn_field> .                                               " 给指针指向的字段赋值
     ENDLOOP .
     APPEND <dyn_wa>  TO <dyn_table> .
   ENDDO .
ENDFORM .                     " write_data_to_dyntable

注：填充数据到内表

*&---------------------------------------------------------------------*
*&      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> .
     WRITE : /  .
     LOOP  AT it_structure  INTO wa_structure .
       ASSIGN  COMPONENT wa_structure -fieldname  OF  STRUCTURE <dyn_wa>  TO <dyn_field> .   " 用指针 <dyn_field>指向工作区<dyn_wa>中的一个字段，字段名为wa_structure-fieldname.
       WRITE : <dyn_field> .
     ENDLOOP .
   ENDLOOP .

ENDFORM.

参考

http://www.cnblogs.com/VerySky/articles/2514436.html，都能产生类似的效果，其中REPORT ZCL_TEST028 最为简单