Editing Data-Dictionary (section)

=== 2.3 primes (DAL) ===

<blockquote>'''Source:''' <code>primes.cbl</code> WORKING-STORAGE SECTION<br />
'''Copybooks included:''' <code>primes-ui</code> (WS) · <code>SQLCA</code> (via EXEC SQL INCLUDE) · <code>primes-table</code> (via EXEC SQL INCLUDE) · <code>primes-dal</code> (LINKAGE)
</blockquote>
'''Database credentials:'''

{|
!width="25%"| Name
!width="25%"| PIC
!width="25%"| Initial
!width="25%"| Description
|-
| <code>DATASRC</code>
| <code>X(64)</code>
| <code>&quot;pgsql://localhost:5432/primes&amp;default_schema=primes&quot;</code>
| GixSQL connection string ⚠️ hard-coded
|-
| <code>DBUSR</code>
| <code>X(64)</code>
| <code>&quot;primes_user&quot;</code>
| Database user name ⚠️ hard-coded
|-
| <code>DBPWD</code>
| <code>X(64)</code>
| <code>&quot;pr1mes_user&quot;</code>
| Database password ⚠️ hard-coded in plain text
|-
| <code>CUR-STEP</code>
| <code>X(16)</code>
| —
| Diagnostic step label (<code>&quot;CONNECT&quot;</code> / <code>&quot;DISCONNECT&quot;</code>)
|}

'''Cursor fetch buffer:'''

{|
!width="25%"| Name
!width="25%"| PIC
!width="25%"| Usage
!width="25%"| Description
|-
| <code>primes-row</code>
| (group)
| —
| Target group for <code>FETCH primescursor INTO :primes-row</code>
|-
| <code>r-ident</code>
| <code>9(9)</code>
| COMP-3
| Fetched row identity value
|-
| <code>r-prime</code>
| <code>9(9)</code>
| COMP-3
| Fetched prime value
|}

'''Unused declarations:'''

{|
! Name
! PIC
! Note
|-
| <code>prime-count</code>
| <code>9(9)</code>
| Declared; not written to in current flow
|-
| <code>prime_seq</code>
| <code>9(9)</code>
| Declared; not written to
|-
| <code>divider</code>
| <code>9(9)</code>
| Declared; not written to
|}

'''Local sieve control group (01 <code>primes</code>, mirrors primesgen layout):'''

Mirrors the <code>01 primes</code> group in primesgen. Contains <code>test-divider</code>, <code>old-ident</code>, <code>new-ident</code> etc., used internally by <code>r81-get-next-divider</code>. See [[#22-primesgen|§2.2]] for field descriptions.


-----

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