Editing Technical-Specification (section)

=== 3.4 primes (DAL) ===

<pre>PROGRAM primes  USING primes-dal

  EVALUATE TRUE on dal-methods
    WHEN db-connect      → PERFORM s00-connect
    WHEN db-cursor       → PERFORM s01-cursor
    WHEN next-prime      → PERFORM r80-get-next-prime  (→ s02-fetch)
    WHEN next-divider    → PERFORM r81-get-next-divider
    WHEN write-prime     → PERFORM r83-write-prime
    WHEN db-disconnect   → PERFORM s99-disconnect
    WHEN OTHER           → MOVE 1 TO dal-result
  END-EVALUATE
  EXIT PROGRAM

── s00-connect ──────────────────────────────────────────────────────
  EXEC SQL
    CONNECT TO :DATASRC AS primes USER :DBUSR USING :DBPWD
  END-EXEC
  IF SQLCODE = 0 THEN dal-result = 0
  ELSE LOG error; dal-result = 1

── s01-cursor ───────────────────────────────────────────────────────
  EXEC SQL AT primes START TRANSACTION END-EXEC
  IF SQLCODE = 0 THEN LOG &quot;Start transaction ok.&quot;
  ELSE dal-result = 1

  IF dal-method-ok THEN
    EXEC SQL OPEN primescursor END-EXEC
    IF SQLCODE = 0 THEN LOG &quot;Start primescursor ok.&quot;
    ELSE dal-result = 1

── s02-fetch (called by r80-get-next-prime) ─────────────────────────
  EXEC SQL FETCH primescursor INTO :primes-row END-EXEC
  IF SQLCODE = 0 THEN
    primes-sequence = r-ident
    prime-number    = r-prime
    dal-result = 0
  ELSE LOG error; dal-result = 1

── r81-get-next-divider ─────────────────────────────────────────────
  ADD 1 TO old-ident GIVING new-ident
  EXEC SQL AT primes
    SELECT prime INTO :test-divider
    FROM primes WHERE ident = :new-ident
  END-EXEC
  IF SQLCODE ≠ 0 THEN DISPLAY SQLCODE; DISPLAY &quot;select new-divider nok&quot;
  MOVE new-ident TO old-ident

── r83-write-prime ──────────────────────────────────────────────────
  EXEC SQL AT primes
    INSERT INTO primes (prime) VALUES (:prime)
  END-EXEC
  IF SQLCODE ≠ 0 THEN DISPLAY SQLCODE; DISPLAY &quot;insert nok: &quot; prime-number
  ── COMMIT is commented out ──                  ← ⚠ Defect T3

── s99-disconnect ───────────────────────────────────────────────────
  EXEC SQL CONNECT RESET primes END-EXEC         ← ⚠ Defect T2: cbsql.out shows &quot;primesdb&quot;
  IF SQLCODE = 0 THEN dal-result = 0
  ELSE dal-result = 1
  DISPLAY &quot;s99 disconnect from database&quot;
  DISPLAY SQLCODE</pre>

-----

<span id="primesui"></span>