SAP ABAP批量建表实战：SE11数据字典自动化生成

上周又接了个活，对方甩过来一个 Excel，三十多个自定义表，每个表二三十个字段，字段全走域和数据元素，命名规范还卡得挺死。要是老老实实打开 SE11 一个对象一个对象点，域、数据元素、表三层走一遍，再算上激活、改错、补文本，没个两三天根本下不来。后来我把这套流程用 ABAP 写成了一个批量建表程序：读一份维护好的元数据清单，5 分钟内把域、数据元素、结构、透明表全部建好并激活。这篇就把这套东西从头到尾拆一遍——它解决什么问题、底层靠哪些函数模块、模板怎么设计、代码怎么写、跑起来会踩哪些坑。不管你是刚接触数据字典的新人，还是天天被建表需求追着跑的资深开发，都能直接拿去改。

1. 为什么我决定不再手动敲 SE11

1.1 手工建一张表的真实时间都花在哪

很多人觉得建表就是"点几下"，实际上一个合规的透明表，在 SE11 里的动作链条比想象中长得多。先建域，填数据类型、长度、小数位，如果要带固定值还得一行行敲；再建数据元素，把域挂上去，然后填短文本、中文本、长文本、表头文本四个标签；最后建表，逐行加字段，填字段名、参考数据元素、主键勾选，再处理技术设置里的数据类和大小类别。一个二十字段的表，熟练工也要十二到十五分钟，其中真正"设计"的时间不到两分钟，剩下全在重复劳动。

更要命的是错误成本。字段位置跳号、主键不连续、数据元素忘建、文本漏填，这些问题在激活的时候才会集中爆发，然后你要退回去一个个改。改完再激活，可能又冒出新的依赖问题。我统计过自己做过的一批需求：22 张表、18 个数据元素、9 个域，纯手工从零到全部激活，前后花了将近 5 个小时，其中至少 3 小时是纯粹的机械操作和返工。

还有一类更隐性的成本：一致性。同一个人隔一天建的两个表，字段长度可能就不一样；换个同事接手，命名风格又变了。这类问题在测试阶段几乎发现不了，等上了线做接口对接、做数据迁移的时候才会咬人一口。手工模式下，你没有任何机制能保证"这批表都是按同一套规范生成的"。

1.2 四种批量方案的横向对比与取舍

在动手写程序之前，我把能想到的路子都盘了一遍，这里把结论摊开讲，省得你再走一遍弯路。

BDC 录屏是很多人的第一反应，录一遍 SE11 的建表流程，然后用 SHDB 生成程序批量跑。这条路看着省事，实际上非常脆：SE11 的屏幕流对字段顺序、光标位置、弹出框特别敏感，稍微换个版本或者有个警告弹窗，整个批次就乱套了。而且录屏跑出来的对象，日志里只有"屏幕 XX 处理失败"，你根本不知道是哪一步出的问题，排查成本比手工还高。

直接往 DD01L、DD02L、DD03L 这些底层表里 INSERT 数据，确实"看起来"最快，但这是纯粹的灾难。这些表有严格的 AS4LOCAL / AS4VERS 版本控制，有激活标志 ACTFLAG，还有一堆派生字段（内部长度、掩码、搜索帮助来源）需要计算。你手动插进去的行，在 SE11 里多半显示为"未激活"，而且系统的运行时名字表（nametab）根本不会刷新，程序里照样引用不到。更麻烦的是，后续用任何标准工具（比如类生成、CDS 视图、RFC 接口）去读这个对象，都可能读到一份残缺的定义。

所以最后只剩一条路：用系统自己提供的字典接口函数。这套函数模块是 SE11 后台真正在调用的东西，它帮你做了参数校验、派生计算、依赖检查、激活和名字表刷新，你只需要把数据结构填对。

1.3 最终方案的架构：元数据驱动 + 字典函数模块

整体架构很朴素，三层。第一层是输入，一份结构化的元数据清单，我用 Excel 维护，分成域、数据元素、表字段三段，程序读进来落到三个内表。第二层是调度，按"域 → 数据元素 → 表/结构"的顺序分批处理，同一层级内先全部写入再统一激活。第三层是执行，调用 DDIF 系列函数完成写入和激活，同时把每个对象的处理结果记进日志表。

