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-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→件数出力→終了メッセージ)
|
||||||
|
|||||||
@@ -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: + 申請番号 + 社員番号 + 申請日 + 開始時刻 + 終了時刻 |
|
||||||
|
|||||||
Reference in New Issue
Block a user