Editing Control flow (section)

== 4. primes (DAL) — Paragraph Map ==

<pre>PROCEDURE DIVISION USING primes-dal
│
└── EVALUATE TRUE on dal-methods
      WHEN next-prime    → PERFORM r80-get-next-prime ──────► r80-get-next-prime
      │                                                        │ PERFORM s02-fetch ──► s02-fetch
      │                                                        │                       │ EXEC SQL FETCH
      │                                                        │                       └── return
      │                                                        └── return
      WHEN next-divider  → PERFORM r81-get-next-divider ────► r81-get-next-divider
      │                                                        │ ADD 1 TO old-ident → new-ident
      │                                                        │ EXEC SQL SELECT prime WHERE ident=new-ident
      │                                                        │ MOVE new-ident TO old-ident
      │                                                        └── return
      WHEN write-prime   → PERFORM r83-write-prime ──────────► r83-write-prime
      │                                                         │ EXEC SQL INSERT
      │                                                         └── return
      WHEN db-connect    → PERFORM s00-connect ──────────────► s00-connect
      │                                                         │ EXEC SQL CONNECT
      │                                                         └── return
      WHEN db-cursor     → PERFORM s01-cursor ───────────────► s01-cursor
      │                                                         │ EXEC SQL START TRANSACTION
      │                                                         │ EXEC SQL OPEN primescursor
      │                                                         └── return
      WHEN db-disconnect → PERFORM s99-disconnect ───────────► s99-disconnect
      │                                                         │ EXEC SQL CONNECT RESET
      │                                                         └── return
      WHEN OTHER         → dal-result = 1
│
└── EXIT PROGRAM</pre>
'''No loops''' in primes.cbl. Each invocation handles exactly one SQL operation and returns.


-----

<span id="primesui-paragraph-map"></span>