这个分层的关键在于第二层的"分级"设计。很多人第一版会写成：读一行 Excel，建域、建数据元素、建表，一条龙走完再读下一行。这在一行内自洽的时候没问题，但只要出现"A 表的字段引用了 B 表所在行定义的数据元素"，顺序就乱了。按对象类型分级、同级批量写入、最后统一激活，能把这个依赖问题降到最低。

还有一个设计上的取舍值得说：我没有做"全自动推断"。也就是说，程序不会猜测你想要什么类型，所有数据类型、长度、小数位、主键标记都必须显式写在模板里。这看起来是增加了维护成本，但换来的是行为可预期——出了问题，一定是模板填错了，而不是程序猜错了。批量工具最怕的就是"聪明"，聪明意味着不可预测。

2. 先把底层原理搞明白：字典对象的存储链路

2.1 域 → 数据元素 → 表/结构的依赖关系

数据字典不是平铺的，它是一条单向依赖链。域（Domain）定义"技术属性"——数据类型、长度、取值范围；数据元素（Data Element）定义"业务语义"——它引用一个域，同时挂上字段标签；表字段再引用数据元素。这个链条是单向的，域不知道谁在用自己，数据元素也不知道自己被哪些表引用（虽然有 where-used 可以查，但那是事后查询，不是定义期依赖）。

这就决定了生成顺序必须是自底向上的：域 → 数据元素 → 表。反过来做，数据元素挂不到域上，表字段挂不到数据元素上，激活时一定会报"参考对象不存在"。

但实际项目里还有一层更深的东西。表字段除了引用数据元素，还有两种常见形态：一是直接用内建类型（比如纯技术字段、临时表），二是引用另一个结构（.INCLUDE 效果）。前者需要在 DD03P 里填 DATATYPE、LENG、DECIMALS、INTTYPE、INTLEN，后者要在 COMPTYPE 里填被引用的结构名。这两种情况下，依赖关系会变得更复杂，因为被引用的结构可能也在同一批里等着生成。

我的处理办法是：把所有对象先按类型排成四组——域、数据元素、结构、透明表。结构和表之间可能存在互相引用，所以这两组内部还要再跑一次拓扑排序。实践下来，绝大多数的批次里结构都是被表引用的（而不是反过来），所以简单的"先结构后表"就能覆盖九成场景。剩下那一成，我在模板里加了一列SEQ，允许人工指定处理序号，算是给复杂场景留个后门。

2.2 存储表与工作区的对应关系

DDIF 函数的参数用的是"工作区 + 内表"的组合，这些结构对应到底层表，理解这个映射关系能省很多调试时间。

这里第一个容易踩的点是 DD04V 的文本处理。数据元素的四个标签（短、中、长、表头）不是放在独立内表里的，而是直接嵌在 DD04V 结构中，通过 DDTEXT、REPTEXT、SCRTEXT_S、SCRTEXT_M、SCRTEXT_L 这几个字段传进去，同时还要带上 DDLANGUAGE 指定语言。我第一次写的时候以为跟域一样要单独传内表，找了半天没找到，最后翻函数签名才反应过来。

第二个点是 DD03P 的完整性。DD03P 不止有字段名、位置、类型，还有一堆派生字段：INTTYPE（内部类型）、INTLEN（内部长度）、HEADLEN（表头长度）、SCRLEN_L/M/S（屏幕长度）、MASK、MASK_LEN（转换例程）。这些如果你不填，写入阶段通常能过，但激活阶段系统会自己算一遍——大部分情况下算得对，但遇到 P 类型、X 类型、REF 类型这些边界情况，就可能和预期不一致。我的做法是全部自己算好再传，宁可多写几行代码，也不要依赖系统的隐式推导。

2.3 保存与激活是两码事

这是整套方案里最重要的一条认知：DDIF 的 PUT 只是"保存"，不等于"可用"。你调用DDIF_TABL_PUT之后去 SE11 里看，对象是存在的，但状态是"未激活"，程序里TYPES引用它会报错，Open SQL 里 SELECT 也读不到。

必须再调一次DDIF_TABL_ACTIVATE。激活做的事情包括：校验所有依赖对象是否已激活、计算派生字段、在数据库层面真正执行 CREATE TABLE、刷新运行时名字表（nametab）、把对象状态改成已激活、记录激活日志。

