AS400 SQL 参数文件上的脚本 returns

Question

我正在使用 Java/JT400 驱动程序将应用程序集成到 AS400。从参数文件中提取数据时遇到问题 - 检索到的数据似乎已编码。

SELECT SUBSTR(F00001,1,20) FROM QS36F."FX.PARA" WHERE K00001 LIKE '16FFC%%%%%' FETCH FIRST 5 ROWS ONLY

输出

00001: C6C9D9C540C3D6D4D4C5D9C3C9C1D34040404040,  - 1
00001: C6C9D9C5406040C3D6D4D4C5D9C3C9C1D3406040,  - 2

如何将其转换为可读格式？有没有我可以用来解码的函数？

在与 AS400 的终端连接上，信息通过相同的 SQL 查询正确显示。

在此之前我没有使用 AS400 的经验，确实需要一些帮助。此问题仅与参数文件有关。数据库表工作正常。

Answer 1

由于文件在 QS36F 中，我猜想该文件是一个平面文件而不是外部定义的...因此如果通过 SQL 访问文件中的数据则必须手动解释.

您可以尝试将该字段转换为字符格式。

（手头没有S/36文件，实在没法试）

Answer 2

它是 EBCDIC 文本的十六进制字节，AS/400 字符集。

static String fromEbcdic(String hex) {
    int m = hex.length();
    if (m % 2 != 0) {
        throw new IllegalArgumentException("Must be even length");
    }
    int n = m/2;
    byte[] bytes = new byte[n];
    for (int i = 0; i < n; ++i) {
        int b = Integer.parseInt(hex.substring(i*2, i*2 + 2), 16);
        bytes[i] = (byte) b;
    }
    return new String(bytes, Charset.forName("Cp500"));
}

通过 "C6C9D9C540C3D6D4D4C5D9C3C9C1D34040404040".

将 Cp500 的文件转换为字符集：

Path path = Paths.get("...");
List<String> lines = Files.readAllLines(path, Charset.forName("Cp500"));

对于在 AS/400 NEL 字符 U+0085 上的行结尾，可以使用正则表达式：

content = content.replaceAll("\R", "\r\n");

正则表达式 \R 将精确匹配一个换行符，无论 \r, \n, \r\n, \u0085.

Answer 3

您看到的是 EBCDIC 输出而不是 ASCII。这是因为如其他答案中所述，数据库中未指定 CCSID。理想的解决方案是将 CCSID 分配给您在数据库中的字段。如果您没有能力这样做，也无法说服负责人这样做，那么以下解决方案也应该有效：

SELECT CAST(SUBSTR(F00001,1,20) AS CHAR(20) CCSID(37))
FROM QS36F."FX.PARA"
WHERE K00001 LIKE '16FFC%%%%%'
FETCH FIRST 5 ROWS ONLY

将 CCSID 替换为您需要的任何一个。可以在此处找到 CCSID 定义：https://www-01.ibm.com/software/globalization/ccsid/ccsid_registered.html

Answer 4

非常感谢您提供的所有答案，它们都是正确的。

它是AS400中的平面参数文件，我无法控制更改系统中的任何内容。所以它必须在 SQL 查询运行时或一旦收到。

我完全不知道代码页是什么，因为我之前没有使用过 AS400 和其中的文件。因此，您的所有回答都有助于解决和启发我。 :)

所以，最好的答案是最后一个。我按如下方式更改了 SQL 并得到了想要的结果。

SELECT CAST(F00001 AS CHAR(20) CCSID 37) FROM QS36F."FX.PARA" WHERE K00001 LIKE '16FFC%%%%%' FETCH FIRST 5 ROWS ONLY

00001：消防广告，- 1 00001: 火灾 - 商业 - , - 2

再次感谢。

迪兰克

AS400 SQL 参数文件上的脚本 returns

AS400 SQL Script on a parameter file returns

java

jdbc

ibm-midrange

jt400