fix(KIN05MAT): R01単独出力時にWRK-BEST-*を重置

設計書(2-1/3-5)準拠: R01単独→LEAVE-TYPE='99' COBOL Bug修正: WRK-BEST-*を2000MAJSORのR01単独分支で重置 - WHEN WRK-R02-EOF - WHEN WRK-R01KEY < WRK-R02KEY 修正前: 35/57件不一致修正後: 57/57件一致
2026-09-09 20:53:26 +08:00
parent bd791696d3
commit 1a15c3a4ba
1 changed files with 10 additions and 0 deletions
@@ -253,9 +253,19 @@
      ***  EVALUATE TRUE マッチング3分岐
           EVALUATE TRUE
               WHEN WRK-R02-EOF
+                   MOVE  '0'                     TO  WRK-BEST-FOUND
+                   MOVE  CNS-NO-LEAVE            TO  WRK-BEST-TYPE
+                   MOVE  ZERO                    TO  WRK-BEST-STR-TIME
+                                                   WRK-BEST-END-TIME
+                                                   WRK-BEST-APPL-ID
                   PERFORM 2100R01ONLYSOR
                   PERFORM 1100R01INNSOR
               WHEN WRK-R01KEY < WRK-R02KEY
+                   MOVE  '0'                     TO  WRK-BEST-FOUND
+                   MOVE  CNS-NO-LEAVE            TO  WRK-BEST-TYPE
+                   MOVE  ZERO                    TO  WRK-BEST-STR-TIME
+                                                   WRK-BEST-END-TIME
+                                                   WRK-BEST-APPL-ID
                   PERFORM 2100R01ONLYSOR
                   PERFORM 1100R01INNSOR
               WHEN WRK-R01KEY = WRK-R02KEY