COBOL engine: no PROGRAM-ID recorded for `PROGRAM-ID. 'EPSCSMRD'.` (quoted name, column 9)

[squid-protocol]

Problem

Scanning DBB MortgageApplication zBuilder/MortgageApplication/cobol/epscsmrd.cbl @ ce2c1be58eb049e000c6627bd8273263fef0c606 (4,052 lines, 13 PROGRAM-IDs) with galaxyscope at origin/main records no class for the file: class_data has 0 rows. Line 11 is PROGRAM-ID. 'EPSCSMRD'. (quoted program name, starting in column 9, i.e. Area B). The answer key's reader accepts the quote (['"]? in Source.program_id); the engine's class_start rule does not.

Evidence

README of tests/cobol_mainframe/answer_key/ (Multi-program sources section, #4206): "It records no PROGRAM-ID for the file, whose PROGRAM-ID. 'EPSCSMRD'. is quoted and starts in column 9." Reproduced on origin/main. Other siblings ('EPSCSMRF' at line 334, 'EPSCSMRX' at line 463) share the shape.

Acceptance criteria

• PROGRAM-ID. 'NAME'. and "NAME" (quoted, Area A or B) each produce a class_start / class_data row named NAME
• Valid and invalid fixtures in the COBOL tests
• epscsmrd.cbl records its PROGRAM-ID(s)

Out of scope

Treating PROGRAM-ID as a function boundary (#4203). Multi-program unit placement (see the multi-program issue).

Found during: PR #4226

🤖 Generated with Claude Code