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

2026-06-30 21:22:15 +08:00
parent a110bccdaf
commit baa5be54d2
40 changed files with 3382 additions and 350 deletions
@@ -34,9 +34,7 @@
      *****************************************************************
       LINKAGE                                SECTION.
      *
-       01  D01UBSPAR.
-           03  D01FKICOD                      PIC S9(004) COMP.
-           03  D01UBSUDATE                    PIC 9(008).
+            COPY ZANDATAC.
      *
       PROCEDURE    DIVISION     USING  D01UBSPAR.
      *****************************************************************