cobol-tna-system/詳細設計書/詳細設計書_JIN05UPD.md

# JIN05UPD 詳細設計書

## プログラム概要

| 項目 | 内容 |
|------|------|
| プログラムID | JIN05UPD（人事→JINji, 05, 人事異動DB更新→UPD） |
| プログラムタイプ | 09（DB更新） |
| 機能 | HR-TRANS（人事異動トランザクション）を読込み、DB2 EMPLOYEEテーブルをINSERT/UPDATEする |
| CALL方式 | メインプログラム（JCLからCALL） |
| DBアクセス | DB2 EMPLOYEE（CONNECT / INSERT / UPDATE） |
| 使用サブプログラム | SUB01DAT（日付）, SUB02MSG（メッセージ）, SUB03END（アベンド） |

### 前提条件

| NO | 対象ファイル | 条件 |
|----|-------------|------|
| 1 | HR-TRANS | JCL の SORT で社員番号昇順に並替済であること |

### 使用ファイル一覧

| NO | 使用ファイル名 | 識別子 | DD名 | I/O | COPY群 | 形式 | レコード長 | 媒体 | 備考 |
|----|--------------|--------|------|-----|--------|------|-----------|------|------|
| 1 | HR-TRANS | R01 | JIN05R01 | I | JIN05REC | FB | 200 | PS | 人事異動トランザクション |
| 2 | VALID-ERROR | W01 | JIN05W01 | O | （内約80B） | FB | 80 | PS | エラー退避 |

> 補足：VALID-ERROR レコードは COPY を使用せず WORKING-STORAGE/W01OUTREC に内約定義（PROGRAMID 8B + EMP-ID 8B + CODE 4B + DETAIL 60B = 80B）。ID 設計上 COPY VALID-ERROR-REC を使用していない。将来は COPY 化推奨。

### DB 使用一覧

| NO | テーブル | I/O | 内容 |
|----|---------|:---:|------|
| 1 | EMPLOYEE | I/U | 人事異動の新規登録（INSERT）/ 更新（UPDATE） |

### 使用モジュール一覧

| NO | 機能 | プログラムID | 使用COPY名 |
|----|------|-------------|-----------|
| 1 | 運用日付取得SUB | SUB01DAT | JINDATAC |
| 2 | メッセージ編集出力SUB | SUB02MSG | JINMSGAC |
| 3 | ABEND処理SUB | SUB03END | JINENDAC |

---

## 処理詳細

### 段落一覧（SOR規約名）

| 段落名 | 機能 |
|:-------|:-----|
| 0000MAJCOLSOR | メインコントロール（初期→読込→DB更新ループ→終了） |
| 1000ITTSOR | 初期処理（開始表示・初期化・運用日付・CONNECT・OPEN・初回読込） |
| 2000MAINSOR | 主処理（ホスト変数転記→種別判定→対応処理） |
| 2100READSOR | R01読込・EOF判定 |
| 3100INSERTSOR | INSERT処理（新規社員追加） |
| 3200UPDATESOR | UPDATE処理（既存社員更新） |
| 3300ERRSOR | 不明トランザクション→VALID-ERROR出力 |
| 3400DBERRSOR | DBエラー（SQLCODE≠0）→VALID-ERROR出力 |
| 4000STPSOR | 終了処理（統計表示・CLOSE・終了メッセージ） |
| 9000ERRSOR | エラー処理（ABEND） |

### 処理フロー

