# JIN08TST 詳細設計書

## プログラム概要

| 項目 | 内容 |
|------|------|
| プログラムID | JIN08TST（人事→JINji, 08, JIN07SUB呼出テスト→TST） |
| プログラムタイプ | メインプログラム（テストドライバ） |
| PGMパターン | 05（振り分け IF） |
| 機能 | JIN07SUB を 2 回 CALL（全引数 / KANJI-NAME OMITTED）して、一致レコード取得と OMITTED 引数動作を確認するテスト専用プログラム |
| CALL方式 | メインプログラム（JCLからCALL。ただしテスト専用のため本番 JCL は不要） |
| DBアクセス | なし |
| 使用サブプログラム | JIN07SUB, SUB01DAT, SUB02MSG, SUB03END |

### 前提条件

| NO | 対象ファイル | 条件 |
|----|-------------|------|
| 1 | EMP-VALID | JIN07SUB が検索対象とするデータ。JIN08TST 実行時の環境変数 JIN07R01 で割当てる |

### 使用ファイル一覧

| NO | 使用ファイル名 | 識別子 | DD名 | I/O | COPY群 | 形式 | レコード長 | 媒体 | 備考 |
|----|--------------|--------|------|-----|--------|------|-----------|------|------|
| — | — | — | — | — | — | — | — | — | ファイル入出力なし（JIN07SUB が JIN07R01 を読込む） |

### 使用COPY句

| COPY句 | 用途 | 使用箇所 |
|--------|------|---------|
| JINDATAC | SUB01DAT 運用日付連絡領域 | WORKING-STORAGE |
| JINMSGAC | SUB02MSG メッセージ連絡領域 | WORKING-STORAGE |
| JINENDAC | SUB03END ABEND連絡領域 | WORKING-STORAGE |

---

## 処理詳細

### 段落一覧（SOR規約名）

| 段落名 | 機能 |
|:-------|:-----|
| 0000MAINTST | メインコントロール（初期→テストCALL→終了） |
| 1000ITTTST | 初期処理（開始MSG・初期化・運用日付取得） |
| 2000CALTST | JIN07SUB を 2 回 CALL（全引数 / KANJI-NAME OMITTED）して結果を DISPLAY |
| 3000STPTST | 終了処理（終了MSG） |
| 4000MSGOUTTST | SUB02MSG 呼出 |
| 9000ERRTST | エラー処理（ABEND） |

### 処理フロー

```
1. 0000MAINTST（メインコントロール）
   1-1. PERFORM 1000ITTTST（初期処理）
   1-2. PERFORM 2000CALTST（テストCALL）
   1-3. PERFORM 3000STPTST（終了処理）
   1-4. GOBACK

2. 1000ITTTST（初期処理）
   2-1. DISPLAY 'JIN08TST START' UPON CONSOLE
   2-2. SUB02MSG で開始メッセージ（001）出力
   2-3. INITIALIZE ワークエリア
   2-4. CALL SUB01DAT（運用日付取得）。異常時は 4000MSGOUTTST＋9000ERRTST

3. 2000CALTST（テストCALL）
   3-1. 検索条件（WRK-TST-EMP-ID）に 'EMP00001' を設定
   3-2. CALL 1: JIN07SUB 全引数
       CALL 'JIN07SUB' USING WRK-TST-EMP-ID, WRK-TST-KANA-SEI, WRK-TST-KANA-MEI,
                             WRK-TST-KANJI-NAME, WRK-TST-SUB-CODE,
                             WRK-TST-BIRTH-DATE, WRK-TST-EMP-ID-OUT,
                             WRK-TST-FILLER, WRK-TST-RESULT
   3-3. WRK-TST-RESULT 判定
       IF = 'OK' → DISPLAY 'CALL1 OK: EMP=' WRK-TST-EMP-ID-OUT
                               ' SUB=' WRK-TST-SUB-CODE
       ELSE      → DISPLAY 'CALL1 NG: RESULT=' WRK-TST-RESULT
   3-4. CALL 2: JIN07SUB KANJI-NAME OMITTED
       CALL 'JIN07SUB' USING WRK-TST-EMP-ID, WRK-TST-KANA-SEI, WRK-TST-KANA-MEI,
                             OMITTED, WRK-TST-SUB-CODE, WRK-TST-BIRTH-DATE,
                             WRK-TST-EMP-ID-OUT, WRK-TST-FILLER, WRK-TST-RESULT
   3-5. WRK-TST-RESULT 判定
       IF = 'OK' → DISPLAY 'CALL2 OK: EMP=' WRK-TST-EMP-ID-OUT
                               ' KANA-SEI=' WRK-TST-KANA-SEI
       ELSE      → DISPLAY 'CALL2 NG: RESULT=' WRK-TST-RESULT

4. 3000STPTST（終了処理）
   4-1. DISPLAY 'JIN08TST END' UPON CONSOLE
   4-2. SUB02MSG で終了メッセージ（002）出力
```

---

## カバレッジ対象キーワード

| 予約語/記号 | 区分 | 使用箇所 |
|:-----------|:----:|:---------|
| OMITTED | 予約語 | 2000CALTST: CALL 'JIN07SUB' USING ... OMITTED（KANJI-NAME 省略） |
| CALL | 予約語 | 2000CALTST: CALL 'JIN07SUB'（2回） |
| ON EXCEPTION | 予約語 | 1000ITTTST: CALL 'SUB01DAT' ON EXCEPTION |

## 補足

- 本プログラムは JIN07SUB の動作確認用テストドライバのため、本番 JCL は不要（ローカル開発環境で単体実行する）。
- JIN07SUB が EMP-VALID を読込むための DD（JIN07R01）は、実行時に環境変数で割当てる。
- 検証は DISPLAY 出力（CALL1 OK/NG、CALL2 OK/NG）で実施する。