DB2 for i 7.3：RPGLE写入时CURRENT_TIMESTAMP默认值偶发失效

我之前在处理DB2 for i 7.3的DDS转DDL迁移项目时，刚好碰到过几乎一模一样的问题！这本质上是传统RPG文件I/O和SQL约束行为不兼容导致的，下面给你拆解原因和解决方案：

问题根源 #

RPGLE程序如果使用的是**传统文件操作（比如WRITE、UPDAT）**而非SQL接口，DB2 for i 7.3对DDL表的DEFAULT约束支持有限。传统DDS文件的默认值是在文件层处理的，而DDL表的DEFAULT是SQL级别的约束，传统I/O不会主动触发这个约束；而SQL INSERT操作完全遵循SQL规则，所以始终能正确填充默认值。

具体解决方案 #

1. 重新编译RPGLE程序，绑定到DDL表的最新元数据 #

如果你的RPG程序是基于旧DDS文件编译的，即使替换成DDL表，程序仍然会沿用旧的文件描述。你需要：

• 删除程序中旧的DDS文件引用，替换为DDL表的名称
• 用CRTRPGMOD重新编译模块，再用CRTPGM生成程序
• 编译时确保程序能读取到DDL表的完整元数据（比如不要用旧的成员或别名）

2. 修改RPGLE程序，改用SQL INSERT操作 #

这是最稳妥的方案，完全对齐SQL约束行为：
在RPGLE中嵌入SQL语句代替传统WRITE，示例代码：

DCL-S col1 CHAR(10);
DCL-S col2 DEC(10,2);

// 赋值逻辑...

EXEC SQL
  INSERT INTO YOUR_DDL_TABLE (COL1, COL2)
  VALUES (:col1, :col2);

这样执行时，未指定的TIMESTAMP列会自动触发DEFAULT CURRENT_TIMESTAMP约束，和手动执行SQL INSERT效果一致。

3. 为DDL表开启传统I/O的默认值支持 #

如果不想修改程序逻辑，可以通过SQL语句让传统I/O也能识别DDL的默认值：

ALTER TABLE YOUR_DDL_TABLE
  ALTER COLUMN YOUR_TIMESTAMP_COL
  SET DEFAULT CURRENT_TIMESTAMP FOR I/O;

这条语句会为该列开启传统文件I/O的默认值支持，之后RPG的WRITE操作就能自动填充默认值了。

4. 验证DDL表的约束是否生效 #

先确认你的DDL定义没有问题，执行以下SQL查看列属性：

DESCRIBE TABLE YOUR_DDL_TABLE;

或者用系统命令查看文件详情：

DSPFD FILE(YOUR_DDL_TABLE) TYPE(*ATR) OUTPUT(*PRINT)

检查输出中该TIMESTAMP列的Default Value是否为CURRENT_TIMESTAMP，且Nullable属性为NO。

额外调试建议 #

• 在RPG程序中添加调试断点，查看写入前该TIMESTAMP变量是否为空，是否有被程序意外赋值
• 测试时用DSPPFM查看表数据，确认失效时该列是否为NULL（如果是NOT NULL约束，说明程序可能绕过了约束，这时候要检查程序的错误处理）

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