# 給与計算システム 設計書（サブシステムC）

## システム概要

本サブシステムは、社員マスタ・勤怠集計データ（サブシステムA・Bの出力）を基に給与計算を行い、
部門別分割出力・給与明細印刷・支給データ結合を実行する。
各COBOLプログラムは1プログラム＝1パターンを原則とし、内部処理（Type 24/25/28）との併用のみ許容する。

### サブシステム情報

| 項目 | 内容 |
|------|------|
| サブシステムID | KYU（給与→KYUryo） |
| COBOLプログラム数 | 9 |
| JCL数 | 6 |

### システム定数

| 定数 | 値 | 説明 |
|------|-----|------|
| BASE-HOURS | 160 | 月所定労働時間（20日×8h）（参考値、コード未使用） |
| INSURANCE-RATE | 0.12345 | 社会保険料率（12.345%）（参考値、コード未使用） |
| TAX-BASIC-DEDUCTION | 50000 | 基礎控除（月額50,000円） |
| OVERTIME-RATE | 1.25 | 時間外労働割増率（25%増） |
| HOLIDAY-RATE | 1.35 | 休日労働割増率（35%増） |
| MIDNIGHT-RATE | 1.50 | 深夜労働割増率（50%増） |

### サブシステム間連携

| 連携データ | 出力元 | 入力先 | 方式 | 備考 |
|-----------|--------|--------|------|------|
| ABSENCE-SUMMARY（欠勤統計） | A-サブシステム KIN08DBU | KYUJ020 | ファイル連携 | 月次欠勤集計（80B / 社員番号昇順） |
| OVT-MONTHLY（残業統計） | B-サブシステム ZAN06UPD | KYUJ020 | DB参照（同一DB2インスタンス） | 残業時間（DB2同一インスタンス内別スキーマ） |
| EMP-RECORD（社員固定長） | KYU01CVT | KYU02REG | ファイル連携 | CSV変換後（80B） |
| ABSENCE-AGGREGATE（欠勤集約） | KYU03AGG | KYU04CAL | ファイル連携 | 社員別集約後（80B） |
| SALARY-DETAIL（給与明細） | KYU04CAL | KYU05DED / KYU06UPD | ファイル連携 | 計算後給与（240B） |
| SALARY-NET（差引支給） | KYU05DED | KYU06UPD / KYU07DIV / KYU08PRI / KYU09MRG | ファイル連携 | 控除後支給額（200B） |
| PAYMENT-DATA（支給データ） | KYU09MRG | 外部銀行システム | ファイル連携 | 振込データ（200B） |

---

## ファイル一覧

| # | ファイル名 | 編成 | RECM | サイズ | 用途 | 区分 |
|---|-----------|------|------|-------|------|------|
| 1 | ABSENCE-SUMMARY | SEQUENTIAL | FB | 80 | 欠勤統計（Aシステム出力） | A連携 |
| 2 | PAY-PARAM | SEQUENTIAL | FB | 80 | 給与パラメータ（単価・控除率） | 新規 |
| 3 | EMP-RECORD | SEQUENTIAL | FB | 80 | 社員マスタ固定長（CSV変換後） | 新規 |
| 4 | ABSENCE-AGGREGATE | SEQUENTIAL | FB | 80 | 欠勤集約後（社員単位） | 新規 |
| 5 | SALARY-DETAIL | SEQUENTIAL | FB | 240 | 給与明細（計算後） | 新規 |
| 6 | SALARY-NET | SEQUENTIAL | FB | 200 | 差引支給額（控除後） | 新規 |
| 7 | PAYSLIP | SEQUENTIAL | FB | 200 | 給与明細印刷イメージ | 新規 |
| 8 | BONUS-DATA | SEQUENTIAL | FB | 200 | 賞与データ | 新規 |
| 9 | PAYMENT-DATA | SEQUENTIAL | FB | 200 | 支給データ（銀行振込用） | 新規 |
| 10 | DEPT-OUT-01〜50 | SEQUENTIAL | FB | 200 | 部門別分割出力（最大50ファイル） | 新規 |
| 11 | ERROR-LOG | SEQUENTIAL | VB | 最大200 | エラーレコード退避 | A・B共用 |

### DB二重対応

本サブシステムのDB操作はDB2の埋め込みSQL（`EXEC SQL`）で直接記述する。
社員マスタ（EMP-MASTER）と税率テーブル（TAX-TABLE）は同一DB2インスタンス内の別スキーマ（SALARYDB）で管理する。
BサブシステムのOVERTIME.DBも同一DB2インスタンスに存在するため、`スキーマ名.テーブル名` でクロススキーマ参照可能。

### 共通関数利用方針

既存のサブプログラム（SUB01DAT～SUB05TIM）は本サブシステムでも利用する。
新たな共通関数は追加せず、各プログラム内でロジックを完結させる。

---

## DB構成（SALARYDB）

### DB名称：給与計算データベース（SALARYDB）

#### テーブル1：EMP-MASTER（社員マスタテーブル）

| カラム | 型 | 内容 |
|--------|---|------|
| EMP-ID | CHAR(8) | 社員番号（PK） |
| EMP-NAME | VARCHAR(40) | 社員名 |
| DEPT-CODE | CHAR(2) | 部署コード（01～50） |
| REGION-CODE | CHAR(2) | 地域コード（01～25、FYI用） |
| CATEGORY-CODE | CHAR(3) | 社員区分コード（001～100、FYI用） |
| BASE-SALARY | DECIMAL(9,0) | 基本給 |
| HOURLY-RATE | DECIMAL(7,0) | 時給 |
| DEPENDENT-COUNT | SMALLINT | 扶養人数 |
| STATUS | CHAR(1) | 0=在籍 / 9=退職 |
| UPDATED-AT | TIMESTAMP | 更新日時 |

#### テーブル2：TAX-TABLE（税率テーブル）

| カラム | 型 | 内容 |
|--------|---|------|
| TAX-FROM | DECIMAL(9,0) | 課税所得下限（PK） |
| TAX-TO | DECIMAL(9,0) | 課税所得上限（PK） |
| TAX-RATE | DECIMAL(5,4) | 税率（0.0500=5%） |
| DEDUCTION | DECIMAL(9,0) | 控除額 |

#### テーブル3：INSURANCE-TABLE（社会保険料率テーブル）

| カラム | 型 | 内容 |
|--------|---|------|
| INS-INCOME-FROM | DECIMAL(9,0) | 対象所得下限（PK） |
| INS-INCOME-TO | DECIMAL(9,0) | 対象所得上限（PK） |
| INS-HEALTH-RATE | DECIMAL(7,6) | 健康保険料率 |
| INS-PENSION-RATE | DECIMAL(7,6) | 厚生年金保険料率 |
| UPDATED-AT | TIMESTAMP | 更新日時 |

#### テーブル4：SALARY-RESULTS（給与計算結果テーブル）

| カラム | 型 | 内容 |
|--------|---|------|
| EMP-ID | CHAR(8) | 社員番号（PK） |
| YEAR-MONTH | CHAR(6) | 対象年月 YYYYMM（PK） |
| GROSS-PAYMENT | DECIMAL(9,0) | 支給総額 |
| INCOME-TAX | DECIMAL(9,0) | 源泉所得税 |
| INSURANCE | DECIMAL(9,0) | 社会保険料 |
| RESIDENT-TAX | DECIMAL(9,0) | 住民税 |
| NET-PAYMENT | DECIMAL(9,0) | 差引支給額 |
| UPDATED-AT | TIMESTAMP | 更新日時 |

---

## 処理フロー

