最简存储过程

--包的创建：

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;