# 人事情報管理システム 設計書（サブシステムE）

## システム概要

本サブシステムは、従業員の基本情報（氏名カナ／漢字）のフォーマット検証、
スキル評価データの集計・分析、社員台帳印刷、および
人事異動データによるDB更新を行う。
既存プログラム（JIN01KNS/JIN02SKL/JIN03RAN）に加え、
JIN04PRT（社員台帳印刷）と JIN05UPD（人事異動DB更新）を新規追加し、
未カバーのCOBOL予約語を計16語カバーする。
さらに JIN06SRT（社員データ並替）・JIN07SUB（社員情報取得サブPGM）・
JIN08TST（JIN07SUB呼出テスト）を追加し、
SORT/RELEASE/EXIT PROGRAM/ADDRESS/OMITTED をカバーする。
最後に JIN09RPT（社員別スキル集計レポート）を追加し、
CANCEL/I-O-CONTROL/NEXT SENTENCE/EJECT/FALSE の5語をカバーし、
PERFORM（複合条件）・SET（条件名 SET）を昇格させる。
（SKIP2 はソース行 `*SKIP2` がコメント扱いでディレクティブとして機能しないため、
実装せず統計対象から除外する。当初は SAME RECORD AREA もカバー予定だったが、GnuCOBOL 3.2 でレコード長の
異なるファイル間の共有領域が最小レコード長に固定される制約が判明したため、
SAME は断念した。）

### サブシステム情報

| 項目 | 内容 |
|------|------|
| サブシステムID | JIN（人事→JINji） |
| COBOLプログラム数 | 9（主7・サブ1・テスト1） |
| JCL数 | 7 |
| DB | JIN05UPD のみ DB2 使用（EMPLOYEE マスタ） |

### サブシステム内ファイル

| # | ファイル名 | 編成 | RECM | サイズ | 用途 | 区分 |
|:---|-----------|------|------|-------|------|------|
| 1 | EMP-IMPORT | SEQUENTIAL | FB | 200 | 人事取込データ（外部システムよりCSV→EBCDIC変換済） | 新規 |
| 2 | EMP-VALID | SEQUENTIAL | FB | 200 | チェック通過正常データ | 新規 |
| 3 | VALID-ERROR | SEQUENTIAL | FB | 80 | バリデーションエラーレコード（PROGRAMID・EMP-ID・ERR-CODE・詳細） | 新規 |
| 4 | SKILL-EVAL | SEQUENTIAL | FB | 200 | スキル評価明細データ | 新規 |
| 5 | SKILL-MST | SEQUENTIAL | FB | 80 | スキル評価基準マスタ | 新規 |
| 6 | SKILL-AGG | SEQUENTIAL | FB | 200 | スキル別評価集計結果 | 新規 |
| 7 | JIN-LEDGER | SEQUENTIAL | FB | 132 | 社員台帳印刷ファイル（WRITE ADVANCING + LINAGE制御）。JIN04PRT出力 | 新規 |
| 8 | HR-TRANS | SEQUENTIAL | FB | 200 | 人事異動トランザクション。JIN05UPD入力 | 新規 |
| 9 | SORTED-EMP | SEQUENTIAL | FB | 200 | 社員データ並替済ファイル（EMP-ID昇順）。JIN06SRT出力 | 新規 |
| 10 | SKILL-SUM | SEQUENTIAL | FB | 120 | 社員別スキル集計結果レポート。JIN09RPT出力 | 新規 |

### システム定数