```
  ╞══ KYUJ010 ═══════════════════════════════════╡
  │ KYU01CVT（CSV→FB変換） PGMパターン: 21
  │   INSPECT CONVERTING（引用符内改行→SPACE）
  │   UNSTRING COUNT IN（項目数カウント）
  │   SUB04CHK で数値妥当性チェック（内部処理25）
  │   コメント行（先頭#）は読み飛ばし
  ├── 正常 → EMP-RECORD（80B 固定長）
  └── 異常 → ERROR-LOG
  │
  │ KYU02REG（DB2登録） PGMパターン: 09
  │   EXEC SQL INSERT（新規）
  │   SQLCODE=-803 → EXEC SQL UPDATE（重複更新）
  ├── → DB2 EMP-MASTER
  └── 異常 → ERROR-LOG
  │
  ╞══ KYUJ020 ═══════════════════════════════════╡
  │ STEP020S: JCL SORT（ABSENCE-SUMMARY → 社員番号昇順）
  │
  │ KYU03AGG（欠勤集約） PGMパターン: 08
  │   同一社員内の複数欠勤レコードを読込 → 集約
  │   INITIALIZE REPLACING NUMERIC DATA BY ZERO
  ├── → ABSENCE-AGGREGATE（80B 社員単位1件）
  └── 異常 → ERROR-LOG
  │
  │ KYU04CAL（給与計算） PGMパターン: 32
  │   ABSENCE-AGGREGATE + EMP-MASTER（DB2参照）
  │   OVT-MONTHLY（DB2 Bサブシステム参照）
  │   EVALUATE ALSO（勤怠区分×手当種別の複合分岐）
  │   COMPUTE ROUNDED ON SIZE ERROR
  ├── → SALARY-DETAIL（240B）
  └── 異常 → ERROR-LOG
  │
  ╞══ KYUJ030 ═══════════════════════════════════╡
  │ KYU05DED（控除計算） PGMパターン: 23
  │   TAX-TABLE → EXEC SQL SELECT ... BETWEEN
  │   INSURANCE-TABLE → SEARCH ALL（内部表LOAD後）
  │   課税所得計算・源泉所得税・社会保険料・住民税を算出
  ├── → SALARY-NET（200B）
  └── 異常 → ERROR-LOG
  │
  │ KYU06UPD（DB2更新） PGMパターン: 09
  │   EXEC SQL INSERT（新規）
  │   SQLCODE=-803 → EXEC SQL UPDATE（再計算更新）
  ├── → DB2 SALARY-RESULTS
  └── 異常 → ERROR-LOG
  │
  ╞══ KYUJ040 ═══════════════════════════════════╡
  │ STEP040S: JCL SORT（SALARY-NET → 部署コード昇順）
  │
  │ KYU07DIV（部門分割出力） PGMパターン: 10
  │   SYSIN制御カードで出力対象部署の絞込可能
  │   EVALUATE DEPT-CODE で該当ファイルへSELECT WRITE
  │   部署別ファイルを順次OPEN/CLOSE（常時1 OPEN）
  │   CLOSE WITH LOCK で出力ファイル確定
  ├── 部署別 → DEPT-OUT-01〜50
  └── 異常 → ERROR-LOG
  │
  ╞══ KYUJ050 ═══════════════════════════════════╡
  │ STEP050S: JCL SORT（SALARY-NET → 社員番号昇順）
  │
  │ KYU08PRI（給与明細印刷） PGMパターン: 04
  │   FD LINAGE IS 66 LINES / TOP 6 / BOTTOM 6 / FOOTING 60
  │   WRITE BEFORE ADVANCING PAGE（1社員1ページ）
  │   BLANK WHEN ZERO / JUSTIFIED RIGHT
  │   AT END-OF-PAGE / PAGE-COUNTER / SET UP BY
  ├── → PAYSLIP（SYSOUT）
  └── 異常 → ERROR-LOG
  │
  ╞══ KYUJ060 ═══════════════════════════════════╡
  │ KYU09MRG（支給データ結合） PGMパターン: 35
  │   COBOL MERGE文（SALARY-NET + BONUS-DATA）
  │   ON ASCENDING KEY MERGE-EMP-ID
  │   OUTPUT PROCEDURE で社員単位に統合
  │   RETURN ... AT END でMERGE結果受取
  ├── → PAYMENT-DATA（200B）
  └── 異常 → ERROR-LOG
```

---

## JCL

### KYUJ010 — 社員マスタ取込（2ステップ）

```jcl
//KYUJ010  JOB (ACCT),'社員マスタ取込',CLASS=A
//*
//*--- パラメータ定義 ---
//SETPARM  SET YEARMONTH=202605
//*                   ※PARM値は本番z/OSでJCLから指定。ローカルGnuCOBOLでは環境変数で代替。
//*=====================================================================
//* STEP010: CSV→FB変換（Type 21）
//*=====================================================================
//STEP010  EXEC PGM=KYU01CVT,PARM='YEARMONTH=&YEARMONTH'
//KYU01R01  DD DSN=EMP-MASTER.CSV,DISP=SHR
//KYU01W01  DD DSN=EMP-RECORD.DAT,DISP=(NEW,PASS)
//KYU01W02  DD DSN=ERROR-LOG.DAT,DISP=(NEW,PASS)
//*
//*=====================================================================
//* STEP020: DB2登録（Type 09）
//*=====================================================================
//STEP020  EXEC PGM=KYU02REG,PARM='YEARMONTH=&YEARMONTH'
//KYU02R02  DD DSN=EMP-RECORD.DAT,DISP=(OLD,DELETE)
//KYU02W03  DD DSN=ERROR-LOG.DAT,DISP=(NEW,PASS)
```

### KYUJ020 — 給与計算（3ステップ）

```jcl
//KYUJ020  JOB (ACCT),'給与計算',CLASS=A
//*
//*--- パラメータ定義 ---
//SETPARM  SET YEARMONTH=202605
//*
//*=====================================================================
//* STEP020S: 欠勤統計 SORT（社員番号昇順）
//*=====================================================================
//STEP020S EXEC PGM=SORT
//SORTIN   DD DSN=ABSENCE-SUMMARY.DAT,DISP=SHR
//SORTOUT  DD DSN=KYU02S01.DAT,DISP=(NEW,PASS)
//SYSIN    DD *
  SORT FIELDS=(1,8,CH,A),EQUALS
/*
//*
//*=====================================================================
//* STEP021: 欠勤集約（Type 08）
//*=====================================================================
//STEP021  EXEC PGM=KYU03AGG,PARM='YEARMONTH=&YEARMONTH'
//KYU03R01  DD DSN=KYU02S01.DAT,DISP=(OLD,DELETE)
//KYU03W01  DD DSN=ABSENCE-AGGREGATE.DAT,DISP=(NEW,PASS)
//KYU03W02  DD DSN=ERROR-LOG.DAT,DISP=(NEW,PASS)
//*
//*=====================================================================
//* STEP022: 給与計算（Type 32）
//* EMP-MASTER / OVT-MONTHLY はDB2（EXEC SQL）参照のためDD不要
//*=====================================================================
//STEP022  EXEC PGM=KYU04CAL,PARM='YEARMONTH=&YEARMONTH'
//KYU04R02  DD DSN=ABSENCE-AGGREGATE.DAT,DISP=(OLD,DELETE)
//KYU04R03  DD DSN=PAY-PARAM.DAT,DISP=SHR
//KYU04W03  DD DSN=SALARY-DETAIL.DAT,DISP=(NEW,CATLG,DELETE)
//KYU04W04  DD DSN=ERROR-LOG.DAT,DISP=(NEW,PASS)
```

