NB-076
4b22c3754e
COBOL 专家对抗性审查发现: - 老式 COBOL 的 WSKEY1/WSKEY2（无连字符）未被 L1 关键词检测 - 结构性检测信号 4 和 5 覆盖不全 修复: - L1 增加 re:WS[A-Z0-9]*KEY[A-Z0-9]* 覆盖无连字符 KEY 命名 - _matches_key_comparison 扩展支持无连字符变量 - has_key_var 注入扩展支持无连字符 - 结构性检测信号 4 增加 WS\w+ 比较模式 - 结构性检测信号 5 增加两个单独 OPEN 的支持 新测试: - test_cobol_expert_attacks — 4 个内联攻击测试 (跨行AT END, 无连字符WSKEY, GO TO风格, NOT=比较) - test-adversarial: 8 个样本文件攻击测试 全回归: 767 passed (+3 new, 0 failures)
23 lines
747 B
COBOL
23 lines
747 B
COBOL
* ==== TYPE: ADV-MATCH-PARAM-CALL ====
|
|
* FEATURE: Matching + subprogram call (CALL + LINKAGE)
|
|
* STATEMENT: CALL / IF
|
|
* BRANCHES: 2, DECISIONS: 1
|
|
* ADVERSARIAL: Combined matching and subprogram structure
|
|
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. CALLMT.
|
|
DATA DIVISION.
|
|
WORKING-STORAGE SECTION.
|
|
01 WS-MAST-KEY PIC X(10).
|
|
01 WS-TRAN-KEY PIC X(10).
|
|
01 WS-RESULT PIC X(10).
|
|
LINKAGE SECTION.
|
|
01 LS-PARAM PIC X(10).
|
|
PROCEDURE DIVISION.
|
|
MAIN.
|
|
CALL 'SUBPGM' USING WS-RESULT.
|
|
IF WS-MAST-KEY = WS-TRAN-KEY
|
|
MOVE WS-MAST-KEY TO WS-RESULT
|
|
ELSE
|
|
MOVE SPACES TO WS-RESULT.
|
|
STOP RUN.
|