PL/SQL1

小灰灰 2021-02-05 01:50 363阅读 0赞

create or replace PACKAGE BODY KJZ\_KJZB01\_BTGKJZB0101J18  
AS  
    C\_BATCH\_ID               CONSTANT VARCHAR2 ( 20 ) := 'BTGKJZB0101J18'; --バッチID  
    C\_STUDNT\_SITU\_UPD\_ACPTDT CONSTANT VARCHAR2 ( 30 ) := '受講生状況更新受付データ';   --更新元テーブル名(受講生状況更新受付データ)  
    C\_ACPT\_NUM               CONSTANT VARCHAR2 ( 20 ) := '受付番号';           --受付番号  
    C\_MEG\_ID\_00C             CHAR ( 11 ) := 'MSGCOMB000C';                 --メッセージＩＤ:MSGCOMB000C  
    C\_MEG\_ID\_00G             CHAR ( 11 ) := 'MSGCOMB000G';                 --メッセージＩＤ:MSGCOMB000G  
    C\_MEG\_ID\_00K             CHAR ( 11 ) := 'MSGCOMB000K';                 --メッセージＩＤ:MSGCOMB000K  
    P\_CUST\_NUM               CHAR ( 11 ) ;                                 --顧客番号  
    P\_INTGRT\_AFT\_CUST\_NUM    CHAR ( 11 ) ;                                 --統合後顧客番号  
    P\_CMN\_RETURN\_COD         CHAR ( 1 ) ;                                  --共通部品リターンコード(返回的代？)  
    P\_COMMIT\_CNT             PLS\_INTEGER ;                                 --コミット件数 （？？件数）  
    --受講生状況更新受付データ取得のカーソル定義  
    CURSOR CUR\_STUDNT\_SITU\_UPD\_ACPTDT  
    IS  
        SELECT  
            ACPT\_NUM ,--受付番号  
            CUST\_NUM  --顧客番号  
        FROM  
            STUDNT\_SITU\_UPD\_ACPTDT  
        WHERE  
            ACPT\_CHECK\_RESLT = CMN\_CODE.C\_ACR\_NO\_IMPLMN --受付チェック結果 = 0：未実施  
            AND DEL\_FLG = CMN\_CODE.C\_DEL\_FLG\_UNDEL ;    --AND 削除フラグ = 0:未削除

--@\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*  
    --@ Name   : STUDNT\_SITU\_UPD\_ACPTDT\_UPD(受講生状況更新受付データ更新)  
    --@ Summary: ノーマライズの結果を受講生状況更新受付データに反映する。  
    --@\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*  
    PROCEDURE STUDNT\_SITU\_UPD\_ACPTDT\_UPD (  
            I\_ACPT\_NUM IN VARCHAR2 )  
    IS  
    BEGIN  
        --受講生状況受付チェック更新  
        UPDATE  
            STUDNT\_SITU\_UPD\_ACPTDT  
        SET  
            INTGRT\_AFT\_CUST\_NUM =  
            CASE  
                WHEN P\_INTGRT\_AFT\_CUST\_NUM IS NOT NULL   --チェック後補正で取得できた場合に  
                THEN P\_INTGRT\_AFT\_CUST\_NUM               --チェック後補正で取得されたTO顧客番号  
                ELSE INTGRT\_AFT\_CUST\_NUM                 --上記以外の場合に、更新しない  
            END ,                                        --統合後顧客番号  
            ACPT\_CHECK\_RESLT = CMN\_CODE.C\_ACR\_NORML ,    --受付チェック結果(1:正常)  
            UPD\_DATIME = SYSDATE ,                       --更新日時  
            UPD\_USR\_ID = C\_BATCH\_ID                      --更新ユーザID  
        WHERE  
            ACPT\_NUM = I\_ACPT\_NUM; --受付番号  
        --コミット件数加算（？算件数）  
          P\_COMMIT\_CNT := P\_COMMIT\_CNT + SQL%ROWCOUNT;  
    --例外処理（通用）  
    EXCEPTION  
    WHEN OTHERS THEN  
        RAISE;  
    END STUDNT\_SITU\_UPD\_ACPTDT\_UPD;

