# JIN05UPD 使用資源一覧 ## プログラム概要 - **プログラムID**: JIN05UPD - **プログラム名**: 人事異動DB更新処理 - **処理概要**: 人事異動トランザクションを読み込み、DB2 EMPLOYEEマスタをINSERT/UPDATEする ## 使用ファイル | DD名 | ファイル識別子 | 編成 | レコード形式 | レコード長 | COPY句 | |------|---------------|------|-------------|-----------|--------| | JIN05R01 | HR-TRANS | 順編成 | F (固定長) | 200B | JIN05REC | | JIN05W01 | VALID-ERROR | 順編成 | F (固定長) | 80B | VALID-ERROR-REC | ## 使用COPY句 | COPY句 | 用途 | 使用箇所 | |--------|------|---------| | JIN05REC | 人事異動トランザクションレコード定義(R01入力) | FILE SECTION | | VALID-ERROR-REC | VALID-ERROR エラーレコード定義(W01出力) | FILE SECTION | | JINDATAC | 運用日付サブPGM連絡領域 | WORKING-STORAGE | | JINMSGAC | メッセージ編集サブPGM連絡領域 | WORKING-STORAGE | | JINENDAC | ABENDサブPGM連絡領域 | WORKING-STORAGE | ## 使用サブプログラム | サブPGM | 役割 | CALL箇所 | |---------|------|---------| | SUB01DAT | 運用日付取得 | 1000ITTSOR | | SUB02MSG | メッセージ編集出力 | 1000ITTSOR, 3400DBERRSOR, 4000STPSOR | | SUB03END | ABEND処理 | 4000STPSOR, 9000ERRSOR | ## 使用DB2テーブル | テーブル名 | 操作 | 使用箇所 | |-----------|------|---------| | EMPLOYEE | INSERT | 3100INSERTSOR | | EMPLOYEE | UPDATE | 3200UPDATESOR | ## 処理フロー 1. 初期処理(開始メッセージ→運用日付取得→DB接続→OPEN→R01初回読込) 2. R01読込→トランザクション種別判定ループ - A/B/C → INSERT処理 - D/E/F/G → UPDATE処理 - その他 → エラー出力 3. 終了処理(CLOSE→件数出力→終了メッセージ→RETURN-CODE設定)