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