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行赋值应该用:=而不是=。基本语法错误。