Editing Technical specifications (section)

=== 4.4 primes (DAL) ===

<pre>PROGRAM primes
  LINKAGE: primes-dal

  CASE dal-methods OF
    &quot;connect&quot;:
      EXEC SQL CONNECT TO datasrc AS primes USER dbusr USING dbpwd
      IF SQLCODE = 0 THEN dal-result = 0 ELSE dal-result = 1

    &quot;cursor&quot;:
      EXEC SQL AT primes START TRANSACTION
      IF SQLCODE = 0 THEN
        EXEC SQL OPEN primescursor
        IF SQLCODE = 0 THEN dal-result = 0 ELSE dal-result = 1
      ELSE dal-result = 1

    &quot;next-prime&quot;:
      EXEC SQL FETCH primescursor INTO :primes-row
      IF SQLCODE = 0 THEN
        primes-sequence = r-ident
        prime-number    = r-prime
        dal-result = 0
      ELSE dal-result = 1

    &quot;next-divider&quot;:
      new-ident = old-ident + 1
      EXEC SQL SELECT prime INTO :test-divider
               FROM primes WHERE ident = :new-ident
      old-ident = new-ident

    &quot;write&quot;:
      EXEC SQL INSERT INTO primes (prime) VALUES (:prime)

    &quot;disconnect&quot;:
      EXEC SQL CONNECT RESET primes
      IF SQLCODE = 0 THEN dal-result = 0 ELSE dal-result = 1

    OTHER:
      dal-result = 1
  END CASE
  EXIT PROGRAM
END PROGRAM</pre>
<span id="primesui"></span>