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

sub/SUB04CHK.cbl

@@ -27,7 +27,8 @@
       *****************************************************************
         01  WRKARA.
             03  WRK-RETURN-CODE                PIC 9(004).
-            03  WRK-SIGN                       PIC S9(004).
+      *    03  WRK-SIGN                       PIC S9(004).
+
             03  WRK-NN                         PIC 9(004).
             03  WRK-DIGIT                      PIC 9(004).
             03  WRK-ALPHA                      PIC 9(004).
@@ -37,10 +38,7 @@
       *****************************************************************
        LINKAGE                                SECTION.
       *
-       01  C01CHKPAR.
-           03  C01CHKTYP                      PIC X(008).
-           03  C01CHKDAT                      PIC X(080).
-           03  C01CHKRRC                      PIC 9(004).
+            COPY ZANCHKAC.
       *
        PROCEDURE    DIVISION     USING  C01CHKPAR.
       *****************************************************************
@@ -141,7 +139,8 @@
                GO TO 3000CHKNUM-EXT
            END-IF.
       ***  数字(0-9)とスペースのみをカウント
-           INSPECT C01CHKDAT
+            MOVE ZERO TO WRK-NN.
+            INSPECT C01CHKDAT
                    TALLYING WRK-NN
                    FOR ALL "0" "1" "2" "3" "4"
                            "5" "6" "7" "8" "9"