初学者求助

Question

CREATE OR REPLACE PACKAGE pkg_test
AS
   TYPE myrctype IS REF CURSOR;   PROCEDURE get (p_name varchar2, p_rc OUT myrctype);
END pkg_test;
/CREATE OR REPLACE PACKAGE BODY pkg_test
AS
   PROCEDURE get (p_name varchar, p_rc OUT myrctype)
   IS
      sqlstr   VARCHAR2 (500);
   BEGIN
      sqlstr :=
            'select tcn from t where tname=:name';
         OPEN p_rc FOR sqlstr USING p_name;
   END get;
END pkg_test;/