当然可以不用SE11，完全通过ABAP程序动态创建Z表的备份副本，比如把zmydbtable复制为zmydbtable_bckp。下面是具体的实现思路、代码示例和注意事项：

核心思路 #

利用ABAP提供的数据字典（DDIC）API，先读取原表的完整元数据（字段结构、主键、描述等），修改元数据中的表名为备份表名，然后调用API创建新表，最后通过动态SQL把原表数据复制过去。

具体实现步骤 #

• 步骤1：获取原表的元数据
  使用函数DDIF_TABL_GET读取原表激活状态下的结构信息，包括表的基本属性、字段列表、主键定义等。
• 步骤2：修改元数据为备份表信息
  将原表名替换为备份表名，更新表的描述为备份相关内容，同时同步更新字段和主键信息中的表名。
• 步骤3：创建并激活备份表
  调用DDIF_TABL_PUT函数，传入修改后的元数据，设置自动激活参数，创建备份表。
• 步骤4：复制原表数据到备份表
  使用动态INSERT ... SELECT语句，把原表的所有数据插入到新创建的备份表中。

完整代码示例 #

REPORT z_copy_table_to_backup.

PARAMETERS: p_source TYPE tabname OBLIGATORY DEFAULT 'ZMYDBTABLE',
            p_target TYPE tabname OBLIGATORY DEFAULT 'ZMYDBTABLE_BCKP'.

DATA: ls_tabtype TYPE dd02v,
      lt_fields  TYPE dd03vt,
      lt_keys    TYPE dd04vt,
      lv_message TYPE string.

START-OF-SELECTION.
  " 1. 获取原表的激活状态结构
  CALL FUNCTION 'DDIF_TABL_GET'
    EXPORTING
      name          = p_source
      langu         = sy-langu
      state         = 'A' " 仅读取已激活的表
    IMPORTING
      dd02v_wa      = ls_tabtype
    TABLES
      dd03t_tab     = lt_fields
      dd04t_tab     = lt_keys
    EXCEPTIONS
      not_found     = 1
      internal_error = 2
      OTHERS        = 3.
  IF sy-subrc <> 0.
    MESSAGE '原表不存在或未激活，请检查输入' TYPE 'E'.
  ENDIF.

  " 2. 修改元数据为备份表信息
  ls_tabtype-tabname = p_target.
  ls_tabtype-ddtext = |备份表：{ p_source }（创建于 { sy-datum } { sy-uzeit }）|.

  " 更新字段和主键中的表名引用
  LOOP AT lt_fields ASSIGNING FIELD-SYMBOL(<fs_field>).
    <fs_field>-tabname = p_target.
  ENDLOOP.

  LOOP AT lt_keys ASSIGNING FIELD-SYMBOL(<fs_key>).
    <fs_key>-tabname = p_target.
  ENDLOOP.

  " 3. 创建并激活备份表
  CALL FUNCTION 'DDIF_TABL_PUT'
    EXPORTING
      dd02v_wa      = ls_tabtype
      activate      = 'X' " 自动激活新表
      ignore_errors = ' '
    TABLES
      dd03t_tab     = lt_fields
      dd04t_tab     = lt_keys
    EXCEPTIONS
      internal_error = 1
      OTHERS        = 2.
  IF sy-subrc <> 0.
    MESSAGE '备份表创建失败，请检查权限或表名合法性' TYPE 'E'.
  ENDIF.

  " 4. 复制原表数据到备份表
  TRY.
      EXEC SQL.
        INSERT INTO (:p_target) SELECT * FROM (:p_source)
      ENDEXEC.
      MESSAGE |成功复制 { sy-dbcnt } 条数据到备份表 { p_target }| TYPE 'S'.
    CATCH cx_sy_dynamic_sql_error INTO DATA(lo_err).
      lv_message = lo_err->get_text( ).
      MESSAGE |数据复制失败：{ lv_message }| TYPE 'E'.
  ENDTRY.

关键注意事项 #

• 权限要求：执行程序的用户需要拥有创建表的权限，比如S_TABU_DIS（表维护权限）、S_DEVELOP（开发对象权限）等，否则会触发权限错误。
• 复杂依赖处理：如果原表包含外键、索引、搜索帮助等关联对象，上面的代码仅复制了基础表结构，需要额外调用对应的DDIC API（比如DDIF_INDEX_GET/DDIF_INDEX_PUT处理索引）来完整备份这些依赖。
• 大数据量优化：如果原表数据量极大，建议使用批量插入或者分批次复制的方式，避免内存溢出或超时。
• 命名规范：备份表名必须符合ABAP对象命名规则（以Z/Y开头，长度不超过30字符），否则创建表时会报错。

内容的提问来源于stack exchange，提问作者ekekakos