小编Íñi*_*igo的帖子

我的一个程序有问题，它与源文件 CCSID 相关。\n我需要生成一个 JSON 字段。\n在原始程序中，它是从公共表（具有不同列）插入到一个表，定义为 CLOB 以包含使用源表列生成的 JSON。

这是该程序的一个示例，它显示了问题，并且存在相同的问题：

**free\n\nctl-opt dftactgrp(*no) option(*srcstmt:*NODEBUGIO);\n\ndcl-s jsonv varchar(256) ccsid(1145);\ndcl-s text varchar(34) ccsid(1145);\n\nTEXT='TEST, AND TEXT';\nexec sql set :jsonv=json_object('test_text' value :text);\n\nreturn;    \xe2\x80\x8b\n

编译为：

CRTSQLRPGI OBJ(TESTJSON) SRCFILE(LET) SRCMBR(TESTJSON) OPTION(*EVENTF) REPLACE(*YES) DBGVIEW(*SOURCE) LANGID(ESP) CVTCCSID(*JOB)\n

问题是，当我编译来自 CCSID 284 源文件的代码时，它工作正常。

但是当我从 CCSID 65535 的不同源文件编译它时，程序失败。\xc2\xa0

这些是错误：

Derived operands not valid for operator JSON_OBJECT. Reason code 12. \nCharacter conversion between CCSID 65535 and CCSID 1208 not valid.   \n  12 -- The CCSIDs (Coded Character …