Function emitWriteRefs

src/extraction/languages/cobol.ts:280–296

* Emit a `references` ref for every data item a statement WRITES (MOVE TO, * ADD TO/GIVING, SUBTRACT FROM/GIVING, COMPUTE =). Write-sites are what an * impact query on a working-storage or copybook field needs: "what changes * WS-TOTAL" is the COBOL analogue of value-reference edges. Read operand

(
  statement: SyntaxNode,
  fields: string[],
  fromNodeId: string | undefined,
  ctx: ExtractorContext
)

 * impact value.
 */
function emitWriteRefs(
  statement: SyntaxNode,
  fields: string[],
  fromNodeId: string | undefined,
  ctx: ExtractorContext
): void {
  for (const field of fields) {
    for (const target of statement.childrenForFieldName(field)) {
      if (!target) continue;
      const word = targetBaseName(target, ctx.source);
      if (!word) continue;
      const name = getNodeText(word, ctx.source).trim();
      if (!name || SPECIAL_REGISTER_RE.test(name)) continue;
      addRef(ctx, fromNodeId, name, 'references', word);
    }
  }
}

/**
 * Collect call/import references from a statement subtree, attributed to the