存储过程里用了数据链路 程序调的话报cursor closed

Question

存储过程里用了数据链路 
单独测试没有问题
java程序调的话报cursor closed 不知道什么原因create or replace package body P_KCTP_KSSQ isprocedure getForKsyyShowInfo(lshPIn in varchar2,kskmPIn in varchar2,glbmPIn in varchar2,rcOut out t_Cursor,result out integer,bz out varchar2)is
sqlstr varchar2(500);
--kskm drv_flow.kskm@TO_TYB_DRV%Type;
--zt drv_preasign.zt@TO_TYB_DRV%Type;
kskm varchar2(10);
zt varchar2(10);
begin
--查看给定流水号能否报考该科目
declare
begin
set transaction read only;
select substr(t.kskm,decode(kskmPIn,'1',0,'2','3','3',6),2) into kskm from drv_flow@TO_TYB_DRV t where t.lsh=lshPIn and t.glbm=glbmPIn;
commit;
exception
when others then
raise_application_error (-20101, '没有符合此流水号的信息');
rollback;
end;if(kskm <>'01') then 
raise_application_error (-20101, '不能报考该科目'); 
end if;--查询该流水号报考的科目是否已考试
declare
begin
set transaction read only;
select t.zt into zt from drv_preasign@TO_TYB_DRV t where t.lsh=lshPIn and t.glbm=glbmPIn;
commit;
exception
when others then
raise_application_error (-20101, '没有符合的数据');
rollback;
end;if(zt='1') then
raise_application_error (-20101, '该科目已考试合格'); 
end if;
--查询该流水号信息
--set transaction read only;
sqlstr :='select t.sfzmhm as zjhm,GETZJMC(t.sfzmmc) as zjmc,GETGJ(t.gj) as gj,t.xm as xm,decode(t.xb,''1'',''男'',''2'',''女'') as xb,t.csrq as csrq,t.djzsxxdz as djzsxxdz,t.djzsxzqh as djzsxzqh,t.lxzsxzqh as lxzsxzqh,t.lxzsxxdz as lxzsxxdz,t.lxdh as lxdh ,t.jxmc as jxmc ,a.kscx as kscx from drv_preasign@TO_TYB_DRV a , drv_temp_mid@TO_TYB_DRV t where a.lsh=t.lsh and t.lsh=:p0 and t.glbm=:p1';
open rcOut for sqlstr using lshPIn,glbmPIn;
result :=0;
bz:='执行成功';
--commit;
exception
when others then
--rollback;
result :=1;
bz:=sqlerrm;end;

Answer 1

竟然测试了没有问题，java 调用有问题，是不是更应该贴出java 端调用代码呢？另外什么是数据链路啊，解释下 谢谢-_-

Answer 2

java调用代码是公司的程序，没法贴出来

Answer 3

找到原因了https://forum.hibernate.org/viewtopic.php?f=1&t=998604&start=0