Editing Primes Software Specification (section)

=== 2.2 Paragraph Specifications ===

==== r80-get-next-prime ====

<pre>PERFORM s02-fetch</pre>
==== r81-get-next-divider ====

<pre>new-ident = old-ident + 1
SQL: SELECT prime FROM primes WHERE ident = :new-ident
     INTO :test-divider
IF SQLCODE = 0
  (test-divider now holds the next divisor prime)
ELSE
  DISPLAY SQLCODE to console
  DISPLAY &quot;select new-divider nok&quot; to console
old-ident = new-ident</pre>
==== r83-write-prime ====

<pre>SQL: INSERT INTO primes (prime) VALUES (:prime)
IF SQLCODE != 0
  DISPLAY SQLCODE to console
  DISPLAY &quot;insert next prime nok&quot; + prime-number to console</pre>
<span id="r90-generate-primes-first-run-initialisation-not-via-dal-dispatch"></span>
==== r90-generate-primes ''(first-run initialisation, not via DAL dispatch)'' ====

<pre>PERFORM s00-connect
IF dal-method-ok
  SQL: INSERT INTO primes (prime) VALUES (2)   -- seed record
  IF SQLCODE = 0
    primes-sequence = 1
    prime-number    = 2
    dal-result      = 0
    LOG &quot;Initial insert ok.&quot;
  ELSE
    LOG &quot;Initial insert failed, terminating.&quot;
    dal-result = 1
CALL primesui (log-message)</pre>
==== s00-connect ====

<pre>SQL: CONNECT TO :DATASRC AS primes USER :DBUSR USING :DBPWD
IF SQLCODE = 0
  dal-result = 0
  LOG &quot;Database initialisation ok.&quot;
ELSE
  LOG &quot;Database initialisation failed, terminating.&quot;
  dal-result = 1
CALL primesui</pre>
==== s01-cursor ====

<pre>SQL: START TRANSACTION
IF SQLCODE = 0
  LOG &quot;Start transaction ok.&quot;
ELSE
  LOG &quot;Start transaction nok.&quot;
  dal-result = 1
CALL primesui

IF dal-method-ok
  OPEN CURSOR primescursor  (SELECT * FROM primes)
  IF SQLCODE = 0
    LOG &quot;Start primescursor ok.&quot;
  ELSE
    LOG &quot;Start primescursor nok.&quot;
    dal-result = 1
CALL primesui</pre>
==== s02-fetch ====

<pre>SQL: FETCH primescursor INTO :r-ident, :r-prime
IF SQLCODE = 0
  primes-sequence = r-ident
  prime-number    = r-prime
  dal-result      = 0
ELSE
  LOG &quot;Fetch row nok.&quot;
  dal-result = 1
  CALL primesui</pre>
==== s99-disconnect ====

<pre>SQL: CONNECT RESET primes
IF SQLCODE = 0
  dal-result = 0
  LOG &quot;Close database ok.&quot;
ELSE
  LOG &quot;Database initialisation failed, ending.&quot;
  dal-result = 1
CALL primesui
DISPLAY &quot;s99 disconnect from database&quot; to console
DISPLAY SQLCODE to console</pre>

-----

<span id="data-dictionary"></span>