### KYUJ030 — 控除計算（2ステップ）

```jcl
//KYUJ030  JOB (ACCT),'控除計算',CLASS=A
//*
//*--- パラメータ定義 ---
//SETPARM  SET YEARMONTH=202605
//*
//*=====================================================================
//* STEP030: 控除計算（Type 23）
//* TAX-TABLE / INSURANCE-TABLE はDB2（EXEC SQL）参照のためDD不要
//*=====================================================================
//STEP030  EXEC PGM=KYU05DED,PARM='YEARMONTH=&YEARMONTH'
//KYU05R01  DD DSN=SALARY-DETAIL.DAT,DISP=(OLD,DELETE)
//KYU05W01  DD DSN=SALARY-NET.DAT,DISP=(NEW,PASS)
//KYU05W02  DD DSN=ERROR-LOG.DAT,DISP=(NEW,PASS)
//*
//*=====================================================================
//* STEP031: DB2 SALARY-RESULTS 更新（Type 09）
//*=====================================================================
//STEP031  EXEC PGM=KYU06UPD,PARM='YEARMONTH=&YEARMONTH'
//KYU06R02  DD DSN=SALARY-NET.DAT,DISP=(OLD,DELETE)
//KYU06W03  DD DSN=ERROR-LOG.DAT,DISP=(NEW,PASS)
```

### KYUJ040 — 部門別分割出力

```jcl
//KYUJ040  JOB (ACCT),'部門別分割出力',CLASS=A
//*
//*--- パラメータ定義 ---
//SETPARM  SET YEARMONTH=202605
//*
//*=====================================================================
//* STEP040S: SALARY-NET SORT（部署コード昇順）
//*=====================================================================
//STEP040S EXEC PGM=SORT
//SORTIN   DD DSN=SALARY-NET.DAT,DISP=SHR
//SORTOUT  DD DSN=KYU04S01.DAT,DISP=(NEW,PASS)
//SYSIN    DD *
  SORT FIELDS=(50,2,CH,A),EQUALS
/*
//*
//*=====================================================================
//* STEP040: 50分割出力（Type 10）
//* SYSINで出力対象部署絞込可
//*=====================================================================
//STEP040  EXEC PGM=KYU07DIV,PARM='YEARMONTH=&YEARMONTH'
//KYU07R01  DD DSN=KYU04S01.DAT,DISP=(OLD,DELETE)
//KYU07D01  DD DSN=DEPT-OUT-01.DAT,DISP=(NEW,CATLG,DELETE)
//   ...（全50部署）
//KYU07D50  DD DSN=DEPT-OUT-50.DAT,DISP=(NEW,CATLG,DELETE)
//KYU07SYS  DD *
  DEPT=01,02,05,10
/*
//KYU07W99  DD DSN=ERROR-LOG.DAT,DISP=(NEW,PASS)
```

### KYUJ050 — 給与明細印刷

```jcl
//KYUJ050  JOB (ACCT),'給与明細印刷',CLASS=A
//*
//*--- パラメータ定義 ---
//SETPARM  SET YEARMONTH=202605
//*
//*=====================================================================
//* STEP050S: 給与データ SORT（社員番号昇順）
//*=====================================================================
//STEP050S EXEC PGM=SORT
//SORTIN   DD DSN=SALARY-NET.DAT,DISP=SHR
//SORTOUT  DD DSN=KYU05S01.DAT,DISP=(NEW,PASS)
//SYSIN    DD *
  SORT FIELDS=(1,8,CH,A),EQUALS
/*
//*
//*=====================================================================
//* STEP050: 給与明細印刷（Type 04 LINAGEページ制御）
//*=====================================================================
//STEP050  EXEC PGM=KYU08PRI,PARM='YEARMONTH=&YEARMONTH'
//KYU08R01  DD DSN=KYU05S01.DAT,DISP=(OLD,DELETE)
//KYU08W01  DD SYSOUT=A
//KYU08W02  DD DSN=ERROR-LOG.DAT,DISP=(NEW,PASS)
```

### KYUJ060 — 支給データ結合

```jcl
//KYUJ060  JOB (ACCT),'支給データ結合',CLASS=A
//*
//*--- パラメータ定義 ---
//SETPARM  SET YEARMONTH=202605
//*
//*=====================================================================
//* STEP060: MERGE（Type 35 給与 + 賞与）
//*=====================================================================
//STEP060  EXEC PGM=KYU09MRG,PARM='YEARMONTH=&YEARMONTH'
//KYU09M99  DD UNIT=SYSDA,SPACE=(CYL,(10,5))
//KYU09M01  DD DSN=SALARY-NET.DAT,DISP=SHR
//KYU09M02  DD DSN=BONUS-DATA.DAT,DISP=SHR
//KYU09W01  DD DSN=PAYMENT-DATA.DAT,DISP=(NEW,CATLG,DELETE)
//KYU09W02  DD DSN=ERROR-LOG.DAT,DISP=(NEW,PASS)
```

### 実行順序

本サブシステムのJOBは、A・Bサブシステムの出力を入力とする。
JCL起動時は以下の順序を保証すること。

1. Aサブシステム KINJ080（KIN08DBU）→ ABSENCE-SUMMARY生成
2. Bサブシステム ZANJ025（ZAN06UPD）→ DB2 OVT-MONTHLY確定
3. **KYUJ010**（マスタ取込、任意タイミング。初回のみ必須）
4. **KYUJ020** → **KYUJ030** → **KYUJ040**（またはKYUJ050）→ **KYUJ060**（順次実行）
5. KYUJ040 と KYUJ050 は SALARY-NET.DAT を `DISP=SHR` で参照するため並行実行可能

---

## プログラム詳細

### KYU01CVT（社員マスタCSV→FB変換処理） — Type 21

| 項目 | 内容 |
|------|------|
| **プログラム名称** | 社員マスタCSV→FB変換処理 |
| **PGMパターン** | CSV→FB変換（改行あり）+ 内部処理25（SUB04CHK数値チェック） |
| **SORT前処理** | 不要 |
| **入力** | EMP-MASTER.CSV（可変長/改行あり） |
| **出力** | EMP-RECORD（80B 固定長）/ ERROR-LOG（VB） |
| **件数変化** | N件（CSV行）→ 正常M件 + 異常(N-M)件 |
| **使用共通関数** | SUB01DAT, SUB02MSG, SUB03END, SUB04CHK |
| **該当プログラム分類** | No.21 CSV→FB変換（改行あり） |

**入力CSV形式：**

```
EMP001,山田 太郎,01,01,001,300000,1800,2,0
EMP002,佐藤 花子,02,01,002,280000,1700,1,0
```

- 引用符（`"`）で囲まれた社員名フィールド内に改行を含む場合は複数行読込
- コメント行（先頭`#`）は読み飛ばし

**機能：**

1. `OPEN INPUT` CSVファイル（VB編成・可変長）
2. `READ` で1行取得。AT END まで繰り返し
3. 行内の引用符 `"` の出現状態を追跡し、引用符内改行とレコード境界改行を区別：
   - `WS-IN-QUOTE` フラグが FALSE かつ行内に奇数個の `"` → 引用符内続行モード開始
   - `WS-IN-QUOTE` が TRUE かつ行内に奇数個の `"` → 引用符内終了
   - 引用符内継続行は連結用ワーク領域（WS-CSV-ACCUM）に蓄積
