53 lines
2.3 KiB
Markdown
53 lines
2.3 KiB
Markdown
# 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→終了メッセージ）
|