求急!调试存储过程时,报ora-06550 PLS-00103

[duanbaogui]

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;

[hongqi162]

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;