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 не совместимы.
-CAST из CHAR FOR BIT DATA в CLOB не поддерживается.
Нет подписи HVR00003 в списке компиляции или при отладке.Также не уверен, где я буду отливать "из CHAR для бит данных в CLOB"?
Спасибо!