| 定数 | 値 | 説明 |
|------|-----|------|
| KANA-MAX-LEN | 20 | 氏名カナ最大桁数（半角） |
| SUBCODE-LEN | 4 | 補助コード桁数 |
| SKILL-LEVEL-MAX | 10 | スキルレベルの最大値 |
| EVAL-SCORE-MAX | 999 | 評価点数の最大値 |
| PAGE-LINES | 66 | 台帳印刷1ページ行数（LINAGE） |
| FOOT-LINE | 60 | 台帳印刷フッティング開始行 |
| TOP-MARGIN | 2 | 台帳印刷上部余白 |
| BOTTOM-MARGIN | 4 | 台帳印刷下部余白 |
| MAX-TRANS | 500 | JIN05UPD 最大処理件数（PERFORM UNTIL の上限ガード） |
| MAX-SORT-REC | 999 | JIN06SRT 最大SORT件数（PERFORM UNTIL + WRK-SORT-CNT の上限ガード） |
| SKILL-LIST-MAX | 20 | JIN09RPT 内部表（スキル別集計）最大要素数 |
| SUM-LINES-MAX | 100 | JIN09RPT 1社員あたり最大出力行数 |

### 共通関数利用方針

既存のサブプログラム（SUB01DAT〜SUB05TIM）は本サブシステムでも利用する。
連絡領域のCOPY書式は `JINDATAC`・`JINMSGAC`・`JINENDAC` を全プログラムで共用する。
JIN05UPD は DB2（EMPLOYEE マスタ）へアクセスするため、EXEC SQL を使用する。
DBアクセス用の COPY 書式として `DB-COMMON` を WORKING-STORAGE に取り込む。

---

## 処理フロー