--@\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*  
    --@ Name    : BTGKJZB0101J18(受講生状況更新受付チェック)  
    --@ Summary : 取込処理により受講生状況更新受付データに設定されたデータに対して  
    --@           ノーマライズを実施する。  
    --@\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*  
    PROCEDURE BTGKJZB0101J18 (  
            O\_RETURN\_COD OUT CHAR --リターンコード  
        )  
    IS  
        V\_ARY\_MSG CMN\_TYPE.TYP\_ARY\_PARAMS;        --埋め字用パラメータ  
        V\_ARY\_TGT\_MSG CMN\_TYPE.TYP\_ARY\_PARAMS;    --対象件数取得メッセージ用埋め字パラメータ  
        V\_BUSNSS\_DATE CHAR ( 8 ) ;                --業務日付  
        V\_COMMIT\_UNIT PLS\_INTEGER;                --コミット単位  
        V\_TOTAL\_CNT PLS\_INTEGER;                  --受講生状況データの取得件数  
    BEGIN  
        --バッチ共通開始部品  
        CMSKJZ001.START\_PROC ( C\_BATCH\_ID ,--バッチ処理ID  
        P\_CMN\_RETURN\_COD ,                 --リターンコード  
        V\_BUSNSS\_DATE ,                    --業務日付  
        V\_COMMIT\_UNIT                      --コミット単位  
        ) ;

--共通部品リターンコード判定  
        IF ( P\_CMN\_RETURN\_COD <> CMN\_CODE.C\_CMN\_R\_CD\_NORMAL ) THEN  
            RAISE\_APPLICATION\_ERROR ( CMN\_CODE.C\_ERR\_NUM\_CMSKJZ001 ,CMN\_CODE.C\_ERR\_MESSG\_CMSKJZ001 ) ;  
        END IF;

--リターンコード初期値設定  
        O\_RETURN\_COD := CMN\_CODE.C\_R\_CD\_NORMAL;  
        P\_COMMIT\_CNT := 0; --コミット件数初期化(受講生状況更新受付データ)  
        V\_TOTAL\_CNT  := 0; --受講生状況データの取得件数初期化

--入力データを補正するために、取得したデータごとに繰り返す  
        FOR V\_ROW\_STUDNT\_SITU\_UPD\_ACPTDT IN CUR\_STUDNT\_SITU\_UPD\_ACPTDT  --V\_ROW\_STUDNT\_SITU\_UPD\_ACPTDT接受游？的参数  
        LOOP  
            V\_TOTAL\_CNT := CUR\_STUDNT\_SITU\_UPD\_ACPTDT%ROWCOUNT;  --レコード更新数  
            --更新用データ初期化  
            P\_CUST\_NUM := V\_ROW\_STUDNT\_SITU\_UPD\_ACPTDT.CUST\_NUM; --顧客番号  
            P\_INTGRT\_AFT\_CUST\_NUM := NULL;                       --統合後顧客番号  
              
            --顧客統合ＦＲＯＭ－ＴＯ変換テーブルを使用して統合後顧客番号を補正する  
            BEGIN  
                SELECT  
                    CUST\_NUM\_TO --顧客番号＿ＴＯ  
                INTO  
                    P\_INTGRT\_AFT\_CUST\_NUM --統合後顧客番号  
                FROM  
                    CSTINT\_FROMTO\_CONVRT\_TBL  
                WHERE  
                    CUST\_NUM\_FROM = P\_CUST\_NUM               --顧客番号＿ＦＲＯＭ = ※受講生状況更新受付データ.顧客番号  
                    AND DEL\_FLG = CMN\_CODE.C\_DEL\_FLG\_UNDEL ; --AND 削除フラグ = 0:未削除  
            --例外処理  
            EXCEPTION  
            --取得できなかった場合  
            WHEN NO\_DATA\_FOUND THEN  
                NULL;  
            END;

