ZAN04MAT 使用資源一覧
プログラム概要
- プログラムID: ZAN04MAT
- プログラム名: 取消マッチング処理
- 処理概要: OVT-SORTED（有効申請）とOVT-CSORT（取消申請）を申請番号で1:1マッチングし、結果を振り分ける。
使用ファイル
| DD名 |
ファイル識別子 |
編成 |
レコード形式 |
レコード長 |
COPY句 |
| ZAN04R01 |
OVT-SORTED |
順編成 |
F (固定長) |
80B |
ZAN01REC |
| ZAN04R02 |
OVT-CSORT |
順編成 |
F (固定長) |
80B |
ZAN01REC |
| ZAN04W01 |
OVT-MATCHED |
順編成 |
F (固定長) |
80B |
ZAN02REC |
| ZAN04W02 |
OVT-DBCLEAN |
順編成 |
F (固定長) |
80B |
ZAN04REC |
| ZAN04W03 |
ERROR-LOG |
順編成 |
V (可変長) |
200B |
ZAN05REC |
使用COPY句
| COPY句 |
用途 |
使用箇所 |
| ZAN01REC |
レコード定義（R01/R02入力ファイル） |
FILE SECTION |
| ZAN02REC |
OVT-MATCHEDレコード定義（W01出力） |
FILE SECTION |
| ZAN04REC |
OVT-DBCLEANレコード定義（W02出力） |
FILE SECTION |
| ZAN05REC |
エラーログレコード定義（W03出力） |
FILE SECTION |
| ZANDATAC |
運用日付サブPGM連絡領域 |
WORKING-STORAGE |
| ZANMSGAC |
メッセージ編集サブPGM連絡領域 |
WORKING-STORAGE |
| ZANENDAC |
ABENDサブPGM連絡領域 |
WORKING-STORAGE |
使用サブプログラム
| サブPGM |
役割 |
CALL箇所 |
| SUB01DAT |
運用日付取得 |
1000ITTSOR |
| SUB02MSG |
メッセージ編集出力 |
4000MSGOUTSOR |
| SUB03END |
ABEND処理 |
9999ABDSOR |
使用DB2テーブル
なし（DB操作なし）
処理フロー
- 初期処理（開始ﾒｯｾｰｼﾞ→運用日付取得→OPEN→R01/R02初回読込）
- メイン処理：マッチング（申請番号APPL-IDで1:1突合）
- R01キー = R02キー（マッチ） → 取消済み申請をERROR-LOG(W03)に出力（ERR-CATEGORY=04）
- R01キー < R02キー（R01のみ） → 有効申請をOVT-MATCHED(W01)に出力（STRING編集でPROC-SEQ=01付加）
- R01キー > R02キー（R02のみ） → 取消申請をOVT-DBCLEAN(W02)に出力
- 終了処理（CLOSE→件数出力→終了ﾒｯｾｰｼﾞ）
qiuqiuqiu