ABAP 动态生成内表的3种方法(…

转自：http://www.cnblogs.com/VerySky/articles/2514436.html

在做动态更新程序的时候，要注意两点：

1.使用modify (p_tabname)
from 《dyn_wa》. 的时候，一定要确定要更新的字段是不是系统表的关键字段，如果是关键字段的话，需要先删除这条记录，delete
(p_tabname) from 《dyn_wa》.再进行modify,因为modify进行更新的时候如果不存在就新增，这点一定要注意。

 

2.如果使用UPDATE进行更新，对于非主键字段的改变还是可以的，但是对于主键字段，只能用MODIFY了。直接对SAP数据做UPDATE和MODIFY是很危险的，不到万不得已，最好不要做这些操作。如果万一出问题，会很严重的。这里就不用更新和删除程序作为测试程序了，直接做一个动态内表ALV显示的测试程序，道理和更新与删除差不多，希望对有这方面需求的朋友有所帮助！

【因为尖括号会被误解析，所以使用书名号做了替换】

附1：

REPORT ZCL_TEST026.

 

 

TYPE-POOLS:abap.

 

PARAMETERS p_name TYPE tabname.

 

DATA lt_table TYPE TABLE OF dfies.
"字段结构表

DATA ls_table TYPE dfies.

 

DATA lr_struc TYPE REF TO
cl_abap_structdescr.

DATA lr_table TYPE REF TO
cl_abap_tabledescr.

 

DATA lr_type TYPE REF TO
cl_abap_typedescr.

DATA lr_data  TYPE REF TO
cl_abap_datadescr.

 

DATA lt_comp TYPE 
abap_component_tab.

DATA ls_comp LIKE LINE OF 
lt_comp.

 

DATA dyn_wa TYPE REF TO data.

DATA dyn_table TYPE REF TO data.

 

DATA l_string TYPE string.

 

FIELD-SYMBOLS: 《dyn_table》 TYPE STANDARD TABLE,

                           《dyn_wa》 TYPE ANY.

 

*1.获取表中的字段结构

CALL FUNCTION 'DDIF_NAMETAB_GET'

  EXPORTING

   
tabname   = p_name

  TABLES

    dfies_tab =
lt_table

  EXCEPTIONS

    not_found =
1

   
OTHERS    =
2.

IF sy-subrc 《》 0.

  MESSAGE ID sy-msgid TYPE
sy-msgty NUMBER sy-msgno

         
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

 

 

LOOP AT lt_table INTO ls_table.

 

  CONCATENATE
ls_table-tabname '-' ls_table-fieldname INTO l_string.

 

  ls_comp-name =
ls_table-fieldname.

*读取字段类型

  CALL METHOD
cl_abap_datadescr=》describe_by_name

   
EXPORTING

     
p_name        
= l_string

   
RECEIVING

     
p_descr_ref    =
lr_type

   
EXCEPTIONS

     
type_not_found = 1

     
OTHERS        
= 2.

  IF sy-subrc 《》 0.

    MESSAGE ID
sy-msgid TYPE sy-msgty NUMBER sy-msgno

              
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

  ENDIF.

 

  ls_comp-type ?=
lr_type.

  APPEND ls_comp TO
lt_comp.

  CLEAR ls_comp.

ENDLOOP.

 

*根据字段目录创建动态结构类型

CALL METHOD cl_abap_structdescr=》create

  EXPORTING

    p_components
= lt_comp

  RECEIVING

   
p_result    
= lr_struc.

 

*根据动态结构创建动态内表类型

CALL METHOD cl_abap_tabledescr=》create

  EXPORTING

    p_line_type
= lr_struc

  RECEIVING

   
p_result    =
lr_table.

 

*参照动态结构类型和动态内表类型创建内表与工作区

CREATE DATA
dyn_wa    TYPE
HANDLE lr_struc.

CREATE DATA dyn_table TYPE HANDLE
lr_table.

 

*指定内表与工作区到字段符号

ASSIGN dyn_wa-》* TO 《dyn_wa》.

ASSIGN dyn_table-》* TO 《dyn_table》.

 

 

*从动态表中取数到动态内表中

  SELECT * INTO CORRESPONDING
FIELDS OF TABLE 《dyn_table》 UP TO 100

 

ROWS FROM (p_name).

 

*显示内表中的数据

  CALL FUNCTION
'REUSE_ALV_GRID_DISPLAY'

   
EXPORTING

     
i_structure_name = p_name

    TABLES

    
 t_outtab        
= 《dyn_table》

   
EXCEPTIONS

     
program_error   
= 1

     
OTHERS          
= 2.

  IF sy-subrc 《》 0.

    MESSAGE ID
sy-msgid TYPE sy-msgty NUMBER sy-msgno

           
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

  ENDIF.

 

附2：

 

REPORT ZCL_TEST027.

 

TYPE-POOLS:abap.

 

PARAMETERS p_name TYPE tabname.

 

DATA: d_ref TYPE REF TO data,

         
lt_alv_cat TYPE TABLE OF lvc_s_fcat,

         
ls_alv_cat LIKE LINE OF lt_alv_cat.

 

 

DATA: lt_table LIKE TABLE OF dntab.

DATA: ls_table TYPE dntab.

 

 

FIELD-SYMBOLS : 《dyn_table》 TYPE table,

                            《dyn_wa》 TYPE ANY,

                            《dyn_field》 TYPE ANY.

 

*取出表结构的字段目录

CALL FUNCTION 'NAMETAB_GET'

  EXPORTING

   
langu         
= sy-langu

   
tabname       
= p_name

  TABLES

   
nametab       
= lt_table

  EXCEPTIONS

   
no_texts_found = 1.

 

*根据取出的字段目录生成参考字段目录

LOOP AT lt_table INTO ls_table.

  ls_alv_cat-fieldname =
ls_table-fieldname.

  ls_alv_cat-ref_table =
p_name.

  ls_alv_cat-ref_field =
ls_table-fieldname.

  APPEND ls_alv_cat TO
lt_alv_cat.

  CLEAR ls_alv_cat.

ENDLOOP.

 

*内表创建

CALL METHOD cl_alv_table_create=》create_dynamic_table

  EXPORTING

   
it_fieldcatalog = lt_alv_cat

  IMPORTING

   
ep_table       
= d_ref.

 

*指定生成的内表到字段符号

ASSIGN d_ref-》* TO 《dyn_table》.

 

*从动态表中取数到动态内表中

  SELECT * INTO CORRESPONDING
FIELDS OF TABLE 《dyn_table》 UP TO 100

 

ROWS FROM (p_name).

 

*显示内表中的数据

  CALL FUNCTION
'REUSE_ALV_GRID_DISPLAY'

   
EXPORTING

     
i_structure_name = p_name

    TABLES

     
t_outtab        
= 《dyn_table》

   
EXCEPTIONS

     
program_error   
= 1

     
OTHERS          
= 2.

  IF sy-subrc 《》 0.

    MESSAGE ID
sy-msgid TYPE sy-msgty NUMBER sy-msgno

           
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

  ENDIF.

 

 

 

附3：

 

REPORT ZCL_TEST028.

 

 

 

PARAMETERS p_name TYPE tabname.

 

 

DATA: dyn_table TYPE REF TO data.

DATA: dyn_wa TYPE REF TO data.

 

 

FIELD-SYMBOLS: 《dyn_table》 TYPE table,

              《dyn_wa》 TYPE ANY.

 

 

*创建动态表结构

CREATE DATA dyn_table TYPE TABLE OF
(p_name).

 

*创建动态内表

ASSIGN dyn_table-》* TO 《dyn_table》.

 

*创建动态工作区结构

CREATE DATA dyn_wa LIKE LINE OF 《dyn_table》.

 

*创建动态工作区

ASSIGN dyn_wa-》* TO 《dyn_wa》.

 

 

*从动态表中取数到动态内表中

SELECT * INTO CORRESPONDING FIELDS OF TABLE
《dyn_table》 UP TO 100

 

ROWS FROM (p_name).

 

*对取出数据进行处理

LOOP AT 《dyn_table》 assigning 《dyn_wa》.

 "内表数据处理

ENDLOOP.

 

*显示内表中的数据

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

  EXPORTING

   
i_structure_name = p_name

  TABLES

   
t_outtab        
= 《dyn_table》

  EXCEPTIONS

   
program_error   
= 1

   
OTHERS          
= 2.

IF sy-subrc 《》 0.

  MESSAGE ID sy-msgid TYPE
sy-msgty NUMBER sy-msgno

         
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

 

 

 

转自：http://www.cnblogs.com/clsoho/archive/2010/07/23/1783851.html

 

ABAP动态内表使用的例子

*&---------------------------------------------------------------------*

*& Report 
ZLEIY_ABAP_TEST

*&

*&---------------------------------------------------------------------*

*&

*&

*&---------------------------------------------------------------------*

 

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

*&---------------------------------------------------------------------*

*&     
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.