SQL / RPG DB2 i-Systools.HttpPostClob中的错误
程序编译干净,但作业日志中出现两个错误。
dcl-pr MYTEST ExtPgm;
dcl-parm ParmIn char(3000) CONST Options(*VarSize);
dcl-parm ParmOut char(5000);
end-pr;
dcl-s JsonStr char(5500);
dcl-s PostUrl varchar(2048);
dcl-s HttpHead varchar(2048);
dcl-s Data varchar(2048);
// use SQL to call API.
Exec SQL SELECT JSON_VAL
INTO :JsonStr
FROM Json_Table(
Systools.HttpPostClob(
:PostUrl,
CAST (:HttpHead AS CLOB(10000)),
CAST (:ParmIn AS CLOB(5000000) )
), '$' COLUMNS(JSON_VAL VARCHAR(1000) path '$.json')) as x ;
================================================================================
错误:
-字段HVR00003和* N的属性不兼容。
不支持从CHAR FOR BIT DATA到CLOB的-CAST。
在编译列表中或调试时未注销HVR00003。还不确定我将在哪里投射“从CHAR FOR BIT DATA到CLOB”?
谢谢!