求急!调试存储过程时,报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;