码迷,mamicode.com
首页 > 其他好文 > 详细

ABAP 将相同结构的A表数据COPY到B表中

时间:2020-07-26 19:46:59      阅读:99      评论:0      收藏:0      [点我收藏+]

标签:table   catalog   others   mes   splay   表数据   struct   备份表   assign   

主要就是动态内表


PARAMETERS: p_tabf TYPE dd02l-tabname,   "原表名称
            p_tabt TYPE dd02l-tabname.   "备份表名称
DATA: it_tabf TYPE lvc_t_fcat,
      it_tabt TYPE lvc_t_fcat.
DATA: it_tabfc TYPE lvc_t_fcat,
      it_tabtc TYPE lvc_t_fcat.
DATA: lcx_error TYPE REF TO cx_root.
DATA: dy_table TYPE REF TO data,
      dy_line  TYPE REF TO data.
FIELD-SYMBOLS: <dyn_table> TYPE STANDARD TABLE.
*               <dyn_wa>,
*               <dyn_field>.
FIELD-SYMBOLS: <fs_tab> LIKE lvc_s_fcat.

CALL FUNCTION ‘LVC_FIELDCATALOG_MERGE‘
  EXPORTING
    i_client_never_display ‘‘
    i_structure_name       = p_tabf
  CHANGING
    ct_fieldcat            = it_tabf
  EXCEPTIONS
    inconsistent_interface 1
    program_error          2
    OTHERS                 3.

CALL FUNCTION ‘LVC_FIELDCATALOG_MERGE‘
  EXPORTING
    i_client_never_display ‘‘
    i_structure_name       = p_tabt
  CHANGING
    ct_fieldcat            = it_tabt
  EXCEPTIONS
    inconsistent_interface 1
    program_error          2
    OTHERS                 3.

it_tabfc = it_tabf.
it_tabtc = it_tabt.
LOOP AT it_tabfc ASSIGNING <fs_tab>.
  CLEAR: <fs_tab>-ref_table.
ENDLOOP.

LOOP AT it_tabtc ASSIGNING <fs_tab>.
  CLEAR: <fs_tab>-ref_table.
ENDLOOP.

IF it_tabfc <> it_tabtc.
  MESSAGE ‘复制的原表与目的表结构不一致,请确认‘ TYPE ‘S‘ DISPLAY LIKE ‘E‘.EXIT.
ENDIF.

CALL METHOD cl_alv_table_create=>create_dynamic_table
  EXPORTING
    it_fieldcatalog = it_tabf
* I_LENGTH_IN_BYTE = ‘X‘
  IMPORTING
    ep_table = dy_table.
ASSIGN dy_table->* TO <dyn_table>.

SELECT * INTO TABLE <dyn_table> FROM (p_tabf.
IF sy-subrc 0.
  TRY.
      DELETE FROM (p_tabt).   "清除TO表中所有数据
      INSERT (p_tabtFROM TABLE <dyn_table>.
    CATCH cx_sy_open_sql_db INTO lcx_error.
  ENDTRY.
  IF sy-subrc 0.
    COMMIT WORK.
    MESSAGE ‘数据备份成功‘ TYPE ‘S‘.
  ELSE.
    ROLLBACK WORK.
    MESSAGE ‘数据备份失败,请重试‘ TYPE ‘S‘ DISPLAY LIKE ‘E‘.
  ENDIF.
ENDIF.

ABAP 将相同结构的A表数据COPY到B表中

标签:table   catalog   others   mes   splay   表数据   struct   备份表   assign   

原文地址:https://www.cnblogs.com/jingqing/p/13381137.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!