[atrn]

I'm still waiting for concurrent COBOL...

PERFORM x CONCURRENTLY WITH y BUT NOT WITH z.

[erik_seaberg]

  000100     MOVE 4 TO reference-count ATOMIC IF reference-count EQUAL TO 3.