"afiedt.buf" 11 lines, 248 characters
1create or replace procedure inquire(stu_no in students.no%type,
2stu_name out students.name%type )
3is
4BEGIN
5select name into stu_name from students where no=stu_no;
6END;
7commit;
8var inq_name char(10);
9exec inquire('02',:inq_name);
10* print inq_name;
SQL> /
Warning: Procedure created with compilation errors.
try this.
create or replace procedure inquire(stu_no in students.no%type,stu_name out students.name%type )
is
BEGIN
select name into stu_name from students where no=stu_no;
END;
/
var inq_name char(10);
exec inquire('02',:inq_name);
print inq_name;