```
╞══ JINJ010 ═══════════════════════════════════╡
│ JIN01KNS（カナ氏名チェック） PGMパターン: 27
│   人事取込データ（EMP-IMPORT）を1レコードずつ読み込み
│   IF KANA-SEI IS ALPHABETIC-UPPER AND KANA-MEI IS ALPHABETIC-UPPER → 正常
│   半角20桁超過 OR 補助コード4桁不一致 → エラーファイル出力
│   ADD 1 TO WS-READ-CNT END-ADD（件数カウント）
│   RETURN-CODE に終了ステータス設定
│   PROGRAM-ID IS INITIAL 指定
├── 正常 → EMP-VALID（200B 正常データ）
└── 異常 → VALID-ERROR（80B エラーレコード）
│
╞══ JINJ020 ═══════════════════════════════════╡
│ JIN02SKL（スキル別評価集計） PGMパターン: 19
│   SKILL-EVAL（M件の評価明細）× SKILL-MST（N件の評価基準）
│   SEARCH ALL でSKILL-CODEに対応するLEVEL判定
│   内部表にスキルコード×レベル別の件数と合計点を集計
│   集計後、PERFORM VARYINGで降順（DESCENDING）走査し出力
│   DIVIDE ... GIVING ... END-DIVIDE で平均点算出
│   SUBTRACT 1 FROM WS-IDX END-SUBTRACT で内部表走査
│   USAGE BINARY / USAGE PACKED-DECIMAL でカウンタ・金額定義
│   エラー件数表示に ZZZZ9 編集
├── → SKILL-AGG（200B スキル別評価集計結果）
└── 異常 → VALID-ERROR（80B エラーレコード）
│
╞══ JINJ030 ═══════════════════════════════════╡
│ JIN03RAN（スキル評価ランキング出力） PGMパターン: 36
│   SKILL-AGG（集計結果）を読込、平均点降順にランク付け
│   OCCURS DESCENDING KEY で内部表定義、SET UP BY/DOWN BY で走査
│   MOVE CORRESPONDING でWS→W01転記
│   COMP-4 バイナリカウンタ使用
├── → RANK-OUT（200B ランキング出力ファイル）
│
╞══ JINJ040 ═══════════════════════════════════╡
│ JIN04PRT（社員台帳印刷） PGMパターン: 編集出力
│   EMP-VALID（200B チェック済社員データ）を読込み、台帳形式で印刷出力
│   ACCEPT FROM DATE / FROM TIME で印刷日時取得
│   LINAGE 制御（66行/ページ）でページ管理
│   PAGE-COUNTER 特殊レジスタでページ番号出力
│   DISPLAY UPON CONSOLE で開始/終了メッセージ
│   WRITE AFTER ADVANCING PAGE / AT END-OF-PAGE で改ページ制御
│   CLOSE WITH LOCK で出力ファイル保護
│   STRING ON OVERFLOW で安全な文字列編集
│   エラー時 STOP literal で終了
├── → JIN-LEDGER（132B 台帳印刷ファイル）
│
╞══ JINJ050 ═══════════════════════════════════╡
│ JIN05UPD（人事異動DB更新） PGMパターン: DB更新
│   HR-TRANS（200B 人事異動）を読込み、DB2 の EMPLOYEE マスタを更新
│   CALL ON EXCEPTION でサブプログラム呼出エラー捕捉
│   SET TO FALSE で状態フラグ制御
│   INITIALIZE REPLACING で特定項目のみ初期化
│   PERFORM UNTIL WS-EOF OR WS-COUNT > 500 でループ（TIMES相当）
│   88-level VALUE 'A' 'B' 'C'（複数値）でトランザクション種別判定
│   EVALUATE WHEN THRU で範囲条件分岐
│   CALL BY CONTENT で値渡し呼出
│   EXIT PARAGRAPH で段落終了
├── DB2 → EMPLOYEE マスタ更新
└── 異常 → VALID-ERROR（80B エラーレコード）
│
╞══ JINJ060 ═══════════════════════════════════╡
│ JIN06SRT（社員データ並替） PGMパターン: 34（SORT）
│   EMP-VALID（200B）を INPUT PROCEDURE で読込
│   PERFORM UNTIL + WRK-SORT-CNT 比較で最大件数制限（MAX-SORT-REC）
│   RELEASE で SORT ファイルへ送出
│   SORT ... ON ASCENDING KEY EMP-ID
│   OUTPUT PROCEDURE で RETURN 受取 → SORTED-EMP へ書出
├── → SORTED-EMP（200B 並替済社員データ）
│
╞══ JINJ070 ═══════════════════════════════════╡
│ JIN07SUB（社員情報取得サブPGM） PGMパターン: 25（サブPGM）
│   LINKAGE SECTION で検索条件（EMP-ID）と取得項目（JIN01REC 既存項目）を受取
│   EMP-VALID を順次検索し一致レコードの項目を返却
│   IS OMITTED 判定で OMITTED 引数対応（ADDRESS OF は MOVE ADDRESS OF で別途カバー）
│   終了は EXIT PROGRAM（GOBACK 不使用）
└── JIN08TST から CALL（2回：全引数 / KANJI-NAME OMITTED）
│
╞══ JINJ090 ═══════════════════════════════════╡
│ JIN09RPT（社員別スキル集計レポート） PGMパターン: 32（1:N+キーブレイク）
│   SKILL-EVAL（M件）を EMP-ID 昇順で読み込み、社員キーブレイク集計
│   I-O-CONTROL 段落（予約語カバー）を記載
│   NESTED IF（3〜4段）でスコア→S/A/B/C レベル判定（複合条件 AND/OR）
│   PERFORM VARYING の多重ループ（社員×明細×内部表20要素）
│   NEXT SENTENCE で文言継続制御、SET 条件名 TO FALSE で状態リセット
│   集計完了後、社員別に SKILL-SUM（120B）へ出力
│   CANCEL 'SUB02MSG' でメッセージサブPGMを解放
│   EJECT でソースページ・行制御
├── → SKILL-SUM（120B 社員別スキル集計結果）
└── 異常 → VALID-ERROR（80B エラーレコード）
```

---

## JCL

### JINJ010 — カナ氏名チェック

```jcl
//JINJ010  JOB (ACCT),'カナ氏名チェック',CLASS=A
//*
//*=====================================================================
//* STEP010: 半角カナチェック（Type 27）
//*=====================================================================
//STEP010  EXEC PGM=JIN01KNS
//JIN01R01  DD DSN=EMP-IMPORT.DAT,DISP=SHR
//JIN01W01  DD DSN=EMP-VALID.DAT,DISP=(NEW,CATLG)
//JIN01W02  DD DSN=VALID-ERROR.DAT,DISP=(NEW,PASS)
```

### JINJ020 — スキル別評価集計

