49 lines
2.1 KiB
Markdown
49 lines
2.1 KiB
Markdown
# 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 不使用）
|