Editing Data-Dictionary (section)

=== 1.2 primes-dal ===

<blockquote>'''Source file:''' <code>primes-dal.cpy</code><br />
'''Included by:''' <code>primesgen.cbl</code> (WORKING-STORAGE, caller) · <code>primes.cbl</code> (LINKAGE SECTION, callee)<br />
'''Purpose:''' DAL-tier control block. primesgen sets <code>dal-methods</code> and reads back <code>dal-result</code> and <code>primes-data</code>.
</blockquote>
{|
!width="16%"| Level
!width="16%"| Name
!width="16%"| PIC
!width="16%"| Usage
!width="16%"| Initial
!width="16%"| Description
|-
| 01
| <code>primes-dal</code>
| —
| —
| —
| Root of DAL control block
|-
| 03
| <code>dal-methods</code>
| <code>X(32)</code>
| DISPLAY
| —
| Method dispatch verb
|-
| 88
| <code>next-prime</code>
| —
| —
| <code>&quot;next-prime&quot;</code>
| Fetch next row from open cursor
|-
| 88
| <code>next-divider</code>
| —
| —
| <code>&quot;next-divider&quot;</code>
| SELECT a prime by ident for use as trial divisor
|-
| 88
| <code>write-prime</code>
| —
| —
| <code>&quot;write&quot;</code>
| INSERT a confirmed prime into the table
|-
| 88
| <code>db-cursor</code>
| —
| —
| <code>&quot;cursor&quot;</code>
| START TRANSACTION and OPEN primescursor
|-
| 88
| <code>db-connect</code>
| —
| —
| <code>&quot;connect&quot;</code>
| Establish the PostgreSQL connection
|-
| 88
| <code>db-disconnect</code>
| —
| —
| <code>&quot;disconnect&quot;</code>
| Release the connection
|-
| 88
| <code>invalid-method</code>
| —
| —
| <code>&quot;bad&quot;</code>
| Sentinel for unrecognised verb
|-
| 03
| <code>primes-data</code>
| —
| —
| —
| Single-row data payload (one prime)
|-
| 05
| <code>primes-sequence</code>
| <code>9(9)</code>
| DISPLAY
| —
| Row identity (<code>ident</code>) of the fetched prime
|-
| 05
| <code>prime-number</code>
| <code>9(9)</code>
| DISPLAY
| —
| The prime value itself
|-
| 03
| <code>dal-result</code>
| <code>9(2)</code>
| DISPLAY
| 0
| Outcome code written by primes
|-
| 88
| <code>dal-method-ok</code>
| —
| —
| 0
| Operation succeeded
|-
| 88
| <code>dal-method-nok</code>
| —
| —
| 1
| Operation failed
|-
| 88
| <code>dal-method-eof</code>
| —
| —
| 99
| Cursor exhausted (no more rows)
|}


-----

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