这个分离设计其实很有道理，它对应 SE11 界面上的"保存"和"激活"两个按钮。但它带来的直接后果是：你的程序必须把 PUT 和 ACTIVATE 分成两个阶段。先全部 PUT，再全部 ACTIVATE，而不是一个对象 PUT 完马上 ACTIVATE。原因很简单：如果你先激活表 A，而表 A 的某个字段引用了还没 PUT 的数据元素 B，激活就会失败。批量场景下，阶段分离几乎是必须的。

还有一层：激活失败的后果是不对称的。PUT 成功、ACTIVATE 失败的对象，会留在系统里显示为"未激活"，下次你再跑同一个对象，DDIF_TABL_PUT会先读出现有定义——如果你没有正确处理，可能会把之前的字段列表覆盖成空的。我在程序里加了一道保护：PUT 之前先 GET 一次，如果对象已存在且状态为未激活，就把已有的 DD03P 读出来做参考，或者干脆按配置决定"跳过/覆盖/报错"。

3. 输入模板的设计：把 Excel 变成程序能吃的结构

3.1 三段式模板：域段、数据元素段、表字段段

模板的设计直接决定了程序的复杂度。我试过两种极端：一种是一张大宽表，每行带一列"对象类型"，所有字段挤在一起；另一种是一个对象一个 Sheet。前者的问题是空列太多，填起来眼花；后者的问题是跨 Sheet 引用没法表达。

最后落地的方案是三个 Sheet，分别对应三个层级。

第一个 Sheet 是域，列包括：域名、描述、数据类型（CHAR/NUMC/DATS/TIMS/DEC/CURR/QUAN/INT4 等）、长度、小数位、是否带固定值、固定值列表（用分号分隔，如A;启用|I;停用）。固定值这里我用了一个小约定：值|描述的格式，多个值用分号隔开，解析的时候 split 两次就行。

第二个 Sheet 是数据元素，列包括：数据元素名、域名、短文本、中文本、长文本、表头文本。这一段的字段最少，但最容易漏——很多人建完数据元素忘了填标签，结果在 SE11 的字段列表里看到一片空白，后续做 ALV 或者屏幕的时候还得回头补。

第三个 Sheet 是表字段，这是最复杂的一段。列包括：表名、表描述、对象类型（T=透明表 / S=结构）、字段序号、字段名、参考数据元素、内建类型、长度、小数位、是否主键、是否非空、字段描述。当"参考数据元素"有值时，后面的内建类型和长度留空；当它为空时，才需要填内建类型和长度。这个二选一的规则必须在解析时明确校验，否则会出现既没有数据元素也没有内建类型的"空字段"，激活时必然报错。

提示：模板里所有名称类字段（域名、数据元素名、表名、字段名）统一大写处理，避免大小写混用导致的重复判断失误。ABAP 字典对象名本身不区分大小写，但字符串比较是区分的。

3.2 命名与长度校验规则清单

批量工具最怕的是"跑了一半才报错"。所以我在解析阶段就做了一轮完整的静态校验，把所有能提前发现的问题一次性报出来，而不是等到激活阶段。

这里有一条规则值得单独说：主键必须连续且在最前面。这是字典的硬性约束，不是建议。很多人建表的时候习惯把业务上"觉得重要"的字段设成主键，位置却散落在中间，激活时报"键字段必须相邻"，然后又不知道怎么改。程序里我做了自动重排——把标记为主键的字段按原相对顺序提到最前面，重新编号 POSITION，然后在日志里打一条警告，让人知道程序动过手脚。

另外，客户端相关的透明表要处理 CLIDEP 标志。DD02V 里有个 CLIDEP 字段，设为 'X' 表示这张表是客户端相关的，系统会自动在最前面加一个 MANDT 字段。但更稳的做法是自己在字段列表第一个位置显式写 MANDT，参考数据元素 MANDT，主键勾上，同时 DD02V-CLIDEP 也设 'X'。两种方式都行，显式写的好处是字段位置、描述都完全可控。

3.3 自建配置表的字段清单

Excel 适合人维护，但程序每次跑都要读文件，不适合做长期配置。所以我另建了三张配置表，结构跟 Excel 的三个 Sheet 一一对应，Excel 只作为导入的入口，导入后落表，后续调整直接改表或者做个小维护屏幕。

