開源俱樂部

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 ;

 注：包頭中聲明一個Procedure, 包體中聲明一個主Procedure(例如: A),多個從Procedure(一般是些共用方法)(例如：B), 注意包體中Procedure實現(xiàn)次序，應先聲明B ,
在A過程里，可以調用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 ;
      包體中,此時A可以直接引用B,不論實現(xiàn)次序.