Subsystem B cleanup: dead code removal, sort-key fix, ZAN04MAT/ZAN05CAL/ZAN06UPD updates, resource lists added
This commit is contained in:
@@ -427,7 +427,7 @@ OVT-VSORT は既に社員番号+日付+開始時刻でソート済。順次READ
|
||||
| **入力ファイル** | OVT-NODUP(80B)/ PUNCH-SORTED(80B) |
|
||||
| **出力ファイル** | OVT-CHECKED(80B)/ ERROR-LOG(VB) |
|
||||
| **件数変化** | K件 → 通過P件 + エラー(K-P)件 |
|
||||
| **使用共通関数** | SUB02MSG(メッセージ), SUB03END(ABEND) |
|
||||
| **使用共通関数** | 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 に書出し。
|
||||
|
||||
|
||||
Reference in New Issue
Block a user