Subsystem B cleanup: dead code removal, sort-key fix, ZAN04MAT/ZAN05CAL/ZAN06UPD updates, resource lists added

This commit is contained in:
qiuqiuqiu
2026-06-19 12:39:49 +08:00
parent a74a5aaa04
commit 164451dda5
19 changed files with 353 additions and 67 deletions
@@ -427,7 +427,7 @@ OVT-VSORT は既に社員番号+日付+開始時刻でソート済。順次READ
| **入力ファイル** | OVT-NODUP80B/ PUNCH-SORTED80B |
| **出力ファイル** | OVT-CHECKED80B/ ERROR-LOGVB |
| **件数変化** | K件 → 通過P件 + エラー(K-P)件 |
| **使用共通関数** | SUB02MSG(メッセージ), SUB03ENDABEND |
| **使用共通関数** | SUB02MSG(メッセージ) |
**機能:**
@@ -449,12 +449,7 @@ Aサブシステムと同一の休日定義に従う(HOLIDAY-FILEファイル
##### 休日ファイル初期化手順
初期処理(1000ITTSOR相当)で以下の手順によりHOLIDAY-TABLEを構築する。
1. FUNCTION CURRENT-DATE で処理日を取得
2. 処理日の年月から該当月の初日〜末日を算出
3. 各日について曜日判定(土日またはHOLIDAY-FILE該当)を行い、
休日=該当月内の全祝日レコードをWORKING-STORAGEのHOLIDAY-TABLEに格納
初期処理(1000ITTSOR)でHOLIDAY-FILEを全件READし、WORKING-STORAGEのHOLIDAY-TABLEに格納する。
```
* 休日データ取得(ファイル読込み)
@@ -492,7 +487,7 @@ END-SEARCH
- HOLIDAY-FILE該当 → OVT-TYPE='H'
- 該当なし → OVT-TYPE='W'
**MOVE** で OVT-TYPE を設定。**FUNCTION CURRENT-DATE** で処理日を取得し、曜日計算の補助に使用。
**MOVE** で OVT-TYPE を設定。
全通過レコードは OVT-TYPE を付加して OVT-CHECKED に書出し。