如何在ABAP数据库表中生成并插入随机测试数据？

需求概述 #

现有ABAP报表可筛选Z/Y开头的自定义表并展示其字段及数据类型，需扩展功能：为指定自定义表生成并插入指定数量的随机测试数据，且数据可通过SE11/SE16事务码查看。

实现思路 #

• 获取表元数据：借助DDIF_FIELDINFO_GET函数获取目标表的字段类型、长度、小数位等关键信息，为生成匹配类型的随机数据提供依据
• 按字段类型生成随机值：针对不同ABAP数据类型（字符型C、数值型I、日期型D等）编写对应逻辑生成随机数据
• 动态数据处理：使用CREATE DATA动态创建与目标表结构一致的内表和工作区，通过ASSIGN COMPONENT动态给字段赋值
• 批量插入数据库：循环生成指定数量的随机数据后，用INSERT语句批量写入目标表，确保数据持久化

修改后的完整代码 #

*&---------------------------------------------------------------------*
*& Report Z_THIRD_REPORT
*&---------------------------------------------------------------------*
*& 功能：选择自定义表展示字段信息，并生成指定数量的随机测试数据插入表中
*&---------------------------------------------------------------------*
REPORT Z_THIRD_REPORT.

TABLES: DFIES, X030L.

DATA: BEGIN OF INTTAB OCCURS 100.
  INCLUDE STRUCTURE DFIES.
DATA: END OF INTTAB.

DATA: field_data_type TYPE dfies-datatype,
      num_records TYPE i,
      lo_table TYPE REF TO data,
      lo_workarea TYPE REF TO data,
      lv_random TYPE i,
      lv_random_str TYPE string,
      lv_date TYPE d.

PARAMETERS: tablenm TYPE dd02l-tabname OBLIGATORY,
            records TYPE i DEFAULT 10 OBLIGATORY.

* 筛选可操作的自定义表（Z/Y开头的激活透明表/内表）
SELECT * FROM dd02l INTO TABLE @DATA(lt_tables)
 WHERE ( tabname LIKE 'Z%' OR tabname LIKE 'Y%' )
   AND as4local = 'A'
   AND tabclass IN ('TRANSP', 'INTTAB').

* 获取目标表字段信息
CALL FUNCTION 'DDIF_FIELDINFO_GET'
EXPORTING
  tabname              = tablenm
  langu                = sy-langu
TABLES
  dfies_tab            = inttab
EXCEPTIONS
  not_found            = 1
  internal_error       = 2
  others               = 3.

IF sy-subrc <> 0.
  WRITE:/ '目标表不存在或无法访问'.
  RETURN.
ENDIF.

* 展示表字段及数据类型
WRITE:/ '字段名称', 15 '数据类型'.
LOOP AT inttab.
  field_data_type = inttab-datatype.
  WRITE:/ inttab-fieldname UNDER '字段名称', field_data_type UNDER '数据类型'.
ENDLOOP.

* 动态创建目标表类型的内表和工作区
CREATE DATA lo_table TYPE TABLE OF (tablenm).
CREATE DATA lo_workarea TYPE (tablenm).
ASSIGN lo_table->* TO FIELD-SYMBOL(<fs_table>).
ASSIGN lo_workarea->* TO FIELD-SYMBOL(<fs_wa>).

* 生成随机数据并填充内表
DO records TIMES.
  CLEAR <fs_wa>.
  LOOP AT inttab.
    CASE inttab-datatype.
      WHEN 'C'. "字符型：生成随机字母数字混合字符串
        CALL FUNCTION 'GENERAL_GET_RANDOM_STRING'
          EXPORTING
            length        = inttab-leng
          IMPORTING
            random_string = lv_random_str.
        ASSIGN COMPONENT inttab-fieldname OF STRUCTURE <fs_wa> TO FIELD-SYMBOL(<fs_field>).
        IF sy-subrc = 0.
          <fs_field> = lv_random_str.
        ENDIF.
      WHEN 'N'. "数字字符型：生成随机数字字符串
        CALL FUNCTION 'GENERAL_GET_RANDOM_STRING'
          EXPORTING
            length        = inttab-leng
            only_digits   = 'X'
          IMPORTING
            random_string = lv_random_str.
        ASSIGN COMPONENT inttab-fieldname OF STRUCTURE <fs_wa> TO <fs_field>.
        IF sy-subrc = 0.
          <fs_field> = lv_random_str.
        ENDIF.
      WHEN 'I'. "整数型：生成-10000到10000之间的随机整数
        CALL FUNCTION 'GENERAL_GET_RANDOM_INT'
          EXPORTING
            range_low     = -10000
            range_high    = 10000
          IMPORTING
            random_int    = lv_random.
        ASSIGN COMPONENT inttab-fieldname OF STRUCTURE <fs_wa> TO <fs_field>.
        IF sy-subrc = 0.
          <fs_field> = lv_random.
        ENDIF.
      WHEN 'D'. "日期型：生成近5年内的随机日期
        CALL FUNCTION 'GENERAL_GET_RANDOM_DATE'
          EXPORTING
            date_from     = sy-datum - 1825 "5年前
            date_to       = sy-datum
          IMPORTING
            random_date   = lv_date.
        ASSIGN COMPONENT inttab-fieldname OF STRUCTURE <fs_wa> TO <fs_field>.
        IF sy-subrc = 0.
          <fs_field> = lv_date.
        ENDIF.
      WHEN 'F'. "浮点型：生成随机浮点数
        CALL FUNCTION 'GENERAL_GET_RANDOM_FLOAT'
          EXPORTING
            range_low     = -1000.0
            range_high    = 1000.0
            decimals      = inttab-decimals
          IMPORTING
            random_float  = DATA(lv_float).
        ASSIGN COMPONENT inttab-fieldname OF STRUCTURE <fs_wa> TO <fs_field>.
        IF sy-subrc = 0.
          <fs_field> = lv_float.
        ENDIF.
      WHEN OTHERS. "其他类型默认赋值初始值
        ASSIGN COMPONENT inttab-fieldname OF STRUCTURE <fs_wa> TO <fs_field>.
        IF sy-subrc = 0.
          CLEAR <fs_field>.
        ENDIF.
    ENDCASE.
  ENDLOOP.
  APPEND <fs_wa> TO <fs_table>.
ENDDO.

* 批量插入数据到目标表
INSERT (tablenm) FROM TABLE <fs_table>.
IF sy-subrc = 0.
  WRITE:/, '成功插入', records, '条随机数据到表', tablenm.
ELSE.
  WRITE:/, '数据插入失败，请检查表权限或字段约束'.
ENDIF.

验证步骤 #

1. 运行报表Z_THIRD_REPORT，输入目标自定义表名（如ZTEST_TABLE）和要生成的记录数（默认10）
2. 执行报表，查看字段信息展示及插入结果提示
3. 打开事务码SE11，输入表名后点击「显示」，再点击「数据浏览器」按钮查看已插入的随机数据；或直接使用SE16事务码查询表数据

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