三张表分别是ZTCFG_DDIC_DOMA、ZTCFG_DDIC_DTEL、ZTCFG_DDIC_FIELD。前两张比较简单，字段和 Excel 列基本对应。第三张字段表稍微复杂一点，除了字段定义，还带上了STATUS（处理状态：待处理/成功/失败）、ERRMSG（错误信息）、UPDDAT、UPDTIM四个审计字段。加这四列的意义在于：一批几百行的数据，跑完之后你需要能快速筛出失败的那些去修，而不是靠翻程序的输出列表。

日志我是这么设计的：每处理完一个对象，就更新对应行的 STATUS 和 ERRMSG，然后 COMMIT WORK。不要攒到最后一起更新，因为中途一旦程序崩溃（比如遇到短 dump），前面已经处理到哪一步就完全丢失了。频繁 COMMIT 在这里的代价可以忽略，因为每次 COMMIT 的不过是一行 UPDATE，而每个字典对象的 PUT + ACTIVATE 已经是几百毫秒级别了。

4. 核心代码实现：从读取到激活

4.1 主程序流程骨架

主程序的骨架非常直白，五个步骤，没有花活。我用一个内表GT_RESULT记录所有对象的处理结果，最后统一用 ALV 或者写文件输出。

REPORT z_ddic_batch_gen. START-OF-SELECTION. PERFORM frm_load_config. " 读配置表 PERFORM frm_check_static. " 静态校验，一次性报出所有问题 PERFORM frm_sort_by_layer. " 按 域 -> 数据元素 -> 结构 -> 表 分层排序 PERFORM frm_put_all. " 全量写入（PUT） PERFORM frm_activate_all. " 全量激活（ACTIVATE） PERFORM frm_display_log. " 结果输出

这里有个细节：frm_check_static如果发现任何一行严重错误（比如名称非法），我应该整批中止还是只跳过那一行？我的选择是"整批中止，但把全部错误一次性列出来"。理由是批量建表往往是给一个模块的一套表，少了一张表可能导致后续业务逻辑对不上，跑一半停下来更麻烦。如果只是想补建几张表，可以单独维护一份小配置跑。

分层排序的代码里，我用SEQ字段做二级排序键，允许人工在需要的时候把某个对象提前或推后。默认情况下结构排在表前面，这样被引用的结构总是先建好。

4.2 域的生成与固定值写入

域的写入分两步：填 DD01V 头部，填 DD07V 固定值内表（如果没有固定值就传空表）。函数是DDIF_DOMA_PUT，配套激活是DDIF_DOMA_ACTIVATE。

FORM frm_put_domain USING ls_cfg TYPE ztcfg_ddic_doma. DATA: ls_dd01v TYPE dd01v, lt_dd07v TYPE TABLE OF dd07v, ls_dd07v TYPE dd07v, lv_val TYPE string. CLEAR ls_dd01v. ls_dd01v-domname = ls_cfg-domname. ls_dd01v-ddlanguage = sy-langu. ls_dd01v-datatype = ls_cfg-datatype. ls_dd01v-leng = ls_cfg-leng. ls_dd01v-decimals = ls_cfg-decimals. ls_dd01v-outputlen = ls_cfg-leng. " 输出长度默认等于长度 ls_dd01v-valexi = ls_cfg-valexi. " 'X' 表示有固定值 ls_dd01v-fixedvalues = ls_cfg-valexi. ls_dd01v-as4user = sy-uname. ls_dd01v-as4date = sy-datum. ls_dd01v-as4time = sy-uzeit. " 解析固定值：格式 "值|描述;值|描述" IF ls_cfg-fixedval IS NOT INITIAL. SPLIT ls_cfg-fixedval AT ';' INTO TABLE DATA(lt_pair). LOOP AT lt_pair INTO DATA(lv_pair). CLEAR ls_dd07v. SPLIT lv_pair AT '|' INTO DATA(lv_v) DATA(lv_d). ls_dd07v-domname = ls_cfg-domname. ls_dd07v-ddlanguage = sy-langu. ls_dd07v-valpos = sy-tabix. ls_dd07v-domvalue_l = lv_v. ls_dd07v-ddtext = lv_d. ls_dd07v-dom_attr = 'F'. " 固定值 APPEND ls_dd07v TO lt_dd07v. ENDLOOP. ENDIF. CALL FUNCTION 'DDIF_DOMA_PUT' EXPORTING name = ls_cfg-domname dd01v_wa = ls_dd01v TABLES dd07v_tab = lt_dd07v EXCEPTIONS domname_invalid = 1 put_failure = 2 put_refused = 3 OTHERS = 4. IF sy-subrc <> 0. PERFORM frm_log USING 'DOMA' ls_cfg-domname 'E' 'PUT 失败'. ENDIF. ENDFORM.

