qiuqiuqiu/cobol-tna-system
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

JIN03RAN Phase B: COMP-4/CORR/DESCENDING/DOWN/UP カバレッジ追加

Browse Source
This commit is contained in:
qiuqiuqiu
2026-07-21 08:31:00 +08:00
parent 39b9ec4e50
commit e13fbba5b6
5 changed files with 430 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
使用資源一覧/JIN03RAN_使用資源一覧.md
+39
View File
@@ -0,0 +1,39 @@
# JIN03RAN 使用資源一覧
## プログラム概要
- **プログラムID**: JIN03RAN
- **プログラム名**: スキル評価ランキング出力処理
- **処理概要**: SKILL-AGG（JIN02SKL出力の集計結果）を読み込み、平均点降順でランキングを出力する
## 使用ファイル
| DD名 | ファイル識別子 | 編成 | レコード形式 | レコード長 | COPY句 |
|------|---------------|------|-------------|-----------|--------|
| JIN03R01 | SKILL-AGG | SEQUENTIAL | F (固定長) | 200B | SKILL-AGG-REC |
| JIN03W01 | RANK-OUT | SEQUENTIAL | F (固定長) | 200B | JIN03RAN-REC |
## 使用COPY句
| COPY句 | 用途 | 使用箇所 |
|--------|------|---------|
| SKILL-AGG-REC | スキル評価集計結果レコード定義（R01入力） | FILE SECTION |
| JIN03RAN-REC | ランキング出力レコード定義（W01出力） | FILE SECTION |
| JINDATAC | 運用日付サブPGM連絡領域 | WORKING-STORAGE |
| JINMSGAC | メッセージ編集サブPGM連絡領域 | WORKING-STORAGE |
| JINENDAC | ABENDサブPGM連絡領域 | WORKING-STORAGE |
## 使用サブプログラム
| サブPGM | 役割 | CALL箇所 |
|---------|------|---------|
| SUB01DAT | 運用日付取得 | 1000ITTSOR |
| SUB02MSG | メッセージ編集出力 | 1000ITTSOR |
## 使用DB2テーブル
なし（DB操作なし）
## 処理フロー
1. 初期処理（開始メッセージ→運用日付取得→OPEN→R01初回読込）
2. R01読込→ランキング出力ループ（平均点降順に順位付与）
3. 終了処理（CLOSE→終了メッセージ）