# JIN06SRT 使用資源一覧

## プログラム概要
- **プログラムID**: JIN06SRT
- **プログラム名**: 社員データSORT処理
- **処理概要**: EMP-VALID（JIN01KNSチェック済社員データ 200B）を INPUT PROCEDURE で読込み、EMP-ID 昇順に SORT し、OUTPUT PROCEDURE で RETURN して SORTED-EMP へ出力する。RELEASE 件数は最大 999 件で、上限超過分は VALID-ERROR（ERR-CODE='9999', DETAIL='SORT LIMIT OVER'）へ出力する。

## 使用ファイル

| DD名 | ファイル識別子 | 編成 | レコード形式 | レコード長 | COPY句 |
|------|---------------|------|-------------|-----------|--------|
| JIN06R01 | EMP-VALID | 順編成 | F (固定長) | 200B | JIN01REC |
| SORTWORK | SD-SORTWORK | — | — | 200B | JIN01REC |
| JIN06W01 | SORTED-EMP | 順編成 | F (固定長) | 200B | JIN01REC |
| JIN06W02 | VALID-ERROR | 順編成 | F (固定長) | 80B | VALID-ERROR-REC |

## 使用COPY句

| COPY句 | 用途 | 使用箇所 |
|--------|------|---------|
| JIN01REC | EMP-VALID/SORTWORK/SORTED-EMP レコード定義（200B） | FILE SECTION |
| VALID-ERROR-REC | 上限超過エラーレコード定義（80B） | FILE SECTION |
| JINDATAC | 運用日付サブPGM連絡領域 | WORKING-STORAGE |
| JINMSGAC | メッセージ編集サブPGM連絡領域 | WORKING-STORAGE |
| JINENDAC | ABENDサブPGM連絡領域 | WORKING-STORAGE |

## 使用サブプログラム

| サブPGM | 役割 | CALL箇所 |
|---------|------|---------|
| SUB01DAT | 運用日付取得 | 1000ITTSOR |
| SUB02MSG | メッセージ編集出力 | 1000ITTSOR / 3000STPSOR / 4000MSGOUTSOR |
| SUB03END | ABEND処理 | 2000MAJSOR / 9000ERRSOR |

## 使用DB2テーブル

なし（DB操作なし）

## SORTキー

| 対象 | キー項目 | 順序 |
|------|---------|------|
| SORTWORK | EMP-ID（SREMP-ID） | 昇順（ON ASCENDING KEY） |

## 処理フロー
1. 初期処理（開始メッセージ→SUB01DAT運用日付取得→出力ファイルOPEN）
2. SORT実行
   - INPUT PROCEDURE: R01読込（EOF 到達まで）→SORTレコード転記→RELEASE。RELEASE は最大 999 件、超過分は VALID-ERROR 出力
   - SORT KEY: EMP-ID 昇順
   - OUTPUT PROCEDURE: RETURN→SORTED-EMP 出力
3. SORT結果判定（RETURN-CODE≠0→メッセージ出力＋ABEND）
4. 終了処理（統計表示→CLOSE→終了メッセージ）