KIN08DBU/KIN09CSV: fix comment col, quoted ASSIGN, INITIALIZE order, WRITE logic; fix resource docs & coverage stats

src/KIN09CSV.cbl

@@ -1,4 +1,4 @@
-       IDENTIFICATION                        DIVISION.
+       IDENTIFICATION                        DIVISION.
        PROGRAM-ID.                           KIN09CSV.
       *****************************************************************
       *    システム名   : 勤怠休暇管理システム                         *
@@ -25,7 +25,7 @@
       *
        INPUT-OUTPUT                           SECTION.
        FILE-CONTROL.
-           SELECT  CSVOUTFIL      ASSIGN  TO  KIN09W01.
+            SELECT  CSVOUTFIL      ASSIGN  TO  "KIN09W01".
       *
        DATA                                   DIVISION.
        FILE                                   SECTION.
@@ -182,11 +182,11 @@
            MOVE 'COMPILED'              TO  M00UMKDATS22-02.
            PERFORM 4000MSGOUTSOR.
       *
-      ***  PARM解析(ACCEPT FROM COMMAND-LINE)
-           PERFORM 1100PARMSOR.
-      *
       ***  ワークエリア初期化
-           INITIALIZE                       WRKARA.
+            INITIALIZE                       WRKARA.
+      *
+      ***  PARM解析(ACCEPT FROM COMMAND-LINE)
+            PERFORM 1100PARMSOR.
       *
       ***  DB接続
            EXEC SQL
@@ -389,33 +389,31 @@
                WS-EDIT-SICK        DELIMITED BY SIZE
                ','                 DELIMITED BY SIZE
                WS-EDIT-ABSENT      DELIMITED BY SIZE
-               INTO WS-CSV-LINE
-               WITH POINTER WS-PTR
-           END-STRING.
-      *
-      ***  100行ごとにヘッダー再出力
-           ADD   1                        TO  WS-LINE-COUNT.
-           IF  WS-LINE-COUNT > 100
-               WRITE CSVOUTREC FROM WS-CSV-LINE
-                   AFTER ADVANCING 2 LINES
-               MOVE '社員番号,日付,出勤時刻'
-                   TO WS-CSV-LINE(1:28)
-               MOVE ',退勤時刻,休暇種別,年休時間'
-                   TO WS-CSV-LINE(29:28)
-               MOVE ',事假時間,因公特批假時間'
-                   TO WS-CSV-LINE(57:24)
-               MOVE ',病欠時間,未申請欠勤時間'
-                   TO WS-CSV-LINE(81:24)
-               WRITE CSVOUTREC FROM WS-CSV-LINE
-                   AFTER ADVANCING 1 LINE
-               ADD   1                   TO  CUN-W01OUT
-               MOVE ZERO                 TO  WS-LINE-COUNT
-           END-IF.
+                INTO WS-CSV-LINE
+                WITH POINTER WS-PTR
+            END-STRING.
       *
       ***  データ行出力
-           WRITE CSVOUTREC FROM WS-CSV-LINE
-               AFTER ADVANCING 1 LINE.
-           ADD   1                        TO  CUN-W01OUT.
+            WRITE CSVOUTREC FROM WS-CSV-LINE
+                AFTER ADVANCING 1 LINE.
+            ADD   1                        TO  CUN-W01OUT.
+      *
+      ***  100行ごとにヘッダー再出力
+            ADD   1                        TO  WS-LINE-COUNT.
+            IF  WS-LINE-COUNT > 100
+                MOVE '社員番号,日付,出勤時刻'
+                    TO WS-CSV-LINE(1:28)
+                MOVE ',退勤時刻,休暇種別,年休時間'
+                    TO WS-CSV-LINE(29:28)
+                MOVE ',事假時間,因公特批假時間'
+                    TO WS-CSV-LINE(57:24)
+                MOVE ',病欠時間,未申請欠勤時間'
+                    TO WS-CSV-LINE(81:24)
+                WRITE CSVOUTREC FROM WS-CSV-LINE
+                    AFTER ADVANCING 2 LINES
+                ADD   1                   TO  CUN-W01OUT
+                MOVE ZERO                 TO  WS-LINE-COUNT
+            END-IF.
       *
       ***  次FETCH
            EXEC SQL