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

2026-06-19 12:39:49 +08:00
parent a74a5aaa04
commit 164451dda5
19 changed files with 353 additions and 67 deletions
@@ -106,8 +106,6 @@
               05  WRK-PREV-STATUS      PIC X(001).
               05  WRK-PREV-OVT-TYPE    PIC X(001).
               05  WRK-PREV-FILLER      PIC X(046).
-      *** 初回読込フラグ
-           03  WRK-FIRST-FLG            PIC X(001).
      *
      *****************************************************************
      *    サブプログラム連絡領域                                     *
@@ -160,7 +158,6 @@
      *
      ***  ワークエリア初期化
           INITIALIZE                       WRKARA.
-           MOVE  '1'                   TO  WRK-FIRST-FLG.
      *
      ***  運用日付取得
           INITIALIZE                       D01UBSPAR.
@@ -360,4 +357,4 @@
           CALL  'SUB03END'             USING  E01ABDPAR.
      *
       9999ABDSOR-EXT.
-           EXIT.
+           EXIT.