如何通过编程获取长文本对象的变更日志？

核心逻辑 #

长文本的变更数据分散在STXH（长文本表头）、STXL（长文本内容）和DBTABLOG（表变更日志）三张表中，需要关联三者数据并解析STXL的二进制内容，才能拿到实际变更的文本信息。

具体步骤 #

1. 筛选基础变更日志
   从DBTABLOG中过滤出针对STXH和STXL的变更记录，关键筛选条件：

   • TABNAME：限定为STXH或STXL
   • OBJNAME：目标长文本对象（比如销售订单的VBBK）
   • CHANGEDAT：按需指定变更日期范围
   • USERNAME：可选，过滤特定用户的操作

   示例ABAP代码：

   SELECT * FROM dbtablog
     INTO TABLE @DATA(lt_dbtablog)
     WHERE tabname IN ('STXH', 'STXL')
       AND objname = @lv_target_object
       AND changedat BETWEEN @lv_start_date AND @lv_end_date.
   

2. 关联长文本表头与内容
   DBTABLOG的KEYVALUE字段是压缩存储的表主键，需要拆分出长文本的核心标识：TDOBJECT（对象名）、TDID（文本ID）、TDSPRAS（语言）、TDNAME（文本名称），用这些字段关联STXH和STXL。其中STXL需筛选TDFORMAT = '*'的记录，对应原始长文本内容。

3. 解析二进制长文本
   STXL的TDCONT字段是二进制格式，可通过标准函数READ_TEXT直接提取明文内容；如果要对比变更前后的文本，需从DBTABLOG的OLDVALUE和NEWVALUE中取出变更前后的二进制数据，再分别解析。

   示例解析代码：

   CALL FUNCTION 'READ_TEXT'
     EXPORTING
       id                      = ls_stxh-tdid
       language                = ls_stxh-tdspras
       name                    = ls_stxh-tdname
       object                  = ls_stxh-tdobject
     TABLES
       lines                   = lt_text_lines
     EXCEPTIONS
       not_found               = 1
       OTHERS                  = 2.
   IF sy-subrc = 0.
     " 处理提取到的文本行数据
   ENDIF.
   

4. 整合完整变更记录
   将DBTABLOG中的变更时间、操作用户，与解析后的新旧长文本内容整合，输出包含操作人、时间、变更前后内容的完整历史记录。

注意事项 #

• 若系统未记录STXH/STXL的变更日志，需通过事务码SCU3检查并开启对应表的日志功能。
• DBTABLOG的KEYVALUE拆分可使用函数DB6CONV_KEYVALUE_TO_TABLE，或根据表主键的固定长度手动截取。
• 解析后的长文本可能包含格式标记（如*、/），需按需清理以保证内容可读性。

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