```jcl
//JINJ020  JOB (ACCT),'スキル別評価集計',CLASS=A
//*
//*=====================================================================
//* STEP010: M:N→N件（Type 19）
//*=====================================================================
//STEP010  EXEC PGM=JIN02SKL
//JIN02R01  DD DSN=SKILL-EVAL.DAT,DISP=SHR
//JIN02R02  DD DSN=SKILL-MST.DAT,DISP=SHR
//JIN02W01  DD DSN=SKILL-AGG.DAT,DISP=(NEW,CATLG)
//JIN02W02  DD DSN=VALID-ERROR.DAT,DISP=(NEW,PASS)
```

### JINJ030 — スキル評価ランキング出力

```jcl
//JINJ030  JOB (ACCT),'スキル評価ランキング',CLASS=A
//*
//*=====================================================================
//* STEP010: ランキング出力（Type 36）
//*=====================================================================
//STEP010  EXEC PGM=JIN03RAN
//JIN03R01  DD DSN=SKILL-AGG.DAT,DISP=SHR
//JIN03W01  DD DSN=RANK-OUT.DAT,DISP=(NEW,CATLG)
```

### JINJ040 — 社員台帳印刷

```jcl
//JINJ040  JOB (ACCT),'社員台帳印刷',CLASS=A
//*
//*=====================================================================
//* STEP010: 台帳印刷（編集出力）
//*=====================================================================
//STEP010  EXEC PGM=JIN04PRT
//JIN04R01  DD DSN=EMP-VALID.DAT,DISP=SHR
//JIN04W01  DD DSN=JIN-LEDGER.DAT,DISP=(NEW,CATLG)
```

### JINJ050 — 人事異動DB更新

```jcl
//JINJ050  JOB (ACCT),'人事異動DB更新',CLASS=A
//*
//*=====================================================================
//* STEP010: DB更新（Type 09）
//*=====================================================================
//STEP010  EXEC PGM=JIN05UPD
//JIN05R01  DD DSN=HR-TRANS.DAT,DISP=SHR
//JIN05W01  DD DSN=VALID-ERROR.DAT,DISP=(NEW,PASS)
```

### JINJ060 — 社員データ並替

```jcl
//JINJ060  JOB (ACCT),'社員データ並替',CLASS=A
//*
//*=====================================================================
//* STEP010: SORT（Type 34）
//*=====================================================================
//STEP010  EXEC PGM=JIN06SRT
//SORTLIB   DD DSN=SYS1.SORTLIB,DISP=SHR
//SORTWK01  DD DSN=&&SORTWK1,UNIT=SYSDA,SPACE=(CYL,(50,50))
//SORTWK02  DD DSN=&&SORTWK2,UNIT=SYSDA,SPACE=(CYL,(50,50))
//SORTWK03  DD DSN=&&SORTWK3,UNIT=SYSDA,SPACE=(CYL,(50,50))
//JIN06R01  DD DSN=EMP-VALID.DAT,DISP=SHR
//JIN06W01  DD DSN=SORTED-EMP.DAT,DISP=(NEW,CATLG)
//JIN06W02  DD DSN=VALID-ERROR.DAT,DISP=(NEW,PASS)
```

> 注：JIN07SUB はサブプログラム（CALL される側）のため JCL を持たない。
> JIN08TST は JIN07SUB の動作確認用テストドライバであり、ローカル開発環境で単体実行する（本番 JCL は不要）。
> JIN07SUB が EMP-VALID を読込むための DD（JIN07R01）は、呼出側 JIN08TST の実行時に環境変数で割当てる。
> ※ AGENTS.md 規約「サブプログラムは GOBACK を使用」に対し、JIN07SUB はキーワードカバー目的で EXIT PROGRAM を
>    使用する例外とする（IBM COBOL 上 EXIT PROGRAM は正しい終了文。GnuCOBOL でもコンパイル実証済み）。

### JINJ090 — 社員別スキル集計レポート