--受講生状況受付データ更新  
            STUDNT\_SITU\_UPD\_ACPTDT\_UPD ( V\_ROW\_STUDNT\_SITU\_UPD\_ACPTDT.ACPT\_NUM ) ;

END LOOP;

--対象件数出力処理  
        V\_ARY\_TGT\_MSG ( 1 ) := C\_STUDNT\_SITU\_UPD\_ACPTDT; --受講生状況更新受付データ  
        V\_ARY\_TGT\_MSG ( 2 ) := TO\_CHAR ( V\_TOTAL\_CNT ) ; --対象件数  
        CMSKJZ003.INFO ( C\_MEG\_ID\_00C ,                  --メッセージID  
        MSG\_CONST.MSGCOMB000C ,                          --メッセージ  
        V\_ARY\_TGT\_MSG ,                                  --埋め字用配列  
        C\_BATCH\_ID ,                                     --ユーザーID  
        P\_CMN\_RETURN\_COD ) ;                             --リターンコード

--DBコミットを行う  
        IF ( P\_COMMIT\_CNT <> 0 ) THEN  
            COMMIT;  
            V\_ARY\_TGT\_MSG ( 1 ) := C\_STUDNT\_SITU\_UPD\_ACPTDT;  --受講生状況更新受付データ  
            V\_ARY\_TGT\_MSG ( 2 ) := TO\_CHAR ( P\_COMMIT\_CNT ) ; --コミット件数  
            --コミットログ  
            CMSKJZ003.INFO ( C\_MEG\_ID\_00G ,--メッセージID  
            MSG\_CONST.MSGCOMB000G ,        --メッセージ  
            V\_ARY\_TGT\_MSG ,                --埋め字用配列  
            C\_BATCH\_ID ,                   --ユーザーID  
            P\_CMN\_RETURN\_COD ) ;           --リターンコード  
        END IF;

--正常終了  
        O\_RETURN\_COD := CMN\_CODE.C\_R\_CD\_NORMAL;  
        --バッチ共通終了部品  
        CMSKJZ002.END\_PROC ( C\_BATCH\_ID ,--バッチ処理ID  
        V\_TOTAL\_CNT ,                    --正常処理件数  
        V\_TOTAL\_CNT ,                    --処理対象件数  
        V\_BUSNSS\_DATE ,                  --業務日付  
        P\_CMN\_RETURN\_COD ,               --部品用リターンコード  
        O\_RETURN\_COD                     --バッチ用リターンコード  
        ) ;

--共通部品リターンコード判定  
        IF ( P\_CMN\_RETURN\_COD <> CMN\_CODE.C\_CMN\_R\_CD\_NORMAL ) THEN  
            RAISE\_APPLICATION\_ERROR ( CMN\_CODE.C\_ERR\_NUM\_CMSKJZ002 ,CMN\_CODE.C\_ERR\_MESSG\_CMSKJZ002 ) ;  
        END IF;

--例外処理  
    EXCEPTION  
    --例外が発生した場合、DBロールバックを行う  
    WHEN OTHERS THEN  
        --バッチ共通エラー処理  
        CMSKJZ051.CMN\_ERR\_PROC ( C\_BATCH\_ID ,--バッチ処理ID  
        P\_CMN\_RETURN\_COD                     --リターンコード  
        ) ;  
        --ロールバック  
        ROLLBACK;  
        --ロールバックメッセージ  
        CMSKJZ003.INFO ( C\_MEG\_ID\_00K ,--メッセージID  
        MSG\_CONST.MSGCOMB000K ,        --メッセージ  
        V\_ARY\_MSG ,                    --埋め字用配列  
        C\_BATCH\_ID ,                   --ユーザーID  
        P\_CMN\_RETURN\_COD ) ;           --リターンコード  
        --異常終了  
        O\_RETURN\_COD := CMN\_CODE.C\_R\_CD\_ERR;  
    END BTGKJZB0101J18;

END KJZ\_KJZB01\_BTGKJZB0101J18;