開源俱樂部

PL/SQL程序包中，
方法一：
           包頭：
           create or replace package   XXXX_X_XXX_PKG    is

                   PROCEDURE   A(errbuf           OUT VARCHAR2,
                            retcode                   OUT    VARCHAR2,
                            p_1                        IN    VARCHAR2,
                            p_2                        IN    NUMBER);

           end XXXX_X_XXX_PKG ;

 注：包頭中聲明一個(gè)Procedure, 包體中聲明一個(gè)主Procedure(例如: A),多個(gè)從Procedure(一般是些共用方法)(例如：B), 注意包體中Procedure實(shí)現(xiàn)次序，應(yīng)先聲明B ,
在A過程里，可以調(diào)用B.

方法二: 
      包頭: 
      create or replace package   XXXX_X_XXX_PKG    is

                   PROCEDURE    A(errbuf           OUT VARCHAR2,
                            retcode                   OUT    VARCHAR2,
                            p_1                        IN    VARCHAR2,
                            p_2                        IN    NUMBER);

                   PROCEDURE    B( retcode          OUT    VARCHAR2,
                            p_1                        IN    VARCHAR2,);

           end XXXX_X_XXX_PKG ;
      包體中,此時(shí)A可以直接引用B,不論實(shí)現(xiàn)次序.