ITPub博客

首页 > Linux操作系统 > Linux操作系统 > tcbs_批量存储过程_输出参数out与异常的关系

tcbs_批量存储过程_输出参数out与异常的关系

原创 Linux操作系统 作者:wisdomone1 时间:2012-07-06 11:37:26 0 删除 编辑
PROCEDURE proc_FINDNEXTQUEUE (    in_QUETYPCATCD        IN    QueTypCat.QUETYPCATCD%TYPE,
                    in_NTWKNODENBR        IN    Que.AssignedNtwkNodeNbr%TYPE,
                    in_POSTDATE            IN    DATE,
                    in_DEBUGYN            IN    CHAR,
                    out_QueNbr            OUT    Que.QueNbr%TYPE,
                    out_ERRORNBR         OUT    NUMBER,
                    out_ERRORMSG         OUT    VARCHAR2,
                    out_ORAERRORMSG     OUT    VARCHAR2 )

/************************************************************************************************/
/*****                                                                                        *****/
/*****        PROCEUDRE NAME:         pack_BATCHAUTO.proc_FINDNEXTQUEUE                        *****/
/*****                                                                                        *****/
/*****        DESCRIPTION:         This procedure will find the next queue to be assigned     *****/
/*****                        and return the number to the calling procedure.                    *****/
/*****                                                                                        *****/
/*****                                                                                        *****/
/*****        MODIFICATION HISTORY:                                                            *****/
/*****                                                                                        *****/
/*****        2/6/2006 - MSG - Rewritten to only find the next queue, not copy them all        *****/
/*****                                                                                        *****/
/*****        12/12/2005, Modified by Sachin at RSI for new Month Code Parameter                *****/
/*****        while calculating schedule date and copying templates with                         *****/
/*****        RequiredNtwkNodeNbr as NULL                                                        *****/
/*****                                                                                        *****/
/************************************************************************************************/

AS

/***************************************************************************************/
/*****        CURSOR  VARIABLE                                            *****/
/***************************************************************************************/


       CURSOR curs_QUETEMPLATE (    cpsQueTypCatCd QueTypCat.QueTypCatCd%TYPE ) IS
        SELECT    A.QueNbr, A.EffDateCalc, B.CalPeriodCd, B.DayNbr, B.WeekDayCd, B.MonthCd,
                  A.Priority, A.SeqNbr, A.RequiredNtwkNodeNbr
        FROM    Que A, QueTyp B, QueTypCat C
        WHERE    A.QueTypCd = B.QueTypCd
        AND        B.QueTypCatCd = C.QueTypCatCd
        AND        C.QueTypCatCd = cpsQueTypCatCd
        AND        A.TemplateYN = 'Y'
        AND        (( A.RequiredNtwkNodeNbr = in_NTWKNODENBR) OR ( A.RequiredNtwkNodeNbr IS NULL) )     -- Modified by Sachin at RSI on 12/12/2005
        AND        (( A.DateLastCopied < in_POSTDATE) OR (A.DateLastCopied IS NULL ) )
        ORDER BY A.Priority , A.SeqNbr ;

/************************************************************************************/
/*****        OSI    ERROR PROCESSING VARIABLES                            *****/
/************************************************************************************/

    OSI_GENERAL_ERROR        EXCEPTION;
    lvnErrorNbr            INTEGER;
    lvnUserPersNbr            INTEGER;
    lvsActvMsg            VARCHAR2(100);
    lvsSubProcErrorMsg        VARCHAR2(100);
    lvsORACLEMsg            VARCHAR2(100);