```jcl
//JINJ090  JOB (ACCT),'社員別スキル集計',CLASS=A
//*
//*=====================================================================
//* STEP010: SKILL-EVAL を EMP-ID 昇順でソート
//*=====================================================================
//STEP010  EXEC PGM=SORT
//SORTLIB   DD DSN=SYS1.SORTLIB,DISP=SHR
//SORTWK01  DD DSN=&&SORTWK1,UNIT=SYSDA,SPACE=(CYL,(50,50))
//SORTWK02  DD DSN=&&SORTWK2,UNIT=SYSDA,SPACE=(CYL,(50,50))
//SORTWK03  DD DSN=&&SORTWK3,UNIT=SYSDA,SPACE=(CYL,(50,50))
//SORTIN    DD DSN=SKILL-EVAL.DAT,DISP=SHR
//SORTOUT   DD DSN=SKILL-EVAL-SORTED.DAT,DISP=(NEW,CATLG)
//SYSIN     DD *
  SORT FIELDS=(5,8,CH,A)
/*
//*
//*=====================================================================
//* STEP020: 社員別スキル集計（Type 32）
//*=====================================================================
//STEP020  EXEC PGM=JIN09RPT
//JIN09R01  DD DSN=SKILL-EVAL-SORTED.DAT,DISP=SHR
//JIN09R02  DD DSN=SKILL-MST.DAT,DISP=SHR
//JIN09W01  DD DSN=SKILL-SUM.DAT,DISP=(NEW,CATLG)
//JIN09W02  DD DSN=VALID-ERROR.DAT,DISP=(NEW,PASS)
```

---

## プログラム一覧

| # | PGM-ID | PGMパターン | 機能概要 | 使用COPY | DBアクセス | CALL先 |
|:-:|:------:|:----------:|---------|:--------:|:---------:|:------:|
| 1 | JIN01KNS | 27 半角20桁/4桁チェック | 人事取込データの氏名カナ桁数・半角英大文字チェック | JIN01REC, JINDATAC, JINMSGAC, JINENDAC | なし | SUB01DAT, SUB02MSG, SUB03END |
| 2 | JIN02SKL | 19 M:N→N件 | スキル評価明細×評価基準マスタの集計（M件→N件出力） | SKILL-EVAL-REC, SKILL-MST-REC, SKILL-AGG-REC, VALID-ERROR-REC, JINDATAC, JINMSGAC, JINENDAC | なし | SUB01DAT, SUB02MSG, SUB03END |
| 3 | JIN03RAN | 36 ランキング生成 | スキル評価集計結果を平均点降順にランキング出力 | SKILL-AGG-REC, JIN03REC, JINDATAC, JINMSGAC, JINENDAC | なし | SUB01DAT, SUB02MSG |
| 4 | JIN04PRT | 04 編集出力（印刷制御） | 社員マスタを読込みLINAGE制御で台帳印刷。PAGE-COUNTER/DATE/TIMEカバー | JIN01REC, JIN04RPT-REC, JINDATAC, JINMSGAC, JINENDAC | なし | SUB01DAT, SUB02MSG, SUB03END |
| 5 | JIN05UPD | 09 DB更新 | 人事異動トランザクションを読込みDB2社員マスタを更新。EXCEPTION/FALSE/VALUES/REPLACING/TIMES/THRU/ON OVERFLOW/BY CONTENTカバー | JIN05REC, VALID-ERROR-REC, JINDATAC, JINMSGAC, JINENDAC, DB-COMMON | DB2（EMPLOYEE） | SUB01DAT, SUB02MSG, SUB03END |
| 6 | JIN06SRT | 34 SORT | EMP-VALIDをEMP-ID昇順に並替。SORT/RELEASEカバー（上限はPERFORM UNTIL+WRK-SORT-CNT>999） | JIN01REC, VALID-ERROR-REC, JINDATAC, JINMSGAC, JINENDAC | なし | SUB01DAT, SUB02MSG, SUB03END |
| 7 | JIN07SUB | 25 サブPGM | 社員IDで社員情報を取得して返却。EXIT PROGRAM/ADDRESS/OMITTEDカバー | JIN01REC | なし | —（CALLされる側） |
| 8 | JIN08TST | 05 振り分け（IF） | JIN07SUB呼出テストドライバ。OMITTED引数でCALL。テスト専用 | JINDATAC, JINMSGAC, JINENDAC | なし | JIN07SUB, SUB01DAT, SUB02MSG, SUB03END |
| 9 | JIN09RPT | 32 1:N+キーブレイク | 社員別スキル集計レポート。CANCEL/I-O-CONTROL/NEXT SENTENCE/EJECT/FALSEカバー | SKILL-EVAL-REC, SKILL-MST-REC, JIN09REC, VALID-ERROR-REC, JINDATAC, JINMSGAC, JINENDAC | なし | SUB01DAT, SUB02MSG, SUB03END |

