cursor crgetsub is
select substr(t$sitm,10,15)
from ttibom010300
where t$mitm=v_mdl and t$pono=v_pos and t$seqn <> v_seq ;
begin
open crgetsub;
LOOP
fetch crgetsub into v_item;
if instr(v_subinfo,v_item)=0 then
v_subinfo := v_subinfo || ' SUB: ' || v_item ;
end if;
EXIT WHEN crgetsub%NOTFOUND or crgetsub%NOTFOUND is null;
End Loop;
close crgetsub;
return v_subinfo;
end;
select substr(t$sitm,10,15)
from ttibom010300
where t$mitm=v_mdl and t$pono=v_pos and t$seqn <> v_seq ;
begin
open crgetsub;
LOOP
fetch crgetsub into v_item;
if instr(v_subinfo,v_item)=0 then
v_subinfo := v_subinfo || ' SUB: ' || v_item ;
end if;
EXIT WHEN crgetsub%NOTFOUND or crgetsub%NOTFOUND is null;
End Loop;
close crgetsub;
return v_subinfo;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货