4. 完全な1レコード分のデータが揃った時点で、`INSPECT CONVERTING X"0D" X"0A" BY SPACE` で引用符内改行をスペース変換
5. `UNSTRING DELIMITED BY ',' INTO ... COUNT IN WS-FIELD-COUNT` でCSV分解＋項目数カウント
6. SUB04CHK で社員番号（8桁）・時給（7桁）の数値妥当性チェック（内部処理25に該当）
7. 社員番号空チェック：`INSPECT TALLYING WS-TALLY FOR LEADING SPACES` → 全桁SPACEならエラー
8. 正常レコードは EMP-RECORD（80B）に WRITE
9. エラー時は ERROR-LOG に書出し

#### DECLARATIVES（ファイルエラー処理）

`DECLARATIVES` 宣言部でファイル入出力エラーを捕捉し、共通エラー処理に制御を移す。

```
DECLARATIVES.
KYU01CVT-ERR SECTION.
    USE AFTER ERROR PROCEDURE ON KYU01R01.
KYU01CVT-ERR-PROC.
    PERFORM 9999-ABEND.
    .
KYU01W01-ERR SECTION.
    USE AFTER ERROR PROCEDURE ON KYU01W01.
KYU01W01-ERR-PROC.
    PERFORM 9999-ABEND.
    .
END DECLARATIVES.
```

**新規カバレッジ構文：**

| 構文 | 用途 |
|------|------|
| INSPECT CONVERTING | 引用符内改行コード→SPACE変換 |
| UNSTRING COUNT IN | CSV分解時の項目数検証 |
| IF ALPHABETIC | 社員名の英字判定 |
| DECLARATIVES | ファイル入出力エラー処理の宣言部 |
| USE AFTER ERROR | ファイルエラー時の共通エラー処理手続き |

---

### KYU02REG（社員マスタDB2登録処理） — Type 09

| 項目 | 内容 |
|------|------|
| **プログラム名称** | 社員マスタDB2登録処理 |
| **PGMパターン** | DB更新 |
| **SORT前処理** | 不要（KYU01CVTの出力を入力） |
| **入力** | EMP-RECORD（80B 固定長） |
| **出力** | DB2 EMP-MASTER（INSERT/UPSERT）/ ERROR-LOG（VB） |
| **件数変化** | N件 → DB2登録N件（全件） |
| **使用共通関数** | SUB02MSG, SUB03END |
| **該当プログラム分類** | No.09 DB更新 |

**機能：**

1. `OPEN INPUT` EMP-RECORD（80B 固定長）
2. `READ` で1件取得。AT END まで繰り返し
3. `EXEC SQL INSERT INTO EMP-MASTER ...` でDB2登録
4. SQLCODE = -803（重複）の場合、`EXEC SQL UPDATE` で更新
5. エラー時は ERROR-LOG に書出し

**新規カバレッジ構文：**

| 構文 | 用途 |
|------|------|
| EXEC SQL INSERT | 社員マスタ新規登録 |
| SQLCODE判定によるUPSERT | 重複時UPDATE |
| CLOSE WITH LOCK | 入力ファイルのロッククローズ |

---

### KYU03AGG（欠勤集約処理） — Type 08

| 項目 | 内容 |
|------|------|
| **プログラム名称** | 欠勤集約処理 |
| **PGMパターン** | キーブレイク（集約） |
| **SORT前処理** | JCL SORT（社員番号昇順） |
| **入力** | KYU02S01（80B JCL SORT済み欠勤データ） |
| **出力** | ABSENCE-AGGREGATE（80B 社員単位）/ ERROR-LOG（VB） |
| **件数変化** | M件（欠勤レコード）→ N件（社員数、M≧N） |
| **使用共通関数** | SUB02MSG, SUB03END |
| **該当プログラム分類** | No.08 キーブレイク（集約） |

**機能：**

同一社員内の複数欠勤レコードを集約する。

```
PERFORM UNTIL WS-EOF = '1'
    READ KYU08R01 INTO WS-ABSENCE-REC
        AT END SET WS-EOF TO TRUE
    END-READ
    IF NOT WS-EOF
        IF WS-PREV-EMP-ID = WS-EMP-ID
            ADD 1 TO WS-ABSENT-COUNT
            ADD WS-ABSENT-HOURS TO WS-TOTAL-ABSENT-HOURS
        ELSE
            PERFORM 2000-WRITE-AGGREGATE
            MOVE WS-EMP-ID TO WS-PREV-EMP-ID
            INITIALIZE WS-TOTAL-ABSENT-HOURS
                       WS-ABSENT-COUNT
                REPLACING NUMERIC DATA BY ZERO
            MOVE 1 TO WS-ABSENT-COUNT
            MOVE WS-ABSENT-HOURS TO WS-TOTAL-ABSENT-HOURS
        END-IF
    END-IF
END-PERFORM.
PERFORM 2000-WRITE-AGGREGATE.
```

**新規カバレッジ構文：**

| 構文 | 用途 |
|------|------|
| INITIALIZE REPLACING NUMERIC DATA BY ZERO | 集約カウンタの型別初期化 |
| END-ADD | ADD文の明示的スコープターミネータ |

---

### KYU04CAL（給与計算処理） — Type 32

| 項目 | 内容 |
|------|------|
| **プログラム名称** | 給与計算処理 |
| **PGMパターン** | 1:N＋キーブレイク（同キー） |
| **SORT前処理** | 不要（KYU03AGGの出力を入力） |
| **入力** | ABSENCE-AGGREGATE（80B）/ PAY-PARAM（80B）/ EMP-MASTER（DB2参照）/ OVT-MONTHLY（DB2 Bサブシステム参照） |
| **出力** | SALARY-DETAIL（240B）/ ERROR-LOG（VB） |
| **件数変化** | N件（社員）→ N件（社員） |
| **使用共通関数** | SUB01DAT, SUB02MSG, SUB03END |
| **該当プログラム分類** | No.32 1:N＋キーブレイク（同キー） |

**機能：**

#### Step1：社員単位の給与計算

ABSENCE-AGGREGATE（社員単位1件）を読込み、DB2 EMP-MASTER・OVT-MONTHLY を補完参照する。

```
PERFORM UNTIL WS-EOF = '1'
    READ KYU04R02 INTO WS-ABSENCE-AGG
        AT END SET WS-EOF TO TRUE
    END-READ
    IF NOT WS-EOF
        PERFORM 2100-CALCULATE-SALARY
    END-IF
END-PERFORM.
```

#### Step2：給与計算

1. **EMP-MASTER（DB2 SELECT）** で基本給・時給・扶養人数を取得
2. **OVT-MONTHLY（DB2 SELECT WHERE EMP-ID / YEAR-MONTH）** で残業時間を取得
3. 欠勤控除額 = HOURLY-RATE × 欠勤時間合計
4. 時間外手当 = HOURLY-RATE × 残業時間 × OVERTIME-RATE（1.25）
5. **支給総額 = 基本給 + 各種手当 - 欠勤控除**

```
EXEC SQL
    SELECT BASE-SALARY, HOURLY-RATE, DEPENDENT-COUNT
        INTO :WS-BASE-SALARY, :WS-HOURLY-RATE, :WS-DEPENDENT
        FROM EMP-MASTER
        WHERE EMP-ID = :WS-EMP-ID
END-EXEC.

IF SQLCODE = 0
    COMPUTE WS-ABSENT-DEDUCT ROUNDED =
        WS-HOURLY-RATE * WS-TOTAL-ABSENT-HOURS
        ON SIZE ERROR
            MOVE ZERO TO WS-ABSENT-DEDUCT
            PERFORM 9999ABDSOR
    END-COMPUTE
    COMPUTE WS-OVT-AMOUNT ROUNDED =
        WS-HOURLY-RATE * WS-OVT-HOURS * WS-OVERTIME-RATE
        ON SIZE ERROR
            MOVE ZERO TO WS-OVT-AMOUNT
            PERFORM 9999ABDSOR
    END-COMPUTE
    COMPUTE WS-GROSS-PAYMENT =
        WS-BASE-SALARY + WS-OVT-AMOUNT - WS-ABSENT-DEDUCT
    END-COMPUTE
END-IF.
```