几个地方容易出问题。第一，OUTPUTLEN我不填等于 LENG 的话，某些类型（比如 DEC 带小数）在 SE11 里显示的输出长度可能跟预期不符，虽然不影响激活，但看着别扭。第二，固定值的VALPOS必须从 1 开始连续，跳号会导致值列表显示异常。第三，DOM_ATTR这个字段要填 'F' 表示固定值（区别于区间值），不填的话值列表可能显示不出来。

注意：DDIF_DOMA_PUT对已存在的域是"覆盖"语义，不是"合并"。如果系统里原本有个域带着一堆固定值，你传一个空表进去，原来的固定值会被清空。这也是为什么要先 GET 一次确认。

4.3 数据元素的生成与多语言文本

数据元素的关键在于文本和类型的推导。DD04V 里 DOMNAME 和 DATATYPE 是二选一的关系：要么引用一个域，要么直接指定内建类型。绝大多数业务字段都是引用域，所以主流程只处理这一种，内建类型留个分支备用。

FORM frm_put_dtel USING ls_cfg TYPE ztcfg_ddic_dtel. DATA: ls_dd04v TYPE dd04v. " 先读域定义，把数据类型和长度带过来 DATA: ls_dd01v TYPE dd01v. CALL FUNCTION 'DDIF_DOMA_GET' EXPORTING name = ls_cfg-domname IMPORTING dd01v_wa = ls_dd01v EXCEPTIONS OTHERS = 1. IF sy-subrc <> 0. PERFORM frm_log USING 'DTEL' ls_cfg-rollname 'E' '引用域不存在'. RETURN. ENDIF. CLEAR ls_dd04v. ls_dd04v-rollname = ls_cfg-rollname. ls_dd04v-domname = ls_cfg-domname. ls_dd04v-datatype = ls_dd01v-datatype. ls_dd04v-leng = ls_dd01v-leng. ls_dd04v-decimals = ls_dd01v-decimals. ls_dd04v-ddlanguage = sy-langu. ls_dd04v-ddtext = ls_cfg-ddtext. " 短文本 ls_dd04v-reptext = ls_cfg-reptext. " 中文本 ls_dd04v-scrtext_s = ls_cfg-scrtext_s. " 短字段标签 ls_dd04v-scrtext_m = ls_cfg-scrtext_m. " 中字段标签 ls_dd04v-scrtext_l = ls_cfg-scrtext_l. " 长字段标签 ls_dd04v-headlen = ls_cfg-scrtext_l. " 表头取长标签 ls_dd04v-as4user = sy-uname. CALL FUNCTION 'DDIF_DTEL_PUT' EXPORTING name = ls_cfg-rollname dd04v_wa = ls_dd04v EXCEPTIONS OTHERS = 1. IF sy-subrc <> 0. PERFORM frm_log USING 'DTEL' ls_cfg-rollname 'E' 'PUT 失败'. ENDIF. ENDFORM.

这段代码里我特意加了"先 GET 域"这一步。表面上看是从域里带类型过来，实际上更重要的作用是提前拦截引用错误。如果模板里写的数据元素引用了一个不存在的域，与其等到激活阶段报一个晦涩的错误，不如在 PUT 之前就明确报"引用域不存在"，让人一眼知道要改哪里。

文本这块有个经验：SCRTEXT_L（长字段标签）最长 40 字符，SCRTEXT_M（中）20 字符，SCRTEXT_S（短）10 字符，DDTEXT（短文本）60 字符。超长会被截断，但不会报错，所以填的时候要自己控制长度。我吃过一次亏，写了四十多个字的长标签，结果被截断成不知所云的半句话，在 ALV 列头上显示得特别难看。

