使用JRecord处理01分隔copybook的VB格式EBCDIC转ASCII乱码问题

1 修正初始化配置 #

原有初始化代码缺少VB格式适配、主机COBOL方言的关键配置，修正后代码如下：

ICobolIOBuilder iob = CobolIoProvider.getInstance()
    .newIOBuilder(copybookName)
    .setCopybookFileFormat(Convert.FMT_MAINFRAME)
    // 若确认VB文件无4字节RDW，可将参数替换为Constant.IO_VB_DUMP
    .setFileOrganisation(Constant.IO_VB)
    .setRecordFormat(Constant.FMT_VB)
    .setSplitCopybook(CopybookLoader.SPLIT_01_LEVEL)
    // 若为非美国地区主机，可替换为对应EBCDIC编码（如欧洲cp273、日本cp930）
    .setFont("cp037")
    .setDialect(ICopybookDialects.FMT_MAINFRAME_COBOL)
    .setDropCopybookNuls(false);

注意：如果文件是从主机FTP传输到本地，必须使用二进制模式传输，ASCII模式会篡改EBCDIC编码的RDW和字段内容，是最常见的乱码诱因

2 调整记录读取逻辑适配01级拆分规则 #

使用SPLIT_01_LEVEL参数时，JRecord不会自动匹配当前记录对应的01结构，需要手动根据记录标识字段匹配解析规则，否则会用错结构解析导致乱码，示例读取逻辑如下：

AbstractLineReader reader = iob.newReader(ebcdicFilePath);
AbstractLine line;
while ((line = reader.read()) != null) {
    // 取所有01结构共有的前缀记录类型字段（一般位于记录前1-4字节，根据实际copybook调整字段名）
    String recordType = line.getFieldValue(0, "RECORD-TYPE").asString().trim();
    int copybookIndex;
    // 根据记录类型匹配对应的01级copybook结构索引
    if ("A".equals(recordType)) {
        copybookIndex = 0; // 对应copybook中第一个01结构
    } else if ("B".equals(recordType)) {
        copybookIndex = 1; // 对应copybook中第二个01结构
    } else {
        // 未知记录类型可打日志跳过，避免解析错误
        continue;
    }
    // 普通字符字段直接取字符串即可自动转ASCII
    String normalField = line.getFieldValue(copybookIndex, "NORMAL_FIELD_NAME").asString();
    // 打包十进制（COMP-3）字段直接取数值，JRecord会自动解析无需手动转码
    long comp3Field = line.getFieldValue(copybookIndex, "COMP3_FIELD_NAME").asLong();
    // 后续按需求处理输出即可
}
reader.close();

3 残余特殊字符排查 #

• 若出现�类乱码：确认EBCDIC编码和主机实际编码一致，可联系主机侧确认编码版本
• 若出现大量ÿ/NUL空字符：核对copybook记录总长度和实际VB记录长度是否匹配，检查是否有遗漏字段定义
• 若打包十进制字段显示乱码：确认copybook中该字段定义为COMP-3类型，不要将COMP-3字段按字符串类型取值

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