KYU09MRG 使用資源一覧
プログラム概要
- プログラムID: KYU09MRG
- プログラム名: 支給データ結合処理
- 処理概要: SALARY-NETとBONUS-DATAをMERGE文で社員番号昇順に結合し、同一社員内の給与（TYPE=S）と賞与（TYPE=B）を統合する。
使用ファイル
| DD名 |
ファイル識別子 |
編成 |
レコード形式 |
レコード長 |
COPY句 |
| KYU09M99 |
MERGE-FILE（作業） |
順編成 |
- |
200B |
なし（自前定義 SD） |
| KYU09M01 |
SALARY-NET（S=給与） |
順編成 |
F (固定長) |
200B |
KYU04REC |
| KYU09M02 |
BONUS-DATA（B=賞与） |
順編成 |
F (固定長) |
200B |
KYU04REC |
| KYU09W01 |
PAYMENT-DATA |
順編成 |
F (固定長) |
200B |
KYU06REC |
| KYU09W02 |
ERROR-LOG |
順編成 |
V (可変長) |
200B |
KYU99REC |
使用COPY句
| COPY句 |
用途 |
使用箇所 |
| KYU04REC |
レコード定義（M01/M02入力ファイル） |
FILE SECTION |
| KYU06REC |
レコード定義（W01出力ファイル） |
FILE SECTION |
| KYU99REC |
エラーログレコード定義（W02出力ファイル） |
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）
- MERGE実行（ON ASCENDING KEY MERGE-EMP-ID, USING SALARY-FILE BONUS-FILE）
- OUTPUT PROCEDURE（2000MRGOUTSOR）
- RETURN MERGE-FILE で受取
- 同一社員内でTYPE=S（給与）とTYPE=B（賞与）を統合
- 給与+賞与=支給総額算定
- PAYMENT-DATA出力
- 終了処理（CLOSE→件数出力→終了ﾒｯｾｰｼﾞ）
qiuqiuqiu
75475b3fa1