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

Question

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;

Answer 1

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;