调用存储过程时,定义变量declare一定要在begin之前。
declare
-- Local variables here
i integer;
a VARCHAR(100);
b VARCHAR(20);
abc LBG;
v_values plmpackage.plmresultset;
begin
abc:=LBG('1001AA100000000001JO', '1001AA10000000000GZE', '1001AA100000000001JP', '1001AA10000000000GZG');
-- Test statements here
--a := 'INSERT INTO PLMLK.PLM_TMP_RPTREFVALUES (PKID,ts) VALUES (''sdf'',''sdf'')';
--dbms_output.put_line(a);
--execute immediate a;
-- SELECT PKID INTO b FROM PLM_TMP_RPTREFVALUES;
plm_abcgetmodel('part', 'lcstate', 'name', 'pk_id', abc,v_values);
end;
declare c_cur plmpackage.plmresultset; linktype varchar2(20);
begin
linktype:='shiplink';
-- Call the procedure
plm_getpllftsingleexpland(linktype,
'',
'',
'V',
'm.m_id, m.m_name',
'fe0b1ebc-4c6d-4dd4-80a8-e0f18a200121',
'',
5000,
c_cur);
end;
declare
-- Local variables here
i integer;
a VARCHAR(100);
b VARCHAR(20);
abc LBG;
v_values plmpackage.plmresultset;
begin
abc:=LBG('1001AA100000000001JO', '1001AA10000000000GZE', '1001AA100000000001JP', '1001AA10000000000GZG');
-- Test statements here
--a := 'INSERT INTO PLMLK.PLM_TMP_RPTREFVALUES (PKID,ts) VALUES (''sdf'',''sdf'')';
--dbms_output.put_line(a);
--execute immediate a;
-- SELECT PKID INTO b FROM PLM_TMP_RPTREFVALUES;
plm_abcgetmodel('part', 'lcstate', 'name', 'pk_id', abc,v_values);
end;
declare c_cur plmpackage.plmresultset; linktype varchar2(20);
begin
linktype:='shiplink';
-- Call the procedure
plm_getpllftsingleexpland(linktype,
'',
'',
'V',
'm.m_id, m.m_name',
'fe0b1ebc-4c6d-4dd4-80a8-e0f18a200121',
'',
5000,
c_cur);
end;