#### Step3：複合条件分岐（EVALUATE ALSO）

勤怠区分と手当種別の組み合わせで支給額を判定する。

```
EVALUATE WS-ALLOWANCE-TYPE ALSO WS-ATTEND-TYPE
    WHEN 'OVT' ALSO 'W'
        COMPUTE WS-AMOUNT ROUNDED =
            WS-HOURLY-RATE * WS-OVT-HOURS * 1.25
    WHEN 'OVT' ALSO 'H'
        COMPUTE WS-AMOUNT ROUNDED =
            WS-HOURLY-RATE * WS-OVT-HOURS * 1.35
    WHEN 'LATE' ALSO ANY
        COMPUTE WS-AMOUNT ROUNDED =
            WS-HOURLY-RATE * WS-LATE-HOURS * 0.50
    WHEN OTHER
        MOVE ZERO TO WS-AMOUNT
END-EVALUATE.
```

**新規カバレッジ構文：**

| 構文 | 用途 |
|------|------|
| EVALUATE ALSO | 勤怠区分×手当種別の複合分岐 |
| OCCURS DESCENDING KEY | 手当テーブルの高額順整列 |
| COMPUTE ROUNDED ON SIZE ERROR | 給与計算の桁あふれ処理 |
| END-ADD / END-DIVIDE / END-SUBTRACT | 明示的スコープターミネータ |

---

### KYU05DED（控除計算処理） — Type 23

| 項目 | 内容 |
|------|------|
| **プログラム名称** | 控除計算処理 |
| **PGMパターン** | SELECT条件 |
| **SORT前処理** | 不要 |
| **入力** | SALARY-DETAIL（240B）/ TAX-TABLE（DB2）/ INSURANCE-TABLE（DB2） |
| **出力** | SALARY-NET（200B）/ ERROR-LOG（VB） |
| **件数変化** | N件 → N件（1対1） |
| **使用共通関数** | SUB02MSG, SUB03END |
| **該当プログラム分類** | No.23 SELECT条件 |

**機能：**

#### Step1：課税所得計算

```
COMPUTE WS-TAXABLE-INCOME =
    WS-GROSS-PAYMENT - WS-INSURANCE - WS-BASIC-DEDUCTION
END-COMPUTE.
```

#### Step2：税率取得（EXEC SQL SELECT ... BETWEEN）

```
EXEC SQL
    SELECT TAX-RATE, DEDUCTION
        INTO :WS-TAX-RATE, :WS-DEDUCTION
        FROM TAX-TABLE
        WHERE :WS-TAXABLE-INCOME BETWEEN TAX-FROM AND TAX-TO
END-EXEC.

IF SQLCODE = 0
    COMPUTE WS-INCOME-TAX ROUNDED =
        WS-TAXABLE-INCOME * WS-TAX-RATE - WS-DEDUCTION
    END-COMPUTE
ELSE
    MOVE ZERO TO WS-INCOME-TAX
END-IF.
```

#### Step3：社会保険料計算（SEARCH ALL）

保険料率テーブル（WORKING-STORAGE）を事前LOADし、SEARCH ALLで検索する。

```
01  INSURANCE-WORK.
    05  IW-COUNT           PIC 9(4).
    05  IW-ENTRY OCCURS 1 TO 200 TIMES
        DEPENDING ON IW-COUNT
        ASCENDING KEY IS IW-INCOME-FROM
        INDEXED BY IW-IDX.
        10  IW-INCOME-FROM PIC 9(9).
        10  IW-INCOME-TO   PIC 9(9).
        10  IW-HEALTH-RATE PIC V9(6).
        10  IW-PENSION-RATE PIC V9(6).
    05  IW-END.
```

- 初期処理で DB2 INSURANCE-TABLE を全件 SELECT → WORKING-STORAGE に LOAD
- `SEARCH ALL` で該当所得範囲の保険料率を検索

```
SEARCH ALL IW-ENTRY
    AT END
        PERFORM 9999ABDSOR
    WHEN IW-INCOME-FROM(IW-IDX) <= WS-TAXABLE-INCOME
      AND WS-TAXABLE-INCOME <= IW-INCOME-TO(IW-IDX)
        COMPUTE WS-INSURANCE ROUNDED =
            WS-TAXABLE-INCOME *
            (IW-HEALTH-RATE(IW-IDX) + IW-PENSION-RATE(IW-IDX))
        END-COMPUTE
END-SEARCH.
```

#### Step4：差引支給額計算

```
COMPUTE WS-NET-PAYMENT =
    WS-GROSS-PAYMENT - WS-INCOME-TAX
                     - WS-INSURANCE
                     - WS-RESIDENT-TAX
END-COMPUTE.
```

**新規カバレッジ構文：**

| 構文 | 用途 |
|------|------|
| EXEC SQL SELECT ... BETWEEN | 課税所得範囲検索 |
| SEARCH ALL（複数WHEN複合条件） | IW-INCOME-FROM～IW-INCOME-TO範囲判定 |
| 88-level VALUES複数値 | 保険料率テーブルの境界値判定 |

---

### KYU06UPD（給与計算結果DB2更新処理） — Type 09

| 項目 | 内容 |
|------|------|
| **プログラム名称** | 給与計算結果DB2更新処理 |
| **PGMパターン** | DB更新 |
| **SORT前処理** | 不要（KYU05DEDの出力を入力） |
| **入力** | SALARY-NET（200B） |
| **出力** | DB2 SALARY-RESULTS（INSERT/UPSERT）/ ERROR-LOG（VB） |
| **件数変化** | N件 → DB2登録N件（全件） |
| **使用共通関数** | SUB02MSG, SUB03END |
| **該当プログラム分類** | No.09 DB更新 |

**機能：**

1. `OPEN INPUT` SALARY-NET（200B）
2. `READ` で1件取得。AT END まで繰り返し
3. `EXEC SQL INSERT INTO SALARY-RESULTS ...` で登録

```
EXEC SQL
    INSERT INTO SALARY-RESULTS
        (EMP-ID, YEAR-MONTH, GROSS-PAYMENT,
         INCOME-TAX, INSURANCE, RESIDENT-TAX,
         NET-PAYMENT, UPDATED-AT)
    VALUES
        (:WS-EMP-ID, :WS-YEAR-MONTH, :WS-GROSS-PAYMENT,
         :WS-INCOME-TAX, :WS-INSURANCE, :WS-RESIDENT-TAX,
         :WS-NET-PAYMENT, CURRENT TIMESTAMP)
END-EXEC.
```

4. SQLCODE = -803（重複）の場合、`EXEC SQL UPDATE` で更新

```
IF SQLCODE = -803
    EXEC SQL
        UPDATE SALARY-RESULTS SET
            GROSS-PAYMENT   = :WS-GROSS-PAYMENT,
            INCOME-TAX      = :WS-INCOME-TAX,
            INSURANCE       = :WS-INSURANCE,
            RESIDENT-TAX    = :WS-RESIDENT-TAX,
            NET-PAYMENT     = :WS-NET-PAYMENT,
            UPDATED-AT      = CURRENT TIMESTAMP
        WHERE EMP-ID    = :WS-EMP-ID
          AND YEAR-MONTH = :WS-YEAR-MONTH
    END-EXEC
END-IF.
```

**新規カバレッジ構文：**

