Function handleExec

src/extraction/languages/cobol.ts:144–169

* EXEC ... END-EXEC blocks are opaque single nodes. Mine the text for the * statically-resolvable shapes: CICS LINK/XCTL to a program (cross-program * call), CICS RETURN/START TRANSID (the pseudo-conversational hop — emitted * as a `cics-transid:XXXX` reference the CICS framework resolver maps to

(
  node: SyntaxNode,
  ctx: ExtractorContext,
  fromNodeId: string | undefined
)

 * the owning program), and SQL INCLUDE (a copybook import).
 */
function handleExec(
  node: SyntaxNode,
  ctx: ExtractorContext,
  fromNodeId: string | undefined
): void {
  const text = getNodeText(node, ctx.source);
  const cics = EXEC_CICS_PROGRAM_RE.exec(text);
  if (cics) {
    const program = cics[1] ?? (cics[2] ? derefSameFileValue(cics[2], ctx) : undefined);
    if (program) addRef(ctx, fromNodeId, program, 'calls', node);
  }
  const transid = EXEC_CICS_TRANSID_RE.exec(text);
  if (transid) {
    const tx = transid[1] ?? (transid[2] ? derefSameFileValue(transid[2], ctx) : undefined);
    if (tx && /^[A-Za-z0-9$#@]{1,4}$/.test(tx)) {
      addRef(ctx, fromNodeId, `cics-transid:${tx.toUpperCase()}`, 'calls', node);
    }
  }
  const include = EXEC_SQL_INCLUDE_RE.exec(text);
  if (include?.[1]) {
    ctx.createNode('import', include[1], node, {
      signature: collapse(text),
    });
    addRef(ctx, fromNodeId ?? currentScope(ctx), include[1], 'imports', node);
  }
}

/**
 * Walk a run of DATA DIVISION entries (working-storage section children or a