/************************************************************************************/
/*****        GENERAL    PROCEDURE VARIABLES                                *****/
/************************************************************************************/

    OSI_FOUND_A_QUEUE    EXCEPTION;
       lvnQueNbr        Que.QueNbr%TYPE;
       lvnPriority        Que.Priority%TYPE;
       lvnLastPriority        Que.Priority%TYPE;
       lvnSeqNbr        Que.SeqNbr%TYPE;
       lvsEffDateCalc        Que.EffDateCalc%TYPE;
       lvdPostDate        DATE;
    lvsCalPeriodCd        QueTyp.CalPeriodCd%TYPE;
    lvsWeekDayCd        QueTyp.WeekDayCd%TYPE;
    lvnDayNbr        QueTyp.DayNbr%TYPE;
    lvsMonthCd        QueTyp.MonthCd%TYPE;
    lvnRequiredNtwkNodeNbr    Que.AssignedNtwkNodeNbr%TYPE;
    lvsCopy            CHAR(1);

/************************************************************************************/
/*****                           PROCEDURE CONSTANTS                         *****/
/************************************************************************************/

    lcsDebugProcCd    CONSTANT    VARCHAR2(4) := 'CAQU';

BEGIN

    lvdPostDate := TO_DATE(TO_CHAR(in_POSTDATE, 'MM-DD-YYYY'), 'MM-DD-YYYY');
    lvnLastPriority := -1;
        lvsActvMsg := 'Opening the cursor curs_QUETEMPLATE';

        OPEN curs_QUETEMPLATE ( in_QUETYPCATCD ) ;
    LOOP

        lvsActvMsg := 'Fetch curs_QUETEMPLATE for quetypcatcd';

                FETCH    curs_QUETEMPLATE
                  INTO    lvnQueNbr ,
                lvsEffDateCalc ,
                lvsCalPeriodCd ,
                lvnDayNbr ,
                lvsWeekDayCd,
                lvsMonthCd,
                lvnPriority,
                lvnSeqNbr,
                lvnRequiredNtwkNodeNbr;

            EXIT WHEN curs_QUETEMPLATE%NOTFOUND;

        lvsActvMsg := 'Executing proc_SCHEDATE';

        proc_SCHEDATE    (lvsCalPeriodCd, lvnDayNbr, lvsWeekDayCd, lvsMonthCd, lvdPostDate, in_DEBUGYN,                -- Modified by Sachin at RSI on 12/12/2005
                lvsCopy, lvnErrorNbr, lvsSubProcErrorMsg, lvsORACLEMsg );

        IF ( lvnErrorNbr > 0 ) THEN
            lvsActvMsg := lvsSubProcErrorMsg;
            RAISE OSI_GENERAL_ERROR;
        END    IF;

        IF lvsCopy = 'Y' THEN
            RAISE OSI_FOUND_A_QUEUE;
        End If;

    END LOOP;
    out_QueNbr := 0;
EXCEPTION

    WHEN OSI_FOUND_A_QUEUE THEN

        out_QueNbr := lvnQueNbr;
        out_ERRORNBR := 0;

    WHEN OSI_GENERAL_ERROR THEN

        IF ( lvnErrorNbr > 0 ) THEN
            out_ERRORNBR :=    lvnErrorNbr;
        ELSE
            out_ERRORNBR :=    1001;
        END    IF;

        out_ORAERRORMSG    := lvsORACLEMsg;
        out_ERRORMSG :=    lvsActvMsg||'-'||lcsDebugProcCd;

    WHEN OTHERS    THEN

        lvsORACLEMsg    :=    SUBSTR(SQLERRM,    1, 100);
        out_ORAERRORMSG    :=    lvsORACLEMsg;
        out_ERRORNBR    :=    ABS(SQLCODE);
        out_ERRORMSG    :=    lvsActvMsg;

END proc_FINDNEXTQUEUE;

小结:存储过程的输出参数可以在异常中输出,当然一般不发生异常则正常输出
            

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/9240380/viewspace-734772/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论
提供针对oracle初学者及进阶的数据库培训,欢迎大家咨询: 微信: wisdomone 微信公众号: lovedb qq: 305076427 微博: wisdomone9

注册时间:2008-04-04

  • 博文量
    2164
  • 访问量
    11697261