能否用SQL查询或脚本批量生成IBM DB2 for System I表的FDF文件？

完全可以实现批量生成，无需手动逐个操作，通过AS400自带的脚本工具就能自动化完成，以下是具体实现思路和示例：

核心思路 #

利用AS400的系统表获取目标库内所有表的信息，再通过循环调用生成FDF的系统命令，批量完成创建操作。

1. 获取目标库的所有表 #

通过查询DB2系统视图QSYS2.SYSTABLES，可以精准筛选出目标库中的所有用户表：

SELECT TABLE_NAME 
FROM QSYS2.SYSTABLES
WHERE TABLE_SCHEMA = '你的目标库名' 
  AND TABLE_TYPE = 'TABLE';

2. 编写CL脚本批量生成FDF #

AS400的CL（Control Language）脚本适合处理这类系统级批量操作，以下是示例脚本：

PGM
/* 定义变量：目标库名、表名、FDF文件名 */
DCL VAR(&TARGET_LIB) TYPE(*CHAR) LEN(10) VALUE('你的目标库名')
DCL VAR(&TABLE_NAME) TYPE(*CHAR) LEN(10)
DCL VAR(&FDF_NAME) TYPE(*CHAR) LEN(10)

/* 声明游标，读取目标库下所有表 */
DECLARE TABLE_CURSOR CURSOR FOR
SELECT TABLE_NAME 
FROM QSYS2.SYSTABLES
WHERE TABLE_SCHEMA = &TARGET_LIB 
  AND TABLE_TYPE = 'TABLE';

OPEN TABLE_CURSOR;
FETCH TABLE_CURSOR INTO &TABLE_NAME;

/* 循环处理每个表 */
DOWHILE SQLCOD = 0;
  /* 自定义FDF文件名，比如在表名后加_FDF后缀 */
  CHGVAR VAR(&FDF_NAME) VALUE(&TABLE_NAME || '_FDF')
  
  /* 调用CRTFMTF命令生成格式描述文件，参数可按需调整 */
  CRTFMTF FILE(&TARGET_LIB/&FDF_NAME) TABLE(&TARGET_LIB/&TABLE_NAME)
  
  FETCH TABLE_CURSOR INTO &TABLE_NAME;
ENDDO;

CLOSE TABLE_CURSOR;
ENDPGM

注意事项 #

• 确保执行脚本的用户拥有足够权限：包括目标库的*OBJOPR、*ADD权限，以及CRTFMTF命令的使用权限
• 可根据需求调整FDF的存储位置（比如指定专门的FDF存储库）、命名规则
• 如果需要定制FDF的字段格式或额外配置，可以在CRTFMTF命令中添加对应参数（如SRCFILE指定源文件、TEXT添加描述等）

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