Editing Control flow (section)

== 3. primesgen — Paragraph Map ==

<pre>PROCEDURE DIVISION USING primes-session
│
└── EVALUATE TRUE on methods
      WHEN report-primes
      │  PERFORM r90-start-primes-report ──────────────────► r90-start-primes-report
      │  │                                                    │ CALL primes &quot;connect&quot;
      │  │                                                    │ CALL primes &quot;cursor&quot;
      │  │                                                    │ PERFORM r94-fetch ──► r94-fetch
      │  │                                                    │                       │ CALL primes &quot;next-prime&quot;
      │  │                                                    │                       └── return
      │  │                                                    └── return
      │  │
      │  IF session-method-ok
      │    PERFORM r86-report-primes UNTIL session-method-eof
      │    │  ┌──────────────────────────────────────────────► r86-report-primes (loop body)
      │    │  │ CALL primesui &quot;write&quot;
      │    │  │ PERFORM r94-fetch ──────────────────────────► r94-fetch
      │    │  │                                               │ CALL primes &quot;next-prime&quot;
      │    │  │                                               └── return
      │    │  └── (loop back)
      │
      WHEN generate-primes
      │  PERFORM r91-start-primes-generation ──────────────► r91-start-primes-generation
      │  │                                                    │ CALL primes &quot;connect&quot;
      │  │                                                    └── return
      │  │
      │  IF session-method-ok
      │    PERFORM r80-test-number UNTIL test-number = 999999999
      │    │  ┌──────────────────────────────────────────────► r80-test-number (loop body)
      │    │  │ DIVIDE test-number BY test-divider → test-rest
      │    │  │ EVALUATE TRUE
      │    │  │   WHEN test-rest = 0
      │    │  │     PERFORM r82-next-test-number ──────────► r82-next-test-number
      │    │  │                                               │ ADD 2 TO test-number
      │    │  │                                               │ COMPUTE sqrt
      │    │  │                                               │ MOVE 1 TO old-ident
      │    │  │                                               │ PERFORM r89-get-next-divider ──► r89-get-next-divider
      │    │  │                                               │                                  │ CALL primes &quot;get&quot;
      │    │  │                                               │                                  └── return
      │    │  │                                               └── return
      │    │  │   WHEN test-divider &gt; test-number-sqr
      │    │  │     PERFORM r85-write-prime ─────────────► r85-write-prime
      │    │  │     │                                       │ CALL primes &quot;write&quot;
      │    │  │     │                                       │ CALL primesui &quot;write&quot;
      │    │  │     │                                       └── return
      │    │  │     PERFORM r82-next-test-number (as above)
      │    │  │   WHEN OTHER
      │    │  │     PERFORM r89-get-next-divider (as above)
      │    │  └── (loop back)
      │
      WHEN OTHER
        LOG &quot;Bad method&quot;
│
└── PERFORM r99-close-primes ────────────────────────────► r99-close-primes
    │                                                       │ CALL primes &quot;disconnect&quot;
    │                                                       └── return
    EXIT PROGRAM</pre>
'''Loop summary — primesgen:'''

{|
!width="25%"| Loop
!width="25%"| Type
!width="25%"| Condition
!width="25%"| Paragraph
|-
| Report read
| PERFORM UNTIL
| <code>session-method-eof</code> (result = 9)
| r86-report-primes
|-
| Sieve
| PERFORM UNTIL
| <code>test-number = 999999999</code>
| r80-test-number
|-
| Inner (test-number)
| EVALUATE inside PERFORM
| drives calls to r82 / r85 / r89
| r80-test-number
|}


-----

<span id="primes-dal-paragraph-map"></span>