PL/SQL

最新推荐文章于 2024-08-12 10:43:45 发布

zhouwei1818

最新推荐文章于 2024-08-12 10:43:45 发布

阅读量226

点赞数

本文链接：https://blog.csdn.net/zhouwei1818/article/details/81567768

版权

该PL/SQL包定义了一个名为BTGKJZB0101J04的过程，用于对住名变更优先级进行判断和处理。过程首先获取受付检查结果正常的特定数据，然后根据条件更新住名变更处理状态，包括设置为未实施、实施数值、错误数据和正常数据的处理。此外，还包含一些辅助过程来处理更新操作。

摘要由CSDN通过智能技术生成

--@****************************************************************************
--@ System           : 基幹システム
--@ Name             : BTGKJZB0101J04(住名変優先度判定処理)
--@ Revision History : 新規作成(V1.0)(2018/04/25)(WR文相杰)
--@****************************************************************************
CREATE OR REPLACE PACKAGE KJZ_KJZB01_BTGKJZB0101J04
AS
    --@****************************************************************************
    --@ Name    : BTGKJZB0101J04(住名変優先度判定処理)
    --@ Summary : 受付チェック結果が正常と判定された以下データに対して
    --@           優先順位チェックを実施する。
    --@****************************************************************************
    PROCEDURE BTGKJZB0101J04 (
            O_RETURN_COD OUT CHAR --リターンコード
        ) ;
END KJZ_KJZB01_BTGKJZB0101J04;
/
CREATE OR REPLACE PACKAGE BODY KJZ_KJZB01_BTGKJZB0101J04
AS
    C_BATCH_ID                     CONSTANT VARCHAR2 ( 20 ) := 'BTGKJZB0101J04'; --バッチID
    C_JMH_ACPTDT                   CONSTANT VARCHAR2 ( 30 ) := '住名変受付データ'; --更新元テーブル名(住名変受付データ)
    C_JMH_PRCS_IMPLMN_DN_FLG_NOT   CONSTANT VARCHAR2 ( 1 ) := '0';               --住名変処理実施済フラグ:「0：未実施」
    C_JMH_PRCS_IMPLMN_DN_FLG_IMPDN CONSTANT VARCHAR2 ( 1 ) := '1';               --住名変処理実施済フラグ:「1：実施済」
    C_CHECK_LST_CRTGT_FLG_TGT      CONSTANT VARCHAR2 ( 1 ) := '1';               --チェックリスト作成対象フラグ:「1：対象」
    C_MESSG_ID_MSGCOMB0076         CONSTANT VARCHAR2 ( 15 ) := 'MSGCOMB0076';    --メッセージＩＤ:MSGCOMB0076
    C_MESSG_ID_MSGCOMB000G         CONSTANT VARCHAR2 ( 15 ) := 'MSGCOMB000G';    --メッセージＩＤ:MSGCOMB000G
    C_MESSG_ID_MSGCOMB000K         CONSTANT VARCHAR2 ( 15 ) := 'MSGCOMB000K';    --メッセージＩＤ:MSGCOMB000K
    C_MESSG_ID_MSGCOMB000C         CONSTANT VARCHAR2 ( 15 ) := 'MSGCOMB000C';    --メッセージＩＤ:MSGCOMB000C
    P_CMN_RETURN_COD               CHAR ( 1 ) ;                                  --共通部品リターンコード
    P_COMMIT_LOOP_CNT PLS_INTEGER ;                                              --ループ内コミット件数
    --住名変受付データ取得のカーソル定義
    CURSOR CUR_JMH_ACPTDT
    IS
        SELECT
            ACPT_NUM ,             --受付番号
            CUST_NUM ,             --顧客番号
            ACPT_CHECK_RESLT ,     --受付チェック結果
            TGT_JUDG_RESLT ,       --対象判定結果
            JMH_PRCS_IMPLMN_DN_FLG --住名変処理実施済フラグ
        FROM
            JMH_ACPTDT --住名変受付データ
        WHERE ( ACPT_CHECK_RESLT > CMN_CODE.C_ACR_NO_IMPLMN
            OR ACPT_CHECK_RESLT < CMN_CODE.C_ACR_NO_IMPLMN ) --( 受付チェック結果 > 0：未実施 OR 受付チェック結果 < 0：未実施 )
            AND DEL_FLG = CMN_CODE.C_DEL_FLG_UNDEL           --AND 削除フラグ = 0:未削除
        ORDER BY
            CUST_NUM ASC , --顧客番号 ASC,