# JIN02SKL 使用資源一覧 ## プログラム概要 - **プログラムID**: JIN02SKL - **プログラム名**: スキル別評価集計処理 - **処理概要**: スキル評価明細(M件)× 評価基準マスタ(N件)→ スキル別評価集計(N件出力) ## 使用ファイル | DD名 | ファイル識別子 | 編成 | レコード形式 | レコード長 | COPY句 | |------|---------------|------|-------------|-----------|--------| | JIN02R01 | SKILL-EVAL | 順編成 | F (固定長) | 200B | SKILL-EVAL-REC | | JIN02R02 | SKILL-MST | 順編成 | F (固定長) | 80B | SKILL-MST-REC | | JIN02W01 | SKILL-AGG | 順編成 | F (固定長) | 200B | SKILL-AGG-REC | | JIN02W02 | VALID-ERROR | 順編成 | F (固定長) | 80B | VALID-ERROR-REC | ## 使用COPY句 | COPY句 | 用途 | 使用箇所 | |--------|------|---------| | SKILL-EVAL-REC | スキル評価明細レコード定義(R01入力) | FILE SECTION | | SKILL-MST-REC | 評価基準マスタレコード定義(R02入力) | FILE SECTION | | SKILL-AGG-REC | 評価集計結果レコード定義(W01出力) | FILE SECTION | | VALID-ERROR-REC | VALID-ERROR エラーレコード定義(W02出力) | FILE SECTION | | JINDATAC | 運用日付サブPGM連絡領域 | WORKING-STORAGE | | JINMSGAC | メッセージ編集サブPGM連絡領域 | WORKING-STORAGE | | JINENDAC | ABENDサブPGM連絡領域 | WORKING-STORAGE | ## 使用サブプログラム | サブPGM | 役割 | CALL箇所 | |---------|------|---------| | SUB01DAT | 運用日付取得 | 1000ITTSOR | | SUB02MSG | メッセージ編集出力 | 6000MSGOUTSOR | | SUB03END | ABEND処理 | 9999ABDSOR | ## 使用DB2テーブル なし(DB操作なし) ## 処理フロー 1. 初期処理(開始メッセージ→運用日付取得→OPEN) 2. マスタLOAD(R02全件→内部表構築) 3. 評価明細READループ(R01) 4. SEARCH ALLで該当レベル特定 5. 内部表UPDATE(件数・合計点加算) 6. 集計結果出力(降順走査→平均点DIVIDE→WRITE) 7. 終了処理(CLOSE→件数出力)