Subsystem B cleanup: dead code removal, sort-key fix, ZAN04MAT/ZAN05CAL/ZAN06UPD updates, resource lists added

src/ZAN04MAT.cbl

@@ -119,9 +119,7 @@
       *****************************************************************
       *    作業領域                                                   *
       *****************************************************************
-       01  WRKARA.
-      *** 運用日付
-           03  WRK-U06                  PIC 9(008).
+        01  WRKARA.
       *** マッチングキー
            03  WRK-R01KEY               PIC X(008).
            03  WRK-R02KEY               PIC X(008).
@@ -182,16 +180,14 @@
       ***  運用日付取得
            INITIALIZE                       D01UBSPAR.
            CALL 'SUB01DAT'            USING  D01UBSPAR.
-           IF  D01FKICOD                 =  ZERO
-               MOVE D01UBSUDATE         TO  WRK-U06
-           ELSE
-               INITIALIZE                   M00MHOPAR
-               MOVE CNS-MSGSUBEEK       TO  M00MSGCOD
-               MOVE 'SUB01DAT'          TO  M00UMKDATS22-01
-               MOVE D01FKICOD           TO  M00UMKDATS22-02
-               PERFORM 4000MSGOUTSOR
-               PERFORM 9999ABDSOR
-           END-IF.
+            IF  D01FKICOD NOT = ZERO
+                INITIALIZE                   M00MHOPAR
+                MOVE CNS-MSGSUBEEK       TO  M00MSGCOD
+                MOVE 'SUB01DAT'          TO  M00UMKDATS22-01
+                MOVE D01FKICOD           TO  M00UMKDATS22-02
+                PERFORM 4000MSGOUTSOR
+                PERFORM 9999ABDSOR
+            END-IF.
       *
       ***  入出力ファイルOPEN
            OPEN INPUT           R01INNFIL