42 lines
1.7 KiB
Markdown
42 lines
1.7 KiB
Markdown
# JIN08TST 使用資源一覧
|
||
|
||
## プログラム概要
|
||
- **プログラムID**: JIN08TST
|
||
- **プログラム名**: JIN07SUB呼出テスト
|
||
- **処理概要**: JIN07SUB を 2 回 CALL（全引数 / KANJI-NAME OMITTED）して、一致レコード取得と OMITTED 引数動作を DISPLAY 出力で確認するテストドライバ。開始/終了メッセージ出力、SUB01DAT 運用日付取得、異常時は SUB03END ABEND 処理を行う。
|
||
|
||
## 使用ファイル
|
||
|
||
なし（本プログラムはファイル入出力なし。JIN07SUB が JIN07R01 を読込む）
|
||
|
||
## 使用COPY句
|
||
|
||
| COPY句 | 用途 | 使用箇所 |
|
||
|--------|------|---------|
|
||
| JINDATAC | SUB01DAT 運用日付連絡領域 | WORKING-STORAGE |
|
||
| JINMSGAC | SUB02MSG メッセージ連絡領域 | WORKING-STORAGE |
|
||
| JINENDAC | SUB03END ABEND連絡領域 | WORKING-STORAGE |
|
||
|
||
## 使用サブプログラム
|
||
|
||
| サブPGM | 役割 | CALL箇所 |
|
||
|---------|------|---------|
|
||
| JIN07SUB | 社員情報取得 | 2000CALTST（2回: 全引数 / OMITTED） |
|
||
| SUB01DAT | 運用日付取得 | 1000ITTTST |
|
||
| SUB02MSG | メッセージ編集出力 | 1000ITTTST / 3000STPTST / 4000MSGOUTTST |
|
||
| SUB03END | ABEND処理 | 9000ERRTST |
|
||
|
||
## 使用DB2テーブル
|
||
|
||
なし（DB操作なし）
|
||
|
||
## 処理フロー
|
||
1. 初期処理（開始MSG→ワークエリア初期化→SUB01DAT 運用日付取得。異常時は 4000MSGOUTTST＋9000ERRTST）
|
||
2. CALL1: JIN07SUB 全引数 → LK-RESULT 判定 → 'CALL1 OK/NG' DISPLAY
|
||
3. CALL2: JIN07SUB KANJI-NAME OMITTED → LK-RESULT 判定 → 'CALL2 OK/NG' DISPLAY
|
||
4. 終了処理（終了MSG出力）
|
||
|
||
## 備考
|
||
- テスト専用ドライバのため本番 JCL は不要（ローカル開発環境で単体実行）
|
||
- 実行時は環境変数 JIN07R01 で EMP-VALID を割当てる
|