KIN03EXP: SELECT INTO → CURSOR(DECLARE/OPEN/FETCH/CLOSE) pattern; SUB01DAT: COPY ZANDATAC; 基本設計書A: KIN08DBU/KIN09CSV specs updated; 品質管理: coverage stats, keyword docs, test criteria

cpy/KIN01REC.cpy

@@ -0,0 +1,12 @@
+      *
+      * 勤怠: 休暇申請中間レコード  WORK-LEAVE  80B
+      *
+            03  (A)APPL-ID         PIC 9(009).
+             03  (A)EMP-ID          PIC X(008).
+            03  (A)LEAVE-TYPE      PIC X(002).
+            03  (A)START-DATE      PIC 9(008).
+            03  (A)START-TIME      PIC 9(004).
+            03  (A)END-DATE        PIC 9(008).
+            03  (A)END-TIME        PIC 9(004).
+            03  (A)STATUS          PIC X(001).
+            03  (A)FILLER          PIC X(036).

cpy/KIN02REC.cpy

@@ -0,0 +1,10 @@
+      *
+      * 勤怠: 日別展開休暇レコード  LEAVE-DAILY  80B
+      *
+             03  (A)EMP-ID          PIC X(008).
+            03  (A)DATE            PIC 9(008).
+            03  (A)LEAVE-TYPE      PIC X(002).
+            03  (A)START-TIME      PIC 9(004).
+            03  (A)END-TIME        PIC 9(004).
+            03  (A)APPL-ID         PIC 9(009).
+            03  (A)FILLER          PIC X(045).

cpy/KIN03REC.cpy

@@ -0,0 +1,16 @@
+      *
+      * 勤怠: 打刻休暇照合レコード  KIN-LEAVE  160B
+      *
+            03  (A)EMP-ID          PIC X(008).
+            03  (A)WORK-DATE       PIC 9(008).
+            03  (A)STR-TIME        PIC 9(004).
+            03  (A)END-TIME        PIC 9(004).
+            03  (A)DEPT-ID         PIC X(004).
+            03  (A)TERMINAL        PIC X(006).
+            03  (A)FILLER-1        PIC X(046).
+            03  (A)LEAVE-TYPE      PIC X(002).
+            03  (A)LEAVE-STR-TIME  PIC 9(004).
+            03  (A)LEAVE-END-TIME  PIC 9(004).
+            03  (A)LEAVE-HOURS     PIC 9(004)V9(001).
+            03  (A)APPLICATION-ID  PIC 9(009).
+            03  (A)FILLER-2        PIC X(056).

cpy/KIN08REC.cpy

@@ -0,0 +1,11 @@
+      *
+      * 勤怠: 欠勤集計中間ファイル ABSENCE-SUMMARY  80B
+      *
+            03  (A)EMP-ID              PIC X(008).
+            03  (A)YEAR-MONTH          PIC X(006).
+            03  (A)ANNUAL-LEAVE-H      PIC 9(004)V9(001).
+            03  (A)PERSONAL-LEAVE-H    PIC 9(004)V9(001).
+            03  (A)OFFICIAL-LEAVE-H    PIC 9(004)V9(001).
+            03  (A)SICK-LEAVE-H        PIC 9(004)V9(001).
+            03  (A)ABSENT-H            PIC 9(004)V9(001).
+            03  (A)FILLER              PIC X(041).

cpy/KIN09REC.cpy

@@ -0,0 +1,4 @@
+      *
+      * 勤怠: CSV出力レコード CSV-OUTPUT  200B
+      *
+            03  (A)CSV-LINE            PIC X(200).