fix: L1キーワード部分文字列FPを修正 - CALL/MAP/SYSIN/EXEC SQL

第三者監査で発見された4つの変数名起因のFPを修正:

FP1: WS-CALL-COUNT → 子程序调用(変数名にCALL)
FP2: WS-MAP-FIELD → online(変数名にMAP)
FP3: 01 SYSIN PIC X(80) → SYSIN(変数名がSYSIN)
FP4: DISPLAY 'EXEC SQL...' → DB操作(文字列リテラル内)

対策:
- CALL: re:\s*CALL\s (行頭のCALL文のみ)
- EXEC SQL: re:(?:\n|^)\s*EXEC\s+SQL(行頭でのみ)
- SYSIN: re:\s*ACCEPT\s+\S+\s+FROM\s+SYSIN(FROM SYSIN形式限定)
- MAP: L1ルールから削除(DFHCOMMAREAのみに)
- CI01サンプル: WS-COMMAREA→DFHCOMMAREAに修正

回帰: 767 passed(0 new failures)
This commit is contained in:
NB-076
2026-06-21 20:27:16 +08:00
parent 257b1bca74
commit 943ec8ad17
3 changed files with 12 additions and 16 deletions
+4 -7
View File
@@ -12,22 +12,19 @@ from typing import Any
# ── L1 规则 ──────────────────────────────────────────────────────────────
# 格式: (分类名称, [关键字列表], 置信度阈值)
L1_RULES: list[tuple[str, list[str], float]] = [
("DB操作", ["EXEC SQL"], 0.95),
("子程序调用", ["CALL", "LINKAGE SECTION"], 0.90),
("DB操作", ["re:\\s*(?:\n|^)\s*EXEC\s+SQL"], 0.95),
("子程序调用", ["re:\\s*CALL\\s", "LINKAGE SECTION"], 0.90),
("IS INITIAL", ["IS INITIAL"], 0.99),
("SYSIN", ["SYSIN"], 0.90),
("SYSIN", ["re:\\s*ACCEPT\\s+\\S+\\s+FROM\\s+SYSIN"], 0.90),
("编码转换", ["ALPHABETIC", "ASCII", "EBCDIC"], 0.85),
("online", ["DFHCOMMAREA", "MAP"], 0.95),
("online", ["DFHCOMMAREA"], 0.95),
("SORT", ["re:SORT(?:\\s+\\S+)?\\s+ON\\s+(?:ASCENDING\\s+|DESCENDING\\s+)?KEY"], 0.95),
("MERGE", ["re:MERGE(?:\\s+\\S+)?\\s+ON\\s+(?:ASCENDING\\s+|DESCENDING\\s+)?KEY"], 0.95),
("替代索引", ["ALTERNATE RECORD KEY"], 0.99),
("编辑输出", ["re:WRITE\\s+\\S+\\s+AFTER\\s+", "re:WRITE\\s+\\S+\\s+BEFORE\\s+"], 0.80),
("文件编成", ["ORGANIZATION IS"], 0.99),
("マッチング", ["re:WS-[\\w-]*KEY"], 0.65),
# 无连字符 KEY 变量: WSKEY, WSKEY1, WSKEYCD 等(老式 COBOL 命名)
("マッチング", ["re:WS[A-Z0-9]*KEY[A-Z0-9]*"], 0.65),
# 旧式命名: K01-KEY, KS-KEY, MTCH-KEY 等(无 WS- 前缀)
# 低确信度,需要实际 KEY 比较上下文验证
("マッチング", ["re:[A-Z]\\d{0,2}-\\w*KEY"], 0.55),
]