4.4 表与结构的生成：DD03P 拼装细节

这一段是整个程序里最重的部分。DD03P 内表要一行行拼，每个字段的类型信息要么来自数据元素，要么来自模板里填的内建类型，还要算好内部类型和内部长度。

FORM frm_put_table USING ls_hdr TYPE ztcfg_ddic_hdr lt_fld TYPE STANDARD TABLE OF ztcfg_ddic_field. DATA: ls_dd02v TYPE dd02v, ls_dd09l TYPE dd09l, ls_dd03p TYPE dd03p, lt_dd03p TYPE TABLE OF dd03p, lv_pos TYPE i. CLEAR ls_dd02v. ls_dd02v-tabname = ls_hdr-tabname. ls_dd02v-ddlanguage = sy-langu. ls_dd02v-ddtext = ls_hdr-ddtext. ls_dd02v-mainflag = 'X'. " 必须，否则激活报错 ls_dd02v-masterlang = sy-langu. ls_dd02v-as4user = sy-uname. ls_dd02v-as4date = sy-datum. ls_dd02v-as4time = sy-uzeit. IF ls_hdr-objtype = 'S'. ls_dd02v-tabclass = 'INTTAB'. " 结构 ls_dd02v-tabkind = 'E'. ELSE. ls_dd02v-tabclass = 'TRAN'. " 透明表 ls_dd02v-tabkind = 'E'. IF ls_hdr-clidep = 'X'. ls_dd02v-clidep = 'X'. ENDIF. ENDIF. " 技术设置：透明表必填，结构可忽略 CLEAR ls_dd09l. ls_dd09l-tabname = ls_hdr-tabname. ls_dd09l-as4user = sy-uname. ls_dd09l-as4date = sy-datum. ls_dd09l-as4time = sy-uzeit. ls_dd09l-tabkat = ls_hdr-tabkat. " 0=透明表, 1=主数据, 2=事务数据 ls_dd09l-tabart = ls_hdr-tabart. " APPL0 / APPL1 / APPL2 ls_dd09l-pufferung = ls_hdr-pufferung. " 字段拼装 LOOP AT lt_fld INTO DATA(ls_fld). lv_pos = lv_pos + 1. CLEAR ls_dd03p. ls_dd03p-tabname = ls_hdr-tabname. ls_dd03p-fieldname = ls_fld-fieldname. ls_dd03p-position = lv_pos. ls_dd03p-keyflag = ls_fld-keyflag. ls_dd03p-notnull = ls_fld-notnull. IF ls_fld-rollname IS NOT INITIAL. " 引用数据元素：类型信息从数据元素带过来 DATA: ls_dd04v TYPE dd04v. CALL FUNCTION 'DDIF_DTEL_GET' EXPORTING name = ls_fld-rollname IMPORTING dd04v_wa = ls_dd04v EXCEPTIONS OTHERS = 1. IF sy-subrc <> 0. PERFORM frm_log USING 'TABL' ls_hdr-tabname 'E' |字段 { ls_fld-fieldname } 数据元素不存在|. CONTINUE. ENDIF. ls_dd03p-rollname = ls_fld-rollname. ls_dd03p-domname = ls_dd04v-domname. ls_dd03p-datatype = ls_dd04v-datatype. ls_dd03p-leng = ls_dd04v-leng. ls_dd03p-decimals = ls_dd04v-decimals. ELSE. " 内建类型：直接用模板里填的 ls_dd03p-datatype = ls_fld-datatype. ls_dd03p-leng = ls_fld-leng. ls_dd03p-decimals = ls_fld-decimals. ls_dd03p-rollname = ' '. ls_dd03p-domname = ' '. ENDIF. " 内部类型与内部长度：自己算，不要靠系统推导 PERFORM frm_calc_inttype USING ls_dd03p-datatype ls_dd03p-leng ls_dd03p-decimals CHANGING ls_dd03p-inttype ls_dd03p-intlen. ls_dd03p-headlen = 40. ls_dd03p-scrlen_l = 40. ls_dd03p-scrlen_m = 20. ls_dd03p-scrlen_s = 10. APPEND ls_dd03p TO lt_dd03p. ENDLOOP. " 写入 CALL FUNCTION 'DDIF_TABL_PUT' EXPORTING name = ls_hdr-tabname dd02v_wa = ls_dd02v dd09l_wa = ls_dd09l TABLES dd03p_tab = lt_dd03p EXCEPTIONS name_invalid = 1 put_failure = 2 put_refused = 3 OTHERS = 4. IF sy-subrc <> 0. PERFORM frm_log USING 'TABL' ls_hdr-tabname 'E' 'PUT 失败'. ENDIF. ENDFORM.