---

## COPY書式一覧

| # | COPY ID | 用途 | サイズ | 備考 |
|:-:|:--------|:----:|:------:|------|
| 1 | JIN01REC | EMP-IMPORT/EMP-VALID レコード | 200 | JIN01KNS入出力、JIN04PRT入力で流用 |
| 2 | VALID-ERROR-REC | VALID-ERROR エラーレコード | 80 | JIN01KNS/JIN02SKL/JIN05UPD共用 |
| 3 | SKILL-EVAL-REC | SKILL-EVAL スキル評価明細 | 200 | JIN02SKL入力（M件） |
| 4 | SKILL-MST-REC | SKILL-MST 評価基準マスタ | 80 | JIN02SKL入力（内部表LOAD） |
| 5 | SKILL-AGG-REC | SKILL-AGG 評価集計結果 | 200 | JIN02SKL出力、JIN03RAN入力 |
| 6 | JINDATAC | SUB01DAT連絡領域 | — | CALL I/F（全JINプログラム共用） |
| 7 | JINMSGAC | SUB02MSG連絡領域 | — | CALL I/F（全JINプログラム共用） |
| 8 | JINENDAC | SUB03END連絡領域 | — | CALL I/F（全JINプログラム共用） |
| 9 | JIN03REC | RANK-OUT ランキング出力レコード | 200 | JIN03RAN出力 |
| 10 | JIN04RPT-REC | JIN-LEDGER 台帳印刷レコード | 132 | JIN04PRT出力（WRITE ADVANCING + LINAGE制御） |
| 11 | JIN05REC | HR-TRANS 人事異動トランザクション | 200 | JIN05UPD入力 |
| 12 | DB-COMMON | DB接続共通変数（WS-SQL-STR/SQLCODE等） | — | tools/DB-COMMON.cpy。JIN05UPDのみ使用 |
| 13 | JIN09REC | SKILL-SUM 社員別スキル集計結果 | 120 | JIN09RPT出力 |

---

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

