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