CREATE OR REPLACE PACKAGE BODY zsl_pack_message
AS
PROCEDURE getcursor (r_cursor OUT mytype,v_count OUT integer)
IS
BEGIN
OPEN r_cursor FOR select * from ZSL_VW_ZSL_MESSAGE;
v_count:=r_cursor.count;
END;
END zsl_pack_message;
/第3行最后多了一个;号,第8行赋值应该用:=而不是=。基本语法错误。
AS
PROCEDURE getcursor (r_cursor OUT mytype,v_count OUT integer)
IS
BEGIN
OPEN r_cursor FOR select * from ZSL_VW_ZSL_MESSAGE;
v_count:=r_cursor.count;
END;
END zsl_pack_message;
/第3行最后多了一个;号,第8行赋值应该用:=而不是=。基本语法错误。
系统提示:PLS-00487: 对变量 'R_CURSOR' 的引用无效