这个存储过程怎么调试！？谢谢！

Question

是不是编译过了
运行例子：
SET SERVEROUTPUT ON;
CREATE OR REPLACE PROCEDURE Procdemo(col1 IN varchar2,col2 out varchar2 ) AS
  v_String1   VARCHAR2(50) := 'Hello World!';
BEGIN
  col2 := col1||'is col2';
  DBMS_OUTPUT.PUT_LINE(col1);
END Procdemo;
/declare
t_col2 varchar2(20);
begin
exec Procdemo into t_col2;
DBMS_OUTPUT.PUT_LINE('col2 is:'||col2);
end
/

Answer 1

调试过程最好还是pl/sql developer

Answer 2

SET SERVEROUTPUT ON;
CREATE OR REPLACE PROCEDURE Procdemo(col1 IN varchar2,col2 out varchar2 ) AS
  v_String1   VARCHAR2(50) := 'Hello World!';
BEGIN
  col2 := col1||'is col2';
  DBMS_OUTPUT.PUT_LINE(col1);
END Procdemo;
/
var psql varchar2(1000)
exec Procdemo('test',:psql);
/
print

Answer 3

uuuuuu(accountid  IN char, custtype OUT char)
var cust char;exec uuuuuu('asdfasdf',:cust);print cust;或者：
set serveroutput on 
declare
  cust char;
begin
  uuuuuu('asdfasdf',cust);
  dbms_output.put_line(cust);
end;
/