| # | 予約語 | 現状 | 改善方法 | 対象PGM |
|:-:|--------|:----:|---------|:-------:|
| 1 | DATE | × | ACCEPT WS-DATE FROM DATE | JIN04PRT |
| 2 | TIME | × | ACCEPT WS-TIME FROM TIME | JIN04PRT |
| 3 | PAGE-COUNTER | × | WRITE ADVANCING PAGE 時の特殊レジスタ参照 | JIN04PRT |
| 4 | UPON | × | DISPLAY msg UPON CONSOLE | JIN04PRT |
| 5 | EJECT | × | ソース行 EJECT によるページ制御 | JIN04PRT |
| 6 | SKIP2 | × | 実装しない。`*SKIP2` はコメント行であり SKIP2 ディレクティブとして機能しないため統計対象から除外 | JIN04PRT |
| 7 | CLOSE WITH LOCK | △(単純のみ) | CLOSE file WITH LOCK | JIN04PRT |
| 8 | STOP literal | △(RUNのみ) | STOP 'error message' | JIN04PRT |
| 9 | STRING ON OVERFLOW | △(未使用) | STRING ... ON OVERFLOW | JIN04PRT, JIN05UPD |
| 10 | EXCEPTION | × | CALL ... ON EXCEPTION | JIN05UPD |
| 11 | FALSE | × | SET condition TO FALSE | JIN05UPD |
| 12 | VALUES（88複数値） | × | 88 WRK-TYPE VALUE 'A' 'B' 'C' | JIN05UPD |
| 13 | VALUE THRU | △(未使用) | EVALUATE WHEN 'D' THRU 'G' | JIN05UPD |
| 14 | INITIALIZE REPLACING | △(基本形のみ) | INITIALIZE WS-REC REPLACING NUMERIC BY ZEROS | JIN05UPD |
| 15 | PERFORM UNTIL + 上限件数 | △(UNTILのみ) | PERFORM UNTIL WS-EOF OR WS-COUNT > 500（TIMES相当の上限ガード制御） | JIN05UPD |
| 16 | CALL BY CONTENT | △(BY REFのみ) | CALL sub BY CONTENT WS-VAL | JIN05UPD |
| 17 | EXIT PARAGRAPH | △(EXITのみ) | EXIT PARAGRAPH / EXIT PROGRAM | JIN05UPD |
| 18 | INSPECT AFTER | △(未使用) | INSPECT ... AFTER CHARACTERS | JIN05UPD |
| 19 | DISPLAY WITH NO ADVANCING | △(未使用) | DISPLAY 'msg' WITH NO ADVANCING | JIN05UPD |
| 20 | SORT | × | SORT ファイル ON ASCENDING KEY ... INPUT/OUTPUT PROCEDURE | JIN06SRT |
| 21 | RELEASE | × | INPUT PROCEDURE 内で RELEASE 送出 | JIN06SRT |
| 22 | PERFORM TIMES | △(UNTILのみ) | 実装しない。PERFORM UNTIL + 上限カウンタ（WRK-SORT-CNT>MAX-SORT-REC）で上限ガードを実装 | JIN06SRT |
| 23 | EXIT PROGRAM | △(EXITのみ) | サブPGM終了を EXIT PROGRAM で実施 | JIN07SUB |
| 24 | ADDRESS | × | MOVE ADDRESS OF 引数 TO WS-PTR で引数アドレス取得 | JIN07SUB |
| 25 | OMITTED | × | CALL ... USING ... OMITTED + IS OMITTED 判定 | JIN08TST, JIN07SUB |
| 26 | CANCEL | × | CANCEL 'SUB02MSG' でサブPGM解放 | JIN09RPT |
| 27 | I-O-CONTROL | × | I-O-CONTROL 段落（予約語カバー目的。SAME句なし） | JIN09RPT |
| 28 | NEXT | × | NEXT SENTENCE で後続文へ | JIN09RPT |
| 29 | SENTENCE | × | NEXT SENTENCE で後続文へ | JIN09RPT |
| 30 | EJECT | × | ソース行 EJECT によるページ制御 | JIN09RPT |
| 31 | SKIP2 | × | 実装しない。`*SKIP2` はコメント行であり SKIP2 ディレクティブとして機能しないため統計対象から除外 | JIN09RPT |
| 32 | FALSE | × | SET 条件名 TO FALSE で状態リセット | JIN09RPT |
| 33 | PERFORM（多重ループ/複合条件） | △(UNTIL/単一のみ) | PERFORM VARYING 多重ループ + 複合条件（AND/OR） | JIN09RPT |
| 34 | SET（条件名） | △(UP BY/DOWN BYのみ) | SET 条件名 TO TRUE/FALSE による条件名設定 | JIN09RPT |

**改善効果まとめ（JIN09RPT 追加時点の比較）：**

| 指標 | 現状 | 改善後 |
|------|:----:|:------:|
| 予約語×（未使用） | 41語 | 35語（6語削減：CANCEL/I-O-CONTROL/NEXT/SENTENCE/EJECT/FALSE） |
| PERFORM | △ | ◎（多重ループ＋複合条件IFで実質的カバー） |
| SET | △ | ◎（条件名 SET TO FALSE で実質的カバー） |
| ◎＋△率 | 80.0%（164/205） | 83.4%（171/205） |
| プログラムタイプカバレッジ | 97.2%（35/36） | 97.2%（変更なし） |