# JIN03RAN 使用資源一覧 ## プログラム概要 - **プログラムID**: JIN03RAN - **プログラム名**: スキル評価ランキング出力処理 - **処理概要**: SKILL-AGG(JIN02SKL出力の集計結果)を読み込み、平均点降順でランキングを出力する(前提:R01はJCL SORTにより平均点降順ソート済み) ## 使用ファイル | DD名 | ファイル識別子 | 編成 | レコード形式 | レコード長 | COPY句 | |------|---------------|------|-------------|-----------|--------| | JIN03R01 | SKILL-AGG | SEQUENTIAL | F (固定長) | 200B | SKILL-AGG-REC | | JIN03W01 | RANK-OUT | SEQUENTIAL | F (固定長) | 200B | JIN03REC | ## 使用COPY句 | COPY句 | 用途 | 使用箇所 | |--------|------|---------| | SKILL-AGG-REC | スキル評価集計結果レコード定義(R01入力) | FILE SECTION | | JIN03REC | ランキング出力レコード定義(W01出力) | FILE SECTION | | JINDATAC | 運用日付サブPGM連絡領域 | WORKING-STORAGE | | JINMSGAC | メッセージ編集サブPGM連絡領域 | WORKING-STORAGE | ## 使用サブプログラム | サブPGM | 役割 | CALL箇所 | |---------|------|---------| | SUB01DAT | 運用日付取得 | 1000ITTSOR | | SUB02MSG | メッセージ編集出力 | 1000ITTSOR | ## 使用DB2テーブル なし(DB操作なし) ## 処理フロー 1. 初期処理(開始メッセージ→運用日付取得→OPEN→R01初回読込) 2. R01読込→ランキング出力ループ(平均点降順ソート済み入力に順位付与) 3. 終了処理(CLOSE→プログラム終了表示)