PL/SQL 创建带输入参数的存储过程和循环语法

create or replace procedure test_yurui
(
    p_line in number
) is
    v_line number;
begin
    v_line:=p_line;
    if(v_line<1) then
        dbms_output.put_line('请输入>=1的整数');
    end if;

    for v in 1..p_line loop
        for m in 1..p_line-v loop
            dbms_output.put(' ');
        end loop;

        for n in 1..2*v-1 loop
            dbms_output.put('*');
        end loop;

        dbms_output.put_line('');
    end loop;
end test_yurui;

 

 

带异常处理

CREATE OR REPLACE PROCEDURE Write_Runreport(Vproc_Name VARCHAR2,
                                            Voperate_Desc VARCHAR2,
                                            Vproc_Info VARCHAR2,
                                            Vsys_Info VARCHAR2,
                                            Vuser_Account VARCHAR2,
                                            Vbegin_Time DATE) AS
BEGIN
  --写运行错误报告*****************************
  INSERT INTO SA_Run_Report
    (Run_Report_Id, Proc_Name, Operate_Desc, Proc_Info, Sys_Info,
     User_Account, Begin_Time, End_Time)
  VALUES
    (SEQ_SA.NEXTVAL, Vproc_Name, Voperate_Desc, Vproc_Info,
     Vsys_Info, NVL(Vuser_Account,'Admin'), Vbegin_Time, SYSDATE);
EXCEPTION
  WHEN OTHERS THEN
    NULL;
END;