```
1. 0000MAJCOLSOR
   1-1. PERFORM 1000ITTSOR（初期処理）
   1-2. PERFORM 2000MAINSOR
        UNTIL WRK-R01EOF-Y OR WRK-COUNT >= CNS-MAX-TRANS
        （PERFORM UNTIL ... OR ... カバー。上限500件ガード）
   1-3. PERFORM 4000STPSOR
   1-4. GOBACK

2. 1000ITTSOR（初期処理）
   2-1. DISPLAY 'JIN05UPD START' UPON CONSOLE
   2-2. M00MHOPAR 初期化 → CALL SUB02MSG（開始 001）
   2-3. INITIALIZE WRKARA REPLACING NUMERIC BY ZEROS ALPHANUMERIC BY SPACES
   2-4. INITIALIZE CUNARA
   2-5. CALL SUB01DAT ... ON EXCEPTION → PERFORM 9000ERRSOR（CALL ON EXCEPTION カバー）
   2-6. EXEC SQL CONNECT（DB接続）
   2-7. OPEN INPUT R01INNFIL OUTPUT W01OUTFIL
   2-8. PERFORM 2100READSOR（初回読込）

3. 2000MAINSOR（主処理）
   3-1. ADD 1 TO WRK-COUNT（処理件数増）
   3-2. R01TRAN-* → HV-* へホスト変数転記
   3-3. MOVE R01TRAN-TYPE TO WRK-TRAN-TYPE
   3-4. EVALUATE TRUE
        WHEN WRK-TRAN-INSERT → PERFORM 3100INSERTSOR
        WHEN WRK-TRAN-UPDATE → PERFORM 3200UPDATESOR
        WHEN WRK-TRAN-DELETE → PERFORM 3300ERRSOR（削除未実装）
        WHEN OTHER → PERFORM 3300ERRSOR
   3-5. PERFORM 2100READSOR

4. 2100READSOR（読込）
   READ R01INNFIL AT END → WRK-R01EOF='1'
             NOT AT END → ADD 1 TO CUN-R01INN

5. 3100INSERTSOR（INSERT）
   EXEC SQL INSERT INTO EMPLOYEE（:HV-* 9カラム）
   IF SQLCODE NOT = 0 → 3400DBERRSOR
    ELSE → ADD 1 TO CUN-DBINS

6. 3200UPDATESOR（UPDATE）
   STRING 'UPDATING: ' HV-EMP-ID INTO WS-SQL-STR ON OVERFLOW
   DISPLAY WS-SQL-STR UPON CONSOLE WITH NO ADVANCING
   EXEC SQL UPDATE EMPLOYEE SET（:HV-* 8-カラム→9列）
        WHERE EMP_ID = :HV-EMP-ID
   IF SQLCODE NOT = 0 → 3400DBERRSOR
    ELSE → ADD 1 TO CUN-DBUPD

7. 3300ERRSOR（不明種別）
   W01ERR-PROGRAMID=PGMID / W01ERR-EMP-ID=HV-EMP-ID / W01ERR-CODE='0001'
   STRING `INVALID TRAN-TYPE:` ... INTO W01ERR-DETAIL → WRITE
   ADD 1 TO CUN-W01OUT

8. 3400DBERRSOR（DBエラー）
   MOVE SQLCODE → WS-SQLCODE-DISP
   STRING `DB ERROR SQLCODE=` ... INTO W01ERR-DETAIL
   W01ERR-CODE='0002' → WRITE
   CALL SUB02MSG USING BY CONTENT

9. 4000STPSOR（終了）
   DISPLAY READ/INSERT/UPDATE/ERROR 件数 UPON CONSOLE
   CLOSE R01INNFIL
   CLOSE W01OUTFIL WITH LOCK
   CALL SUB02MSG（終了 002）
   CALL SUB03END（正常終了）

10. 9000ERRSOR（ABEND）
   DISPLAY 'JIN05UPD ABEND' UPON CONSOLE
   CALL SUB03END（E01ABDCOD）
```

### トランザクション種別（88-level）

| 88条件名 | VALUE | 対応処理 |
|:---------|:------|:---------|
| WRK-TRAN-INSERT | 'A' 'B' 'C' | 3100INSERTSOR |
| WRK-TRAN-UPDATE | 'D' THRU 'G' | 3200UPDATESOR |
| WRK-TRAN-DELETE | 'Z' | 3300ERRSOR（削除未実装） |
| （WHEN OTHER） | 上記以外 | 3300ERRSOR |

> 88-level の複数VALUE（'A' 'B' 'C'）と VALUE THRU（'D' THRU 'G'）をカバー。

### カバレッジ対象キーワード

| 予約語/記号 | 使用箇所 |
|:-----------|:---------|
| PERFORM UNTIL ... OR ... | 0000MAJCOLSOR: ループ上限 |
| INITIALIZE ... REPLACING | 1000ITTSOR: REPLACING NUMERIC / ALPHANUMERIC |
| CALL ... ON EXCEPTION | 1000ITTSOR: SUB01DAT（異常時9000） |
| EXEC SQL CONNECT / INSERT / UPDATE | DB操作 |
| 88-level 複数VALUE + VALUE THRU | 種別判定 |
| EVALUATE TRUE | 2000MAINSOR: WHEN分岐 |
| STRING ... ON OVERFLOW | 3200/3300/3400 |
| DISPLAY ... UPON CONSOLE WITH NO ADVANCING | 自編集 |
| CALL ... BY CONTENT | 3400DBERRSOR |

---

## 出力レコード定義

### 出力ファイル1（W01/VALID-ERROR）— COPY VALID-ERROR-REC 80B

| No | 項目名 | 設定元 | PIC | 備考 |
|----|--------|--------|:---:|------|
| 1 | ERR-PROGRAMID | CNS-PRGIDX | X(8) | 'JIN05UPD' |
| 2 | ERR-EMP-ID | HV-EMP-ID | X(8) | 社員ID |
| 3 | ERR-CODE | '0001'/'0002' | X(4) | エラー種別 |
| 4 | ERR-DETAIL | STRING編集 | X(60) | 詳細メッセージ |

> ER-CODE: 0001=不明種別、0002=DBエラー。

### 入力レコード（R01/HR-TRANS）— JIN05REC 200B

| No | 項目名 | PIC | 備考 |
|----|--------|:---:|------|
| 1 | TRAN-TYPE | X(1) | A/B/C=Insert, D-G=Update |
| 2 | TRAN-EMP-ID | X(8) | |
| 3 | TRAN-KANA-SEI | X(20) | |
| 4 | TRAN-KANA-MEI | X(20) | |
| 5 | TRAN-KANJI-NAME | X(40) | |
| 6 | TRAN-SUB-CODE | X(4) | |
| 7 | TRAN-BIRTH-DATE | X(8) | |
| 8 | TRAN-DEPT-CODE | X(4) | |
| 9 | TRAN-ENTRY-DATE | X(8) | |
| 10 | TRAN-STATUS | X(1) | |
| 11 | FILLER | X(86) | |

> COPY JIN05REC（200B）を REPLACING (A)→R01 で定義。