oracle8.1.5怎样创建一个过程?

[bzszp]

在sqlplus里创建
请写出创建格式,写一个简单例子最好

[m_cen]

create or replace procedure p_year_tran(
tran_month in varchar2 )
is
l_adj_date date;
LS_DATE varchar2(50);
begin
select sysdate - 420 into l_adj_date from dual;
LS_DATE := 'TO_DATE('''||TO_CHAR(l_adj_date, 'YYYY-')||tran_month||'-28'||''', ''YYYY-MM-DD'')';
.....................
END;

[superrg]

Create or replace procedure procedurename{(parametername {in|out} parametertype[,parametername {in|out} parametertype])}
is|as
{variablesname variablestype;}
....
begin
....
exception when ...
end procedurename;
/