最簡存儲過程

--包的建立：

create or replace package pkg_test_01 as

 --對於新增，統籌範圍外轉入人員，新建我的帳戶信息

procedure pro_xjgrzh(

                            prm_shbzh  IN CHAR, --我的社會保障號

                            prm_dwsxh IN NUMBER, --單位順序號

                            prm_date IN DATE,--參保日期

                            prm_AppCode  OUT VARCHAR2,
                            prm_ErrorMsg OUT VARCHAR2

);

end pkg_test_01;

/

show errors;

--過程的建立

create or replace package body pkg_test_01 is

procedure pro_xjgrzh(

                            prm_shbzh  IN CHAR, --我的社會保障號

                            prm_dwsxh IN NUMBER, --單位順序號

                            prm_date IN DATE,--參保日期

                            prm_AppCode  OUT VARCHAR2,
                            prm_ErrorMsg OUT VARCHAR2

)  is

/*===========變量聲明 BEGIN============*/
        v_lsh  VARCHAR2(20);--流水號
        v_date DATE;
        v_flag PLS_INTEGER := 0; --檢查特殊工種是否重複標誌
        num_count integer;
        /*===========變量聲明 END==============*/
   
        /*===========遊標聲明 BEGIN============*/
         CURSOR cur_tmp_ia02 IS
           SELECT *
             FROM tmp_ia02
            where aac001 = prm_AAC001;
        /*===========遊標聲明 END==============*/

 BEGIN

    --語句說明

    語句;

    長語句第一行

   續行1

   續行2;

    語句;

    IF 判斷條件組合 THEN

    --分支處理說明

   語句;

    ELSIF … THEN

   語句;

    ELSE

   語句;

    END IF;

    FOR … LOOP

   循環體;

    END LOOP;

  EXCEPTION

    WHEN … THEN

       例外處理語句;

  END pro_xjgrzh;

END pkg_test_01;

/

show error;