内部类型的映射我整理成一张表，覆盖了日常能用到的绝大部分类型。这里最需要注意的是 P 类型（DEC/CURR/QUAN），它的内部长度不是位数，而是字节数，计算公式是INTLEN = (LENG / 2) + 1（整除）。比如 8 位小数 2 位，内部长度 5 字节；15 位小数 2 位，内部长度 8 字节。这个值和 SE11 里看到的完全一致。

还有几个必须处理的业务约束。CURR 和 QUAN 类型的字段必须带参考字段（REFTABLE/REFFIELD），否则激活报错，这是货币和数量类型的硬性要求。CHAR 类型的长度上限是 255，超过了要改用 LCHR 或者 STRING。X 类型（RAW）的 INTTYPE 是大写 'X'，注意和大写 X 类型的区分。

4.5 传输请求挂载与激活

在开发系统里，字典对象必须挂传输请求，否则不让你保存。RS_CORR_INSERT是标准的挂载入口，在 PUT 之前调用。

FORM frm_insert_corr USING p_objtype TYPE string p_objname TYPE string p_devcls TYPE string CHANGING p_trkorr TYPE trkorr. CALL FUNCTION 'RS_CORR_INSERT' EXPORTING object = p_objtype " DOMA / DTEL / TABL object_class = 'DICT' object_name = p_objname mode = 'I' global_lock = 'X' genflag = ' ' devclass = p_devcls korrnum = p_trkorr IMPORTING korrnum = p_trkorr EXCEPTIONS cancelled = 1 permission_failure = 2 unknown_objectclass = 3 OTHERS = 4. ENDFORM.

这里有两点经验。第一，global_lock = 'X'一定要给，它会在对象级别加一个逻辑锁，防止两个程序同时改同一个对象。批量场景下如果不加锁，遇到并发跑的情况，很可能出现"我这边刚 PUT 完，那边 ACTIVATE 报对象被锁定"的诡异现象。第二，DEVCLASS最好在模板里作为一列显式指定，因为一个批次里的对象可能分属不同的包。如果全部丢进$TMP做本地对象，测试阶段很爽，但要往测试系统和生产系统推的时候就抓瞎了——本地对象不参与传输。

激活是独立的一轮循环，只处理 PUT 成功的对象。

FORM frm_activate_all. DATA: lv_rc TYPE sy-subrc. " 先激活所有域 LOOP AT gt_doma INTO DATA(ls_doma). CALL FUNCTION 'DDIF_DOMA_ACTIVATE' EXPORTING name = ls_doma-domname EXCEPTIONS OTHERS = 1. PERFORM frm_log USING 'DOMA' ls_doma-domname COND #( WHEN sy-subrc = 0 THEN 'S' ELSE 'E' ) COND #( WHEN sy-subrc = 0 THEN '激活成功' ELSE '激活失败，请到 SE11 手工查看' ). ENDLOOP. " 再激活所有数据元素 LOOP AT gt_dtel INTO DATA(ls_dtel). CALL FUNCTION 'DDIF_DTEL_ACTIVATE' EXPORTING name = ls_dtel-rollname EXCEPTIONS OTHERS = 1. " ... 同样的日志处理 ENDLOOP. " 最后激活所有表和结构 LOOP AT gt_tabl INTO DATA(ls_tabl). CALL FUNCTION 'DDIF_TABL_ACTIVATE' EXPORTING name = ls_tabl-tabname EXCEPTIONS OTHERS = 1. " ... 同样的日志处理 ENDLOOP. ENDFORM.

激活函数的参数在不同系统版本上会略有差异，有的版本导出RC参数和日志内表TBLLOG_TAB，有的版本没有。我的写法是用EXCEPTIONS OTHERS = 1兜底，只判断SY-SUBRC，不依赖具体的导出参数。这样做的好处是版本兼容性好，坏处是拿不到详细的错误原因。