# JIN07SUB 使用資源一覧

## プログラム概要
- **プログラムID**: JIN07SUB
- **プログラム名**: 社員情報取得サブ
- **処理概要**: 指定 EMP-ID に一致する EMP-VALID（200B）レコードを順次 READ で検索し、該当項目（KANA-SEI/KANA-MEI/KANJI-NAME/SUB-CODE/BIRTH-DATE/EMP-ID/FILLER）を LINKAGE 個別引数で返却する。KANJI-NAME は CALL 側で OMITTED 指定時のみ返却スキップ（IS OMITTED 判定）。終了は EXIT PROGRAM。

## 使用ファイル

| DD名 | ファイル識別子 | 編成 | レコード形式 | レコード長 | COPY句 |
|------|---------------|------|-------------|-----------|--------|
| JIN07R01 | EMP-VALID | 順編成 | F (固定長) | 200B | JIN01REC |

## 使用COPY句

| COPY句 | 用途 | 使用箇所 |
|--------|------|---------|
| JIN01REC | EMP-VALID レコード定義（200B, REPLACING (A)→R01） | FILE SECTION |

## 使用サブプログラム

なし（本プログラムは CALL される側）

## 使用DB2テーブル

なし（DB操作なし）

## LINKAGE 引数

| NO | 入出力 | 引数名 | PIC | 説明 |
|----|--------|--------|-----|------|
| 1 | I | LK-EMP-ID | X(8) | 検索条件（社員番号） |
| 2 | O | LK-KANA-SEI | X(20) | 一致レコード返却値 |
| 3 | O | LK-KANA-MEI | X(20) | 一致レコード返却値 |
| 4 | O | LK-KANJI-NAME | N(40) | 一致レコード返却値（OMITTED 時スキップ） |
| 5 | O | LK-SUB-CODE | X(4) | 一致レコード返却値 |
| 6 | O | LK-BIRTH-DATE | X(8) | 一致レコード返却値 |
| 7 | O | LK-EMP-ID-OUT | X(8) | 一致レコード返却値（社員番号） |
| 8 | O | LK-FILLER | X(60) | 一致レコード返却値 |
| 9 | O | LK-RESULT | X(2) | 検索結果（'OK'=一致 / 'NG'=不一致） |

## 処理フロー
1. MOVE ADDRESS OF LK-EMP-ID TO WS-PTR（ADDRESS OF 予約語カバー）
2. OPEN INPUT JIN07R01
3. PERFORM UNTIL LK-RESULT = 'OK' OR EOF
   - READ → EMP-ID 完全一致時、各引数へ返却値を転記（KANJI-NAME は NOT OMITTED 時のみ）→ LK-RESULT='OK'
4. CLOSE JIN07R01
5. EXIT PROGRAM（GOBACK 不使用）