diff --git a/src/ZAN04MAT.cbl b/src/ZAN04MAT.cbl index 836b10f..d745930 100644 --- a/src/ZAN04MAT.cbl +++ b/src/ZAN04MAT.cbl @@ -98,7 +98,7 @@ 03 CNS-MSGKEYINF PIC 9(003) VALUE 033. 03 CNS-KN0002 PIC 9(001) VALUE 2. 03 CNS-ABD999 PIC 9(003) VALUE 999. - 01 CNS-ERR-CAT03 PIC 9(002) VALUE 03. + 01 CNS-ERR-CAT04 PIC 9(002) VALUE 04. 01 CNS-PROC-SEQ01 PIC 9(002) VALUE 01. * ***************************************************************** @@ -271,7 +271,7 @@ * *** ERROR-LOG出力(監査証跡) INITIALIZE W03OUTREC. - MOVE CNS-ERR-CAT03 TO W03ERR-CATEGORY. + MOVE CNS-ERR-CAT04 TO W03ERR-CATEGORY. STRING 'CANCEL-MATCH: ' R01APPL-ID ' ' R01EMP-ID ' ' diff --git a/使用資源一覧/ZAN04MAT_使用資源一覧.md b/使用資源一覧/ZAN04MAT_使用資源一覧.md index 93c8f6d..d5fa1f3 100644 --- a/使用資源一覧/ZAN04MAT_使用資源一覧.md +++ b/使用資源一覧/ZAN04MAT_使用資源一覧.md @@ -42,7 +42,7 @@ ## 処理フロー 1. 初期処理(開始メッセージ→運用日付取得→OPEN→R01/R02初回読込) 2. メイン処理:マッチング(申請番号APPL-IDで1:1突合) - - R01キー = R02キー(マッチ) → 取消済み申請をERROR-LOG(W03)に出力 + - R01キー = R02キー(マッチ) → 取消済み申請をERROR-LOG(W03)に出力(ERR-CATEGORY=04) - R01キー < R02キー(R01のみ) → 有効申請をOVT-MATCHED(W01)に出力(STRING編集でPROC-SEQ=01付加) - R01キー > R02キー(R02のみ) → 取消申請をOVT-DBCLEAN(W02)に出力 3. 終了処理(CLOSE→件数出力→終了メッセージ) diff --git a/詳細設計書/詳細設計書_ZAN04MAT.md b/詳細設計書/詳細設計書_ZAN04MAT.md index 4d7a21d..3d33b75 100644 --- a/詳細設計書/詳細設計書_ZAN04MAT.md +++ b/詳細設計書/詳細設計書_ZAN04MAT.md @@ -81,7 +81,7 @@ 取消済みの申請のため、OVT-MATCHEDには出力しない。 監査証跡としてERROR-LOGにマッチ情報を出力する。(2100MATCHSOR) 【STRING編集】 - ERR-CATEGORY = 03 + ERR-CATEGORY = 04 ERR-DETAIL = 'CANCEL-MATCH: ' + 申請番号 + 社員番号 + 申請日 + 開始時刻 + 終了時刻 R01を読み込む。(1100R01INNSOR)(2件目以降) R02を読み込む。(1200R02INNSOR)(2件目以降) @@ -140,5 +140,5 @@ | No | 項目名 | 設定元 | 備考 | |----|--------|--------|------| -| 1 | ERR-CATEGORY | 03で固定 | 取消マッチ監査証跡 | +| 1 | ERR-CATEGORY | 04で固定 | 取消マッチ監査証跡 | | 2 | ERR-DETAIL | STRINGで編集 | CANCEL-MATCH: + 申請番号 + 社員番号 + 申請日 + 開始時刻 + 終了時刻 |