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