fix: ZAN04MAT ERR-CATEGORY 03→04 (conflict with ZAN03CHK), sync docs
This commit is contained in:
+2
-2
@@ -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 ' '
|
||||
|
||||
@@ -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→件数出力→終了メッセージ)
|
||||
|
||||
@@ -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: + 申請番号 + 社員番号 + 申請日 + 開始時刻 + 終了時刻 |
|
||||
|
||||
Reference in New Issue
Block a user