求急!调试存储过程时,报ora-06550 PLS-00103
create   or   replace   procedure   P_grade(abc   varchar2)
    as
    gradeid   varchar2(10);
 
    begin
    select   ptgradeid   INTO   gradeid   FROM   B_PILOTTECHGRADE   where   ptgradeid   =   abc;
    dbms_output.put_line(gradeid);
    end   P_gradebe;
    /
   
    begin
      exec   P_grade( 'M ');
      end;

------解决方案--------------------
create table B_PILOTTECHGRADE (ptgradeid varchar2(100) );
insert into B_PILOTTECHGRADE values( 'aa ');

create or replace procedure P_grade(abc in varchar2)
as
gradeid varchar2(10);

begin
select ptgradeid INTO gradeid FROM B_PILOTTECHGRADE where ptgradeid = abc;
dbms_output.put_line(gradeid);
end P_grade;

declare
begin
p_grade( 'aa ' );
end;