如何在PL/I中将UTF-8 Unicode字符串打印为EBCDIC格式？

核心结论 #

PL/I本身没有内置的UTF-8到EBCDIC直接转换指令，必须依赖z/OS的Unicode服务完成编码转换后，再进行输出才能避免乱码。

具体实现步骤 #

• 调用z/OS Unicode转换服务：使用CEEUTF或CSNDLTR这类ICONV体系的服务，将UTF-8编码的变量转换为目标EBCDIC编码（常用IBM-1047）。
• 转换后输出：把转换完成的EBCDIC变量用PUT SKIP EDIT语句输出，此时就能得到正确的文本内容。

示例代码片段 #

DCL VAR_UTF8 CHAR(100) VARYING;
DCL VAR_EBCDIC CHAR(100) VARYING;
DCL RC FIXED BINARY(31);

/* 假设VAR_UTF8已存储UTF-8编码内容 */
CALL CEEUTF(VAR_UTF8, 'UTF-8', 'IBM-1047', VAR_EBCDIC, RC);

IF RC = 0 THEN
  PUT SKIP EDIT('VAR: ', VAR_EBCDIC) (A, A);
ELSE
  PUT SKIP EDIT('转换失败，返回码：', RC) (A, Z9);

直接PUT输出乱码的原因 #

直接用PUT SKIP EDIT输出UTF-8变量时，PL/I会将变量的字节内容当作当前默认编码（通常为EBCDIC）解析，而UTF-8与EBCDIC的编码映射完全不兼容，因此会出现VAR: & (!¢这类乱码。

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