サブシステム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）

cpy/DB-COMMON.cpy

@@ -0,0 +1,6 @@
+      *> DB bridge common variables
+      *> Include in WORKING-STORAGE SECTION with COPY DB-COMMON.
+       01 WS-SQL-STR            PIC X(2048).
+       01 WS-SQLCODE            PIC S9(9) COMP-5.
+       01 WS-COL-IDX            PIC S9(9) COMP-5.
+       01 WS-COL-LEN            PIC S9(9) COMP-5.

cpy/JIN04RPT-REC.cpy

@@ -0,0 +1,11 @@
+*
+      * 社員台帳印刷レコード  132B  JIN04PRT出力
+      * WRITE ADVANCING + LINAGE制御（132桁データのみ、ASA制御文字なし）
+      *
+           03  (A)RPT-EMP-ID           PIC X(008).
+           03  (A)RPT-KANA-SEI         PIC X(020).
+           03  (A)RPT-KANA-MEI         PIC X(020).
+           03  (A)RPT-KANJI-NAME       PIC X(040).
+           03  (A)RPT-DEPT-CD          PIC X(004).
+           03  (A)RPT-ENTRY-DATE       PIC X(008).
+            03  (A)FILLER               PIC X(032).

cpy/JIN05REC.cpy

@@ -0,0 +1,14 @@
+*
+      * 人事異動トランザクション  200B  JIN05UPD入力
+      *
+           03  (A)TRAN-TYPE            PIC X(001).
+           03  (A)TRAN-EMP-ID          PIC X(008).
+           03  (A)TRAN-KANA-SEI        PIC X(020).
+           03  (A)TRAN-KANA-MEI        PIC X(020).
+           03  (A)TRAN-KANJI-NAME      PIC X(040).
+           03  (A)TRAN-SUB-CODE        PIC X(004).
+           03  (A)TRAN-BIRTH-DATE      PIC X(008).
+           03  (A)TRAN-DEPT-CODE       PIC X(004).
+           03  (A)TRAN-ENTRY-DATE      PIC X(008).
+           03  (A)TRAN-STATUS          PIC X(001).
+            03  (A)FILLER               PIC X(086).

cpy/SKILL-MST-REC.cpy

@@ -2,7 +2,7 @@
       * スキル評価基準マスタレコード  80B  JIN02SKL入力
       *
            03  (A)MST-SKILL-CODE     PIC X(004).
-           03  (A)MST-LEVEL          PIC 9(002) BINARY.
+           03  (A)MST-LEVEL          PIC 9(002).
            03  (A)MST-SCORE-FROM     PIC 9(003).
            03  (A)MST-SCORE-TO       PIC 9(003).
            03  (A)MST-LEVEL-NAME     PIC X(020).