SQL / RPG DB2 i-Systools.HttpPostClob

时间:2019-02-12 00:08:40

标签: api ibm-midrange db2-400

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”?

谢谢!

0 个答案:

没有答案