src/の21ファイルをIBM COBOL完全版に統一（production/側は意図的に簡略化されていた）

src/SHA07KBR.cbl

@@ -24,9 +24,15 @@
       *
        INPUT-OUTPUT                           SECTION.
        FILE-CONTROL.
-            SELECT  W01OUTFIL      ASSIGN  TO  EXTERNAL  SHA07W01.
-            SELECT  W02OUTFIL      ASSIGN  TO  EXTERNAL  SHA07W02.
-            SELECT  W03OUTFIL      ASSIGN  TO  EXTERNAL  SHA07W03.
+            SELECT  W01OUTFIL      ASSIGN  TO  EXTERNAL  SHA07W01
+                ORGANIZATION IS SEQUENTIAL
+                ACCESS MODE IS SEQUENTIAL.
+            SELECT  W02OUTFIL      ASSIGN  TO  EXTERNAL  SHA07W02
+                ORGANIZATION IS SEQUENTIAL
+                ACCESS MODE IS SEQUENTIAL.
+            SELECT  W03OUTFIL      ASSIGN  TO  EXTERNAL  SHA07W03
+                ORGANIZATION IS SEQUENTIAL
+                ACCESS MODE IS SEQUENTIAL.
       *
        DATA                                   DIVISION.
        FILE                                   SECTION.
@@ -106,6 +112,9 @@
                88  WRK-FIRST-Y          VALUE '1'.
             03  WRK-PREV-EMP-ID          PIC X(008).
            03  WRK-PREV-INSURER         PIC X(004).
+
+            03  WS-PAD-CHAR              PIC X(001) VALUE SPACE.
+            03  WS-FILE-STATUS           PIC X(002).
       *
      *****************************************************************
       *    DB2ホスト変数                                              *