Subsystem A KIN04-07追加、KIN02UPD/KIN03EXP更新(APPLICATION_ID対応+br_get_colバグ修正)、テスト済み全シナリオPASS

2026-06-28 16:04:36 +08:00
parent 3379941b44
commit 5d595c79b6
24 changed files with 2928 additions and 98 deletions
@@ -0,0 +1,10 @@
+      *
+      * 勤怠: 打刻編集レコード  EDITED-PUNCH  80B
+      *
+            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          PIC X(046).
@@ -0,0 +1,5 @@
+      *
+      * 勤怠: エラーログレコード  KERR-LOG  VB可変長
+      *
+            03  (A)ERR-CATEGORY     PIC 9(002).
+            03  (A)ERR-DETAIL       PIC X(198).
@@ -0,0 +1,7 @@
+      *
+      * 勤怠: 出勤日カレンダーレコード  WORK-DAY-FILE  80B
+      *
+            03  (A)EMP-ID          PIC X(008).
+            03  (A)DATE            PIC 9(008).
+            03  (A)DAY-OF-WEEK     PIC 9(001).
+            03  (A)FILLER          PIC X(063).
@@ -0,0 +1,13 @@
+      *
+      * 勤怠: 日別勤怠計算レコード DAILY-RECORD  200B
+      *
+            03  (A)EMP-ID          PIC 9(008).
+            03  (A)DATE            PIC 9(008).
+            03  (A)TIME-IN         PIC 9(004).
+            03  (A)TIME-OUT        PIC 9(004).
+            03  (A)ANNUAL-H        PIC 9(004)V9(001).
+            03  (A)PERSONAL-H      PIC 9(004)V9(001).
+            03  (A)OFFICIAL-H      PIC 9(004)V9(001).
+            03  (A)SICK-H          PIC 9(004)V9(001).
+            03  (A)ABSENT-H        PIC 9(004)V9(001).
+            03  (A)FILLER          PIC X(151).