Editing Technical-Specification (section)

=== 3.3 primesgen — Report Path ===

<pre>PROCEDURE r90-start-primes-report
  CALL primes(&quot;connect&quot;)
  IF NOT dal-method-ok THEN
    LOG &quot;Database initialisation failed.&quot;
    session-result = 1
    GOTO r99-close-primes

  CALL primes(&quot;cursor&quot;)                          ← START TRANSACTION; OPEN primescursor
  IF NOT dal-method-ok THEN
    LOG &quot;Cursor initialisation failed.&quot;
    session-result = 1
    GOTO r99-close-primes

  PERFORM r94-fetch                              ← position cursor on first row
  IF dal-method-ok THEN
    LOG &quot;Fetch first row ok.&quot;
    MOVE 0 TO dal-result
  ELSE
    LOG &quot;Fetch first row nok.&quot;
    MOVE 1 TO dal-result

REPORT LOOP — PERFORM r86-report-primes UNTIL session-method-eof

  PROCEDURE r86-report-primes
    MOVE &quot;write&quot;     TO ui-methods
    MOVE primes-data TO u-primes                 ← primes-sequence + prime-number → u-sequence + u-number
    CALL primesui USING primes-ui                ← write to 6-column print buffer
    PERFORM r94-fetch                            ← advance cursor

  PROCEDURE r94-fetch
    MOVE &quot;next-prime&quot; TO dal-methods
    CALL primes USING primes-dal                 ← FETCH primescursor INTO :primes-row
    IF NOT dal-method-ok THEN
      LOG &quot;Fetch failed.&quot;
      session-result = 1                         ← ⚠ sets nok (1), not eof (9) — loop may not terminate
                                                 ← See Defect T7 in defect register

END LOOP
CALL primes(&quot;disconnect&quot;)
EXIT PROGRAM</pre>

-----

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