| 構文 | 用途 |
|------|------|
| EXEC SQL INSERT | SALARY-RESULTS新規登録 |
| SQLCODE判定によるUPSERT | 再計算時の重複UPDATE |

---

### KYU07DIV（部門別分割出力処理） — Type 10

| 項目 | 内容 |
|------|------|
| **プログラム名称** | 部門別分割出力処理 |
| **PGMパターン** | 50分割 |
| **SORT前処理** | JCL SORT（部署コード昇順） |
| **入力** | KYU04S01（200B JCL SORT済み）/ SYSIN（制御カード） |
| **出力** | DEPT-OUT-01〜50（各200B） |
| **件数変化** | N件 → 各部署合計N件（全社員） |
| **使用共通関数** | SUB02MSG, SUB03END |
| **該当プログラム分類** | No.10 50分割 |

**機能：**

1. `READ SYSIN` で出力対象部署コード一覧を取得（省略時は全50部署）
2. JCL SORT済みのため部署コード順に入力。部署コードが変わるたびにファイルを切替
3. 部署コード単位でファイルを開閉し、常に1ファイルのみ OPEN 状態を保つ

```
PERFORM UNTIL WS-EOF = '1'
    READ KYU07R01 INTO WS-SALARY-REC
        AT END SET WS-EOF TO TRUE
    END-READ
    IF NOT WS-EOF AND WS-DEPT-CODE IN 対象部署一覧
        IF WS-PREV-DEPT > SPACES
          AND WS-PREV-DEPT NOT = WS-DEPT-CODE
            PERFORM 3000-CLOSE-FILE
        END-IF
        IF WS-DEPT-CODE NOT = WS-PREV-DEPT
            PERFORM 3100-OPEN-FILE
        END-IF
        EVALUATE WS-DEPT-CODE
            WHEN '01' WRITE DEPT01-REC FROM WS-SALARY-REC
            WHEN '02' WRITE DEPT02-REC FROM WS-SALARY-REC
            ...
            WHEN '50' WRITE DEPT50-REC FROM WS-SALARY-REC
            WHEN OTHER CONTINUE
        END-EVALUATE
        MOVE WS-DEPT-CODE TO WS-PREV-DEPT
    END-IF
END-PERFORM.
IF WS-PREV-DEPT > SPACES
    PERFORM 3000-CLOSE-FILE
END-IF.
```

4. 全ファイル終了後、最終部署ファイルを `CLOSE WITH LOCK` で確定

**新規カバレッジ構文：**

| 構文 | 用途 |
|------|------|
| 50分割（部署別1ファイルずつOPEN/CLOSE切替） | 部署別出力（常時1 OPEN でリソース節約） |
| CLOSE WITH LOCK | 出力ファイルのロッククローズ |
| READ SYSIN | 制御カードによる出力対象部署指定（内部処理28） |

---

### KYU08PRI（給与明細印刷処理） — Type 04

| 項目 | 内容 |
|------|------|
| **プログラム名称** | 給与明細印刷処理 |
| **PGMパターン** | レイアウト編集のみ（GETPUT）+ LINAGEページ制御 |
| **SORT前処理** | JCL SORT（社員番号昇順） |
| **入力** | KYU05S01（200B） |
| **出力** | PAYSLIP（SYSOUT A行 200B）/ ERROR-LOG（VB） |
| **件数変化** | N件 → 1社員1ページ（Nページ） |
| **使用共通関数** | SUB01DAT, SUB02MSG, SUB03END |
| **該当プログラム分類** | No.04 レイアウト編集のみ（GETPUT） |

**機能：**

#### Step1：LINAGEページ定義

```
FD  KYU08W01
    LABEL RECORDS STANDARD
    LINAGE IS 66 LINES
        FOOTING IS 60
        TOP 6
        BOTTOM 6.
```

- 1ページ66行、先頭6行（TOP）= ヘッダ領域、最終6行（BOTTOM）= フッタ領域

#### Step2：明細行編集

```
01  PAYSLIP-HEADER.
    05  PH-TITLE           PIC X(40) VALUE
        '========== 給与明細書 =========='.
    05  FILLER             PIC X(10) VALUE SPACES.
    05  PH-PAGE-NO         PIC Z(4)9 VALUE ZERO.
    05  FILLER             PIC X(02) VALUE '頁'.

01  PAYSLIP-DETAIL.
    05  PD-EMP-ID          PIC X(08).
    05  FILLER             PIC X(02) VALUE SPACES.
    05  PD-EMP-NAME        PIC X(20) JUSTIFIED RIGHT.
    05  FILLER             PIC X(02) VALUE SPACES.
    05  PD-BASIC-SALARY    PIC Z(8)9 BLANK WHEN ZERO.
    05  FILLER             PIC X(02) VALUE SPACES.
    05  PD-NET-PAYMENT     PIC Z(8)9 BLANK WHEN ZERO.
```

#### Step3：ページ制御

```
WRITE PAYSLIP-REC FROM PAYSLIP-HEADER
    BEFORE ADVANCING PAGE.

PERFORM VARYING WS-LINE FROM 1 BY 1
          UNTIL WS-LINE > WS-DETAIL-LINES
    WRITE PAYSLIP-REC FROM PAYSLIP-DETAIL
        BEFORE ADVANCING 1 LINE
    AT END-OF-PAGE
        WRITE PAYSLIP-REC FROM PAYSLIP-FOOTER
            BEFORE ADVANCING PAGE
        SET WS-PAGE-END TO TRUE
    END-WRITE
END-PERFORM.
```

- `PAGE-COUNTER` 特殊レジスタで自動ページ番号管理
- `SET UP BY` / `SET DOWN BY` で `PAGE-COUNTER` 操作
- 社員ごとに `WRITE BEFORE ADVANCING PAGE` で改ページ

**新規カバレッジ構文：**

| 構文 | 用途 |
|------|------|
| FD LINAGE IS ... TOP/BOTTOM/FOOTING | 明細ページ制御 |
| WRITE BEFORE ADVANCING PAGE | 改ページ制御 |
| WRITE BEFORE ADVANCING 1 LINE | 行送り制御 |
| WRITE AT END-OF-PAGE | ページ終端検出 |
| PAGE-COUNTER | ページ番号自動計数 |
| BLANK WHEN ZERO | ゼロ金額非表示 |
| JUSTIFIED RIGHT | 右詰め編集 |
| SET UP BY / SET DOWN BY | カウンタ増減操作 |

---

### KYU09MRG（支給データ結合処理） — Type 35

| 項目 | 内容 |
|------|------|
| **プログラム名称** | 支給データ結合処理 |
| **PGMパターン** | MERGE（複数ファイル結合） |
| **SORT前処理** | 不要（MERGE文が自ら結合） |
| **入力** | SALARY-NET（200B）/ BONUS-DATA（200B） |
| **出力** | PAYMENT-DATA（200B）/ ERROR-LOG（VB） |
| **件数変化** | N件 + M件 → (N+M)件（社員単位に統合後N件） |
| **使用共通関数** | SUB01DAT, SUB02MSG, SUB03END |
| **該当プログラム分類** | No.35 MERGE（複数ファイル結合） |

**機能：**

#### MERGE文によるファイル結合

SALARY-NET と BONUS-DATA は共に200B固定長で、社員番号（EMP-ID）が1桁目から8桁で共通。
MERGE文で社員番号昇順に結合し、同一社員の給与レコードと賞与レコードを連続取得する。

