サブシステムEをJIN04PRT〜JIN08TST追加で9本に拡充（全48プログラム）。JIN01-09のIBM COBOL完全版・bin再ビルド版・設計書・使用資源一覧・カバレッジ統計・DDL(schema_jin)・COPY(DB-COMMON/JIN04RPT-REC/JIN05REC)をroot側最新に同期。KYU03AGG/KYU08PRI/SHA02MNC/SHA10S10再テスト済み（全PASS）

詳細設計書/詳細設計書_JIN03RAN.md

@@ -6,7 +6,7 @@
 |------|------|
 | プログラムID | JIN03RAN（人事→JINji, 03, ランキング→RAN） |
 | プログラムタイプ | 編集出力（ランキング生成） |
-| 機能 | SKILL-AGG（JIN02SKL出力のスキル別評価集計結果）を読み込み、平均点降順でランキング出力 |
+| 機能 | SKILL-AGG（JIN02SKL出力のスキル別評価集計結果）を読み込み、平均点降順でランキング出力（前提：R01はJCL SORTにより平均点降順ソート済み） |
 | CALL方式 | メインプログラム（JCLからCALL） |
 | DBアクセス | なし |
 | 使用サブプログラム | SUB01DAT（日付）, SUB02MSG（メッセージ） |
@@ -18,8 +18,8 @@
 | COMP-4 | 予約語(25) | `PIC 9(004) COMP-4` バイナリカウンタ + `ADD 1 TO CUN-COMP4` |
 | CORR | 予約語(33) | `MOVE CORRESPONDING WS-CORR-SRC TO WS-CORR-DST` |
 | DESCENDING | 予約語(45) | `OCCURS 3 TIMES DESCENDING KEY IS WS-THR` 内部表定義 |
-| DOWN | 予約語(50) | `SET WRK-IDX DOWN BY 1` |
-| UP | 予約語(177) | `SET WRK-RANK-NO UP BY 1`, `SET WRK-OUT-IDX UP BY 1` |
+| ADD | 予約語(3) | `ADD 1 TO WRK-RANK-NO`, `ADD 1 TO WRK-OUT-IDX`（2000MAINSOR） |
+| SUBTRACT | 予約語(164) | `SUBTRACT 1 FROM WRK-IDX`（4000STPSOR） |
 | VALUES | 予約語(183) | 88-level 単一VALUE（複数VALUESは未カバー） |
 
 ## ファイル一覧
@@ -29,6 +29,11 @@
 | JIN03R01 | SKILL-AGG | SEQUENTIAL | FB | 200 | INPUT | スキル別評価集計結果（JIN02SKL出力） |
 | JIN03W01 | RANK-OUT | SEQUENTIAL | FB | 200 | OUTPUT | ランキング出力 |
 
+## 前提条件
+
+- JIN03R01（SKILL-AGG）は、JCL の SORT ステップにより**平均点降順**にソート済みであること
+- 本プログラムはソートを行わず、入力順にランク番号（WRK-RANK-NO）を採番する
+
 ## レコード定義
 
 ### SKILL-AGG-REC（JIN03R01, 200B）
@@ -68,7 +73,7 @@ JIN02SKL 詳細設計書の W01 定義と同じ（SKILL-AGG-REC.cpy 参照）。
    - R01 初回 READ
 
 2. **2000MAINSOR（主処理ループ）**
-   - WRK-RANK-NO を SET UP BY 1 で順位UP
+   - WRK-RANK-NO を ADD 1 で順位UP
    - COMP-4 カウンタ ADD 1
    - MOVE CORRESPONDING で項目編集
    - 平均点に基づきランク区分設定（S: >= 900, A: >= 600, B: < 600）
@@ -78,5 +83,5 @@ JIN02SKL 詳細設計書の W01 定義と同じ（SKILL-AGG-REC.cpy 参照）。
 
 3. **4000STPSOR（終了処理）**
    - R01 / W01 CLOSE
-   - SET WRK-IDX DOWN BY 1
+   - SUBTRACT 1 FROM WRK-IDX
    - DISPLAY 'JIN03RAN END' UPON CONSOLE