ORA-06550 过程创建时出现编译错误

Question

创建一个名为 'find_company' 的函数，它接受一个字符并显示公司名称以使用光标输入的给定字符开头。 提示： 程序名称：find_company 输入参数：alpha，数据类型为 varchar 输出参数：company_name，数据类型为 varchar 设计规则： 1) 如果作为输入传递的字符（即 alpha）匹配，则返回公司名称。 2) 如果作为输入传递的字符（即 alpha）不匹配，则使用 'cursorname%notfound' 返回带有文本为 'No such Companies with the given Character' 的 company_name。

我编码如下

create or replace procedure find_company (alpha IN varchar2)
AS
cursor test_cur(alpha IN VARCHAR2)
 IS
 select name from company where name like alpha||'%';
 ret _company_name company.name%TYPE;
begin
 OPEN test_cur(alpha);
 LOOP
 FETCH test_cur into ret_company_name;
   dbms_output.put_line(ret_company_name);
   EXIT WHEN test_cur%NOTFOUND THEN ret_company_name:='No Such Companies with the given Character';
 close test_cur;
end;
/

出现以下错误： 警告：创建的过程存在编译错误。 d := find_company('C'); * 第 7 行的错误： ORA-06550：第 7 行，第 9 列： PLS-00905：对象 P10456.FIND_COMPANY 无效 ORA-06550：第 7 行，第 4 列： PL/SQL：语句被忽略

我哪里做错了？我没有使用“显示错误”命令的选项

Answer 1

我将代码更改如下，但仍然遇到问题 -

create or replace procedure find_company (alpha IN varchar2, ret _company_name OUT varchar2)
AS
cursor test_cur
 IS
 select name from company where name like alpha||'%';
 ret _company_name company.name%TYPE;
begin
 OPEN test_cur(alpha);
 LOOP
 FETCH test_cur into ret_company_name;
   dbms_output.put_line(ret_company_name);
   exit WHEN test_cur%NOTFOUND THEN ret_company_name:='No Such Companies with the given Character';
 end loop;
 close test_cur;
/

Answer 2

CREATE OR REPLACE FUNCTION find_company(alpha IN VARCHAR) RETURN VARCHAR
    IS
    company_name VARCHAR (50);
        CURSOR c1 IS
        SELECT name
        FROM Company
        WHERE substr(name,0,1) =alpha;
        BEGIN
           OPEN c1;
           LOOP
           FETCH c1 into company_name;
           EXIT;
           END LOOP;
           
           IF c1%notfound THEN
              company_name :='No Such Companies with the given Character';
          END IF;
          CLOSE c1;
           RETURN company_name;
        END;
    /