```
PROCEDURE DIVISION USING KYU-PARM.

MAIN-MERGE SECTION.
    MERGE WORK-FILE
        ON ASCENDING KEY MERGE-EMP-ID
        USING SALARY-FILE BONUS-FILE
        OUTPUT PROCEDURE 3000-MERGE-OUTPUT
    .
    GOBACK.
```

#### OUTPUT PROCEDURE：社員単位の支給データ生成

MERGE結果を受け取り、同一社員内で給与（TYPE='S'）と賞与（TYPE='B'）のレコードを統合する。

```
3000-MERGE-OUTPUT SECTION.
    PERFORM WITH TEST AFTER
      UNTIL WS-MERGE-EOF
        RETURN WORK-FILE INTO WS-MERGE-REC
            AT END SET WS-MERGE-EOF TO TRUE
        END-RETURN
        IF NOT WS-MERGE-EOF
            MOVE MERGE-EMP-ID OF WS-MERGE-REC
              TO WS-CURRENT-EMP
            MOVE ZEROS TO WS-SALARY-AMOUNT
                           WS-BONUS-AMOUNT
            PERFORM UNTIL WS-CURRENT-EMP
                     NOT = MERGE-EMP-ID OF WS-MERGE-REC
                IF WS-RECORD-TYPE = 'S'
                    MOVE WS-PAY-AMOUNT TO WS-SALARY-AMOUNT
                ELSE
                    MOVE WS-PAY-AMOUNT TO WS-BONUS-AMOUNT
                END-IF
                RETURN WORK-FILE INTO WS-MERGE-REC
                    AT END
                        MOVE HIGH-VALUES TO MERGE-EMP-ID
                        EXIT PERFORM
                END-RETURN
            END-PERFORM
            ADD WS-SALARY-AMOUNT TO WS-BONUS-AMOUNT
                GIVING WS-TOTAL-PAYMENT
            WRITE PAYMENT-REC FROM WS-PAYMENT-DATA
        END-IF
    END-PERFORM.
```

**新規カバレッジ構文：**

| 構文 | 用途 |
|------|------|
| MERGE文（USING複数ファイル） | 給与＋賞与の社員番号昇順結合 |
| MERGE ... OUTPUT PROCEDURE | MERGE結果の後処理 |
| RETURN ... AT END | MERGE結果レコード取得 |
| ENTRY | 代替エントリポイント |

---

## レコード構成

### EMP-RECORD（80B） — KYU01CVT出力

| # | 項目 | 名称 | 開始 | 長さ | 属性 | 備考 |
|---|------|------|------|------|------|------|
| 1 | 社員番号 | ER-EMP-ID | 1 | 8 | X(8) | |
| 2 | 社員名 | ER-EMP-NAME | 9 | 40 | X(40) | |
| 3 | 部署コード | ER-DEPT-CODE | 49 | 2 | X(2) | |
| 4 | 地域コード | ER-REGION-CODE | 51 | 2 | X(2) | |
| 5 | 社員区分コード | ER-CATEGORY-CODE | 53 | 3 | X(3) | |
| 6 | 基本給 | ER-BASE-SALARY | 56 | 9 | 9(9) | |
| 7 | 時給 | ER-HOURLY-RATE | 65 | 7 | 9(7) | |
| 8 | 扶養人数 | ER-DEPENDENT-COUNT | 72 | 2 | 9(2) | |
| 9 | ステータス | ER-STATUS | 74 | 1 | X(1) | |
| 10 | 予備 | ER-FILLER | 75 | 6 | X(6) | |

### ABSENCE-AGGREGATE（80B） — KYU03AGG出力

| # | 項目 | 名称 | 開始 | 長さ | 属性 | 備考 |
|---|------|------|------|------|------|------|
| 1 | 社員番号 | AA-EMP-ID | 1 | 8 | X(8) | |
| 2 | 対象年月 | AA-YEAR-MONTH | 9 | 6 | X(6) | YYYYMM |
| 3 | 欠勤時間合計 | AA-TOTAL-ABSENT-HOURS | 15 | 5 | 9(4)V9(1) | |
| 4 | 欠勤回数 | AA-ABSENT-COUNT | 20 | 2 | 9(2) | |
| 5 | 予備 | AA-FILLER | 22 | 58 | X(58) | |

### SALARY-DETAIL（240B） — KYU04CAL出力

| # | 項目 | 名称 | 開始 | 長さ | 属性 | 備考 |
|---|------|------|------|------|------|------|
| 1 | 社員番号 | SD-EMP-ID | 1 | 8 | X(8) | |
| 2 | 社員名 | SD-EMP-NAME | 9 | 40 | X(40) | |
| 3 | 部署コード | SD-DEPT-CODE | 49 | 2 | X(2) | |
| 4 | 基本給 | SD-BASIC-SALARY | 51 | 9 | 9(9) | |
| 5 | 時間外手当 | SD-OVT-AMOUNT | 60 | 9 | 9(9) | |
| 6 | 休日手当 | SD-HOLIDAY-AMOUNT | 69 | 9 | 9(9) | |
| 7 | 欠勤控除 | SD-ABSENT-DEDUCT | 78 | 9 | 9(9) | |
| 8 | 支給総額 | SD-GROSS-PAYMENT | 87 | 9 | 9(9) | |
| 9 | 残業時間 | SD-OVT-HOURS | 96 | 5 | 9(4)V9(1) | |
| 10 | 欠勤時間 | SD-ABSENT-HOURS | 101 | 5 | 9(4)V9(1) | |
| 11 | 勤怠区分 | SD-ATTEND-TYPE | 106 | 1 | X(1) | W=平日残業 / H=休日残業 |
| 12 | 手当種別 | SD-ALLOWANCE-TYPE | 107 | 3 | X(3) | OVT=残業 / LATE=遅刻 |
| 13 | 予備 | SD-FILLER | 110 | 131 | X(131) | |

### SALARY-NET（200B） — KYU05DED出力

| # | 項目 | 名称 | 開始 | 長さ | 属性 | 備考 |
|---|------|------|------|------|------|------|
| 1 | 社員番号 | SN-EMP-ID | 1 | 8 | X(8) | MERGEキー |
| 2 | レコード種別 | SN-REC-TYPE | 9 | 1 | X(1) | S=給与 / B=賞与 |
| 3 | 社員名 | SN-EMP-NAME | 10 | 40 | X(40) | |
| 4 | 部署コード | SN-DEPT-CODE | 50 | 2 | X(2) | |
| 5 | 地域コード | SN-REGION-CODE | 52 | 2 | X(2) | |
| 6 | 社員区分コード | SN-CATEGORY-CODE | 54 | 3 | X(3) | |
| 7 | 支給総額 | SN-GROSS-PAYMENT | 57 | 9 | 9(9) | |
| 8 | 源泉所得税 | SN-INCOME-TAX | 66 | 9 | 9(9) | |
| 9 | 社会保険料 | SN-INSURANCE | 75 | 9 | 9(9) | |
| 10 | 住民税 | SN-RESIDENT-TAX | 84 | 9 | 9(9) | |
| 11 | 差引支給額 | SN-NET-PAYMENT | 93 | 9 | 9(9) | |
| 12 | 課税所得 | SN-TAXABLE-INCOME | 102 | 9 | 9(9) | |
| 13 | 支給額 | SN-PAY-AMOUNT | 111 | 9 | 9(9) | 汎用（給与/賞与） |
| 14 | 予備 | SN-FILLER | 120 | 81 | X(81) | |

> BONUS-DATA も同一レイアウト（200B）。レコード種別 `SN-REC-TYPE` = 'B'、支給額 `SN-PAY-AMOUNT` に賞与額を格納。

### DEPT-OUT-01〜50（各200B） — KYU07DIV出力

