# 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操作なし) ## 処理フロー 1. 初期処理(開始メッセージ→運用日付取得→OPEN) 2. MERGE実行(ON ASCENDING KEY MERGE-EMP-ID, USING SALARY-FILE BONUS-FILE) 3. OUTPUT PROCEDURE(2000MRGOUTSOR) - RETURN MERGE-FILE で受取 - 同一社員内でTYPE=S(給与)とTYPE=B(賞与)を統合 - 給与+賞与=支給総額算定 - PAYMENT-DATA出力 4. 終了処理(CLOSE→件数出力→終了メッセージ)