From 1a15c3a4ba765a316905e458cdb9d5cb559eca19 Mon Sep 17 00:00:00 2001
From: hangshuo652 <hangshuo652@gittea.dev>
Date: Wed, 9 Sep 2026 20:51:49 +0800
Subject: [PATCH] =?UTF-8?q?fix(KIN05MAT):=20R01=E5=8D=98=E7=8B=AC=E5=87=BA?=
 =?UTF-8?q?=E5=8A=9B=E6=99=82=E3=81=ABWRK-BEST-*=E3=82=92=E9=87=8D?=
 =?UTF-8?q?=E7=BD=AE?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

設計書(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件一致
---
 src/KIN05MAT.cbl | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/src/KIN05MAT.cbl b/src/KIN05MAT.cbl
index 95af97d..b683823 100644
--- a/src/KIN05MAT.cbl
+++ b/src/KIN05MAT.cbl
@@ -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