140 lines
5.7 KiB
Markdown
140 lines
5.7 KiB
Markdown
# JIN06SRT 詳細設計書
|
||
|
||
## プログラム概要
|
||
|
||
| 項目 | 内容 |
|
||
|------|------|
|
||
| プログラムID | JIN06SRT（人事→JINji, 06, 社員データ並替→SRT） |
|
||
| プログラムタイプ | 34（SORT） |
|
||
| 機能 | EMP-VALID（200B）を INPUT PROCEDURE で読込み、EMP-ID 昇順に SORT し、OUTPUT PROCEDURE で RETURN して SORTED-EMP へ書出す |
|
||
| CALL方式 | メインプログラム（JCLからCALL） |
|
||
| DBアクセス | なし |
|
||
| 使用サブプログラム | SUB01DAT（日付）, SUB02MSG（メッセージ）, SUB03END（アベンド） |
|
||
|
||
### 前提条件
|
||
|
||
| NO | 対象ファイル | 条件 |
|
||
|----|-------------|------|
|
||
| 1 | EMP-VALID | JIN01KNS でチェック済のデータであること |
|
||
| 2 | EMP-VALID | 並替は COBOL の SORT 文で実施（本プログラム内） |
|
||
|
||
> キーワードカバー目的で、並替は COBOL の `SORT` 文（INPUT/OUTPUT PROCEDURE）を明示使用する。本番では JCL の SORTWK* でソートワーク領域を確保する。
|
||
|
||
### 使用ファイル一覧
|
||
|
||
| NO | 使用ファイル名 | 識別子 | DD名 | I/O | COPY群 | 形式 | レコード長 | 媒体 | 備考 |
|
||
|----|--------------|--------|------|-----|--------|------|-----------|------|------|
|
||
| 1 | EMP-VALID | R01 | JIN06R01 | I | JIN01REC | FB | 200 | PS | チェック済社員データ |
|
||
| 2 | SORTED-EMP | W01 | JIN06W01 | O | JIN01REC | FB | 200 | PS | 並替済社員データ |
|
||
| 3 | VALID-ERROR | W02 | JIN06W02 | O | VALID-ERROR-REC | FB | 80 | PS | 上限超過エラー |
|
||
| 4 | SORTWORK | SD | SORTWK01 | — | JIN01REC | FB | 200 | ワーク | SORTファイル |
|
||
|
||
### キー項目一覧
|
||
|
||
| NO | ファイル名 | ソート条件(キー項目) | キー条件 |
|
||
|----|-----------|---------------------|----------|
|
||
| 1 | SORTWORK | EMP-ID 昇順 | ON ASCENDING KEY |
|
||
|
||
### 使用モジュール一覧
|
||
|
||
| NO | 機能 | プログラムID | 使用COPY名 |
|
||
|----|------|-------------|-----------|
|
||
| 1 | 運用日付取得SUB | SUB01DAT | JINDATAC |
|
||
| 2 | メッセージ編集出力SUB | SUB02MSG | JINMSGAC |
|
||
| 3 | ABEND処理SUB | SUB03END | JINENDAC |
|
||
|
||
---
|
||
|
||
## 処理詳細
|
||
|
||
### 段落一覧（SOR規約名）
|
||
|
||
| 段落名 | 機能 |
|
||
|:-------|:-----|
|
||
| 0000MAJCOLSOR | メインコントロール（初期→SORT→終了） |
|
||
| 1000ITTSOR | 初期処理（開始MSG・初期化・運用日付・出力OPEN） |
|
||
| 2000MAJSOR | SORT実行（ON ASCENDING KEY + INPUT/OUTPUT PROCEDURE + 復帰コード判定） |
|
||
| 2110INPUTSOR | INPUT PROCEDURE（EOF 到達まで読込ループ + R01読込→RELEASE） |
|
||
| 2110READSOR | 1件読込→SORTレコード転記→RELEASE / 上限超過はVALID-ERROR |
|
||
| 2120OUTPUSOR | OUTPUT PROCEDURE（RETURN→SORTED-EMP書出） |
|
||
| 3000STPSOR | 終了処理（統計表示・CLOSE・終了MSG） |
|
||
| 4000MSGOUTSOR | メッセージ編集出力SUB呼出 |
|
||
| 9000ERRSOR | エラー処理（ABEND） |
|
||
|
||
### 処理フロー
|
||
|
||
```
|
||
1. 0000MAJCOLSOR
|
||
1-1. PERFORM 1000ITTSOR（初期処理）
|
||
1-2. PERFORM 2000MAJSOR（SORT処理）
|
||
1-3. PERFORM 3000STPSOR（終了処理）
|
||
1-4. GOBACK
|
||
|
||
2. 1000ITTSOR（初期処理）
|
||
2-1. DISPLAY 'JIN06SRT START' UPON CONSOLE
|
||
2-2. SUB02MSG で開始メッセージ（001）出力
|
||
2-3. INITIALIZE WRKARA, CUNARA
|
||
2-4. CALL SUB01DAT（運用日付取得）。異常時は 4000MSGOUTSOR＋9000ERRSOR
|
||
2-5. OPEN OUTPUT W01OUTFIL, W02OUTFIL
|
||
|
||
3. 2000MAJSOR（SORT実行）
|
||
3-1. SORT SORTWORK
|
||
ON ASCENDING KEY SREMP-ID
|
||
INPUT PROCEDURE 2110INPUTSOR
|
||
OUTPUT PROCEDURE 2120OUTPUSOR
|
||
3-2. MOVE RETURN-CODE TO WRK-SORT-STAT
|
||
3-3. WRK-SORT-STAT ≠ 0 → 4000MSGOUTSOR + CALL SUB03END（ABEND）
|
||
|
||
4. 2110INPUTSOR（INPUT PROCEDURE）
|
||
4-1. OPEN INPUT R01INNFIL
|
||
4-2. PERFORM UNTIL WRK-R01EOF-Y（EOF 到達まで 2110READSOR を繰返す）
|
||
※READ は EOF まで行い、上限超過（WRK-SORT-CNT > 999）分を VALID-ERROR へ出力する
|
||
4-3. CLOSE R01INNFIL
|
||
|
||
5. 2110READSOR（読込・RELEASE）
|
||
5-1. WRK-R01EOF-Y なら EXIT SECTION（上限到達後の空処理）
|
||
5-2. READ R01INNFIL
|
||
AT END → WRK-R01EOF='1'
|
||
NOT AT END → CUN-R01INN +1、WRK-SORT-CNT +1
|
||
R01→SR へ全項目転記
|
||
WRK-SORT-CNT <= 999 → RELEASE SORTREC、CUN-SORT-IN +1
|
||
WRK-SORT-CNT > 999 → VALID-ERROR（9999）WRITE、CUN-W02OUT +1
|
||
|
||
6. 2120OUTPUSOR（OUTPUT PROCEDURE）
|
||
6-1. PERFORM UNTIL 1=2
|
||
RETURN SORTWORK RECORD
|
||
AT END → EXIT PERFORM
|
||
NOT AT END → SR→W01 へ転記 → WRITE W01OUTREC、CUN-W01OUT +1
|
||
END-RETURN
|
||
|
||
7. 3000STPSOR（終了処理）
|
||
7-1. DISPLAY READ/SORT/OUT/ERROR 件数 UPON CONSOLE
|
||
7-2. CLOSE W01OUTFIL, W02OUTFIL
|
||
7-3. SUB02MSG で終了メッセージ（002）出力
|
||
|
||
8. 9000ERRSOR（エラー処理）
|
||
8-1. CALL SUB03END（ABEND）
|
||
```
|
||
|
||
### 上限超過時のエラー出力（W02/VALID-ERROR）
|
||
|
||
| 項目名 | 設定値 | PIC | 備考 |
|
||
|--------|--------|:---:|------|
|
||
| ERR-PROGRAMID | CNS-PRGIDX | X(8) | 'JIN06SRT' |
|
||
| ERR-EMP-ID | SREMP-ID | X(8) | 超過レコードの社員番号 |
|
||
| ERR-CODE | '9999' | X(4) | 上限超過 |
|
||
| ERR-DETAIL | 'SORT LIMIT OVER' | X(60) | |
|
||
|
||
---
|
||
|
||
## カバレッジ対象キーワード
|
||
|
||
| 予約語/記号 | 区分 | 使用箇所 |
|
||
|:-----------|:----:|:---------|
|
||
| SORT | 予約語 | 2000MAJSOR: SORT ファイル ON ASCENDING KEY + INPUT/OUTPUT PROCEDURE |
|
||
| RELEASE | 予約語 | 2110READSOR: INPUT PROCEDURE 内で RELEASE 送出 |
|
||
| RETURN | 予約語 | 2120OUTPUSOR: RETURN SORTWORK RECORD / END-RETURN |
|
||
| PERFORM UNTIL | 予約語 | 2110INPUTSOR: EOF 到達まで 2110READSOR を繰返す |
|
||
| SD（Sort Description） | 予約語 | FILE SECTION: SD SORTWORK |
|
||
| SAME SORT AREA | 予約語 | ENVIRONMENT DIVISION: SAME SORT AREA 句（SHA08SRT と同様） |
|