fix: ZAN04MAT ERR-CATEGORY 03→04 (conflict with ZAN03CHK), sync docs

This commit is contained in:
qiuqiuqiu
2026-06-23 19:13:27 +08:00
parent 164451dda5
commit e0bcbbc1a9
3 changed files with 5 additions and 5 deletions
+2 -2
View File
@@ -98,7 +98,7 @@
03 CNS-MSGKEYINF PIC 9(003) VALUE 033. 03 CNS-MSGKEYINF PIC 9(003) VALUE 033.
03 CNS-KN0002 PIC 9(001) VALUE 2. 03 CNS-KN0002 PIC 9(001) VALUE 2.
03 CNS-ABD999 PIC 9(003) VALUE 999. 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. 01 CNS-PROC-SEQ01 PIC 9(002) VALUE 01.
* *
***************************************************************** *****************************************************************
@@ -271,7 +271,7 @@
* *
*** ERROR-LOG出力(監査証跡) *** ERROR-LOG出力(監査証跡)
INITIALIZE W03OUTREC. INITIALIZE W03OUTREC.
MOVE CNS-ERR-CAT03 TO W03ERR-CATEGORY. MOVE CNS-ERR-CAT04 TO W03ERR-CATEGORY.
STRING 'CANCEL-MATCH: ' STRING 'CANCEL-MATCH: '
R01APPL-ID ' ' R01APPL-ID ' '
R01EMP-ID ' ' R01EMP-ID ' '
@@ -42,7 +42,7 @@
## 処理フロー ## 処理フロー
1. 初期処理(開始メッセージ→運用日付取得→OPEN→R01/R02初回読込) 1. 初期処理(開始メッセージ→運用日付取得→OPEN→R01/R02初回読込)
2. メイン処理:マッチング(申請番号APPL-IDで1:1突合) 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キー(R01のみ) → 有効申請をOVT-MATCHED(W01)に出力(STRING編集でPROC-SEQ=01付加)
- R01キー > R02キー(R02のみ) → 取消申請をOVT-DBCLEAN(W02)に出力 - R01キー > R02キー(R02のみ) → 取消申請をOVT-DBCLEAN(W02)に出力
3. 終了処理(CLOSE→件数出力→終了メッセージ) 3. 終了処理(CLOSE→件数出力→終了メッセージ)
+2 -2
View File
@@ -81,7 +81,7 @@
取消済みの申請のため、OVT-MATCHEDには出力しない。 取消済みの申請のため、OVT-MATCHEDには出力しない。
監査証跡としてERROR-LOGにマッチ情報を出力する。(2100MATCHSOR) 監査証跡としてERROR-LOGにマッチ情報を出力する。(2100MATCHSOR)
【STRING編集】 【STRING編集】
ERR-CATEGORY = 03 ERR-CATEGORY = 04
ERR-DETAIL = 'CANCEL-MATCH: ' + 申請番号 + 社員番号 + 申請日 + 開始時刻 + 終了時刻 ERR-DETAIL = 'CANCEL-MATCH: ' + 申請番号 + 社員番号 + 申請日 + 開始時刻 + 終了時刻
R01を読み込む。(1100R01INNSOR)(2件目以降) R01を読み込む。(1100R01INNSOR)(2件目以降)
R02を読み込む。(1200R02INNSOR)(2件目以降) R02を読み込む。(1200R02INNSOR)(2件目以降)
@@ -140,5 +140,5 @@
| No | 項目名 | 設定元 | 備考 | | No | 項目名 | 設定元 | 備考 |
|----|--------|--------|------| |----|--------|--------|------|
| 1 | ERR-CATEGORY | 03で固定 | 取消マッチ監査証跡 | | 1 | ERR-CATEGORY | 04で固定 | 取消マッチ監査証跡 |
| 2 | ERR-DETAIL | STRINGで編集 | CANCEL-MATCH: + 申請番号 + 社員番号 + 申請日 + 開始時刻 + 終了時刻 | | 2 | ERR-DETAIL | STRINGで編集 | CANCEL-MATCH: + 申請番号 + 社員番号 + 申請日 + 開始時刻 + 終了時刻 |