时间戳

首页 > 解决方案 > ORA-30625 - JSON_OBJECT_T

json - ORA-30625 - JSON_OBJECT_T

问题描述

我有以下程序

CREATE OR REPLACE PROCEDURE GetAddress(P_JSON_CLOB_IN IN CLOB, P_JSON_OBJECT_OUT OUT JSON_OBJECT_T) 
AS

V_JSON_OBJ JSON_OBJECT_T := JSON_OBJECT_T.parse(P_JSON_CLOB_IN);

V_ID CUSTOMERS.ID%TYPE;
V_TYPE ADDRESSES.TYPE%TYPE;

V_ADR ADDRESSES%ROWTYPE;

BEGIN
 V_ID := V_JSON_OBJ.GET_STRING('id');
 V_TYPE := V_JSON_OBJ.GET_STRING('type');

 SELECT a.* INTO V_ADR FROM ADDRESSES a 
 INNER JOIN CUSTOMERS c ON c.ID=a.PEOPLEID
 WHERE c.ID = V_ID
 AND a.TYPE = V_TYPE;


 P_JSON_OBJECT_OUT.put('address1',TO_CHAR(V_ADR.ADDRESS1));
 P_JSON_OBJECT_OUT.put('address2',TO_CHAR(V_ADR.ADDRESS2));
 P_JSON_OBJECT_OUT.put('zipmask',TO_CHAR(V_ADR.ZIPMASK));
 P_JSON_OBJECT_OUT.put('city',TO_CHAR(V_ADR.CITY));
 P_JSON_OBJECT_OUT.put('countryCode',TO_CHAR(V_ADR.COUNTRYCODE)); 

 EXCEPTION
 WHEN NO_DATA_FOUND THEN 
   P_JSON_OBJECT_OUT.put('error','NO DATA FOUND');

END;

它编译成功，但是当调用返回 oracle 异常“ORA-30625 Method dispatch on NULL SELF argument is disallowed”在第 21 行。我假设发生错误是因为参数 P_JSON_OBJECT_OUT 需要在添加键/值之前初始化？我如何实现这一目标？

谢谢

标签： jsonplsqloracle12c

解决方案

我找到了解决方案。只需在块的开头添加以下行：

P_JSON_OBJECT_OUT := 新的 JSON_OBJECT_T；

推荐阅读