SALARY-NET と同一レイアウト（200B）。部署コードに応じて振り分け出力。

### PAYSLIP（200B） — KYU08PRI出力（印刷イメージ）

| # | 項目 | 名称 | 開始 | 長さ | 属性 | 備考 |
|---|------|------|------|------|------|------|
| 1 | 社員番号 | PS-EMP-ID | 1 | 8 | X(8) | |
| 2 | FILLER | PS-SP1 | 9 | 2 | X(2) | 空白 |
| 3 | 社員名 | PS-EMP-NAME | 11 | 20 | X(20) | JUSTIFIED RIGHT |
| 4 | FILLER | PS-SP2 | 31 | 2 | X(2) | 空白 |
| 5 | 基本給 | PS-BASIC-SALARY | 33 | 9 | Z(8)9 | BLANK WHEN ZERO |
| 6 | FILLER | PS-SP3 | 42 | 2 | X(2) | 空白 |
| 7 | 差引支給額 | PS-NET-PAYMENT | 44 | 9 | Z(8)9 | BLANK WHEN ZERO |
| 8 | FILLER | PS-SP4 | 53 | 2 | X(2) | 空白 |
| 9 | ページヘッダ | PS-PAGE-TITLE | 55 | 40 | X(40) | LINAGE制御用 |
| 10 | 予備 | PS-FILLER | 95 | 106 | X(106) | |

### PAYMENT-DATA（200B） — KYU09MRG出力

| # | 項目 | 名称 | 開始 | 長さ | 属性 | 備考 |
|---|------|------|------|------|------|------|
| 1 | 社員番号 | PD-EMP-ID | 1 | 8 | X(8) | |
| 2 | 支給区分 | PD-PAY-TYPE | 9 | 1 | X(1) | S=給与 / B=賞与 / T=合計 |
| 3 | 支給額 | PD-AMOUNT | 10 | 9 | 9(9) | |
| 4 | 振込銀行コード | PD-BANK-CODE | 19 | 4 | X(4) | |
| 5 | 振込口座番号 | PD-ACCOUNT-NO | 23 | 8 | 9(8) | |
| 6 | 予備 | PD-FILLER | 31 | 170 | X(170) | |

---

## 新規プログラムタイプカバレッジ一覧（10種）

| No. | 名称 | 分類 | 対応プログラム | カバレッジ（現状→目標） |
|:---:|------|:----:|:--------------:|:---------------------:|
| 04 | レイアウト編集のみ（GETPUT） | 编辑 | KYU08PRI | ◎（既存） |
| 08 | キーブレイク（集約） | key切 | KYU03AGG | × → ◎ |
| 09 | DB更新 | 数据库 | KYU02REG, KYU06UPD | ◎（既存、本サブシステムで＋2本） |
| 10 | ５０分割 | 分割 | KYU07DIV | × → ◎ |
| 21 | CSV→FB変換（改行あり） | 文件转换 | KYU01CVT | × → ◎ |
| 23 | SELECT条件 | 数据库 | KYU05DED | × → ◎ |
| 32 | 1:N＋キーブレイク（同キー） | 混合 | KYU04CAL | × → ◎ |
| 35 | MERGE（複数ファイル結合） | 排序 | KYU09MRG | × → ◎ |

**プログラムタイプカバレッジ率：** 16/35（45.7%）→ **24/35（68.6%）**

> 本サブシステムで新規追加するプログラムタイプは **7種**（08, 09x2, 10, 21, 23, 32, 35）。
> 09（DB更新）は既にKIN02UPD・ZAN06UPDで◎であるが、本サブシステムでさらに2本追加し実績を拡充。
> No.27（項目チェック半角20桁/4桁）はKYU01CVT内でSUB04CHK（内部処理25）により実装され、プログラムタイプとしては単一（21）を維持。

---

## 新規予約語カバレッジ一覧

| No. | 予約語 | 現状 | 目標 | プログラム | 使用コンテキスト |
|:---:|--------|:---:|:----:|-----------|----------------|
| 6 | ALPHABETIC | × | ◎ | KYU01CVT | クラス条件（社員名英字判定） |
| 8 | ALSO | △ | ◎ | KYU04CAL | EVALUATE ALSO（勤怠区分×手当種別） |
| 31 | CONVERTING | × | ◎ | KYU01CVT | INSPECT CONVERTING（引用符内改行→SPACE） |
| 34 | COUNT | × | ◎ | KYU01CVT | UNSTRING COUNT IN（項目数カウント） |
| 40 | DECLARATIVES | × | ◎ | KYU01CVT | ファイルエラー処理の宣言部 |
| 45 | DESCENDING | × | ◎ | KYU04CAL | OCCURS DESCENDING KEY（高額手当優先） |
| 50 | DOWN | × | ◎ | KYU08PRI | SET DOWN BY（ページカウンタ減少） |
| 55 | END-ADD | × | ◎ | KYU03AGG | ADD文の明示的END-ADD |
| 58 | END-DIVIDE | × | ◎ | KYU04CAL | DIVIDE文の明示的END-DIVIDE |
| 66 | END-SUBTRACT | × | ◎ | KYU05DED | SUBTRACT文の明示的END-SUBTRACT |
| 112 | NEXT | × | △ | KYU09MRG | READ NEXTの代替（MERGE RETURN使用） |
| 128 | PAGE | △ | ◎ | KYU08PRI | LINAGE PAGE句 / FD PAGE-COUNTER |
| 129 | PAGE-COUNTER | × | ◎ | KYU08PRI | 特殊レジスタ（自動ページ番号） |
| 142 | REMOVAL | × | — | — | CLOSE FOR REMOVALは今回不要 |
| 177 | UP | × | ◎ | KYU08PRI | SET UP BY（PAGE-COUNTER増加） |
| 180 | USE | × | ◎ | KYU01CVT | USE AFTER ERROR（ファイルエラー処理） |
| 183 | VALUES | × | ◎ | KYU05DED | 88-level VALUES複数値指定 |
| 193 | ENTRY | × | ◎ | KYU09MRG | 代替エントリポイント定義 |
| 194 | MERGE | × | ◎ | KYU09MRG | MERGE文（複数ファイル結合） |
| 196 | RETURN | × | ◎ | KYU09MRG | MERGE OUTPUT PROCEDUREのRETURN文 |
| 204 | BEFORE | × | ◎ | KYU08PRI | WRITE BEFORE ADVANCING |

**予約語カバレッジ率（◎+△）：** 125/205（61.0%）→ **145/205（70.7%）**
**内 ◎：** 101/205（49.3%）→ **121/205（59.0%）**

> 前回変更で追加した DECLARATIVES / USE / SORT / RELEASE / および ADDRESS 除外の修正は、
> 今回のパターン純化方針に伴い再編。SORT / RELEASE は KYU07DIV に COBOL SORT を使わないため削除。

---

## PICTURE記号カバレッジ拡張

| 記号 | 現状 | 目標 | プログラム | 使用例 |
|:----:|:----:|:----:|-----------|--------|
| ZZZ9 | × | ◎ | KYU08PRI | PIC Z(8)9 BLANK WHEN ZERO |

---

## 全体サマリ

| 指標 | 現状 | 目標（追加後） | 増分 |
|------|:----:|:--------------:|:----:|
| プログラムタイプ（35種） | 16使用 | **24使用** | **+8**（68.6%） |
| 予約語 ◎+△（205） | 125 | **145** | **+20**（70.7%） |
| 予約語 ◎（205） | 101 | **121** | **+20**（59.0%） |
| PICTURE記号（11種） | 7 | **8** | **+1** |
| COBOLプログラム数 | 20 | **29** | **+9** |