Editing Flow diagrams (section)

== 6. UI Dispatch — primesui.cbl ==

<pre class="mermaid">flowchart TD
    ENTRY([ENTRY primes-ui]) --&gt; EVAL{ui-methods}
    EVAL --&gt;|start| R90[r90-start-primesui:\nOPEN OUTPUT fprinter\ncheck file-status]
    EVAL --&gt;|write| R92[r92-write-primesui:\nload t-ident / t-prime into cell\nprimes-idx + 1]
    EVAL --&gt;|log-message| R98[r98-message-ui:\nDISPLAY process-message\nUPON scherm]
    EVAL --&gt;|stop| R99[r99-stop-primesui:\nflush partial line\nCLOSE fprinter]
    EVAL --&gt;|other| ERR[ui-method-result = 1]
    R90 --&gt; STATCK{file-status = '00'?}
    STATCK --&gt;|Yes| OPENOK[ui-method-result = 0\nprimes-idx = 1]
    STATCK --&gt;|No| OPENNOK[ui-method-result = 1\nDISPLAY status on console]
    R92 --&gt; NEWPG{new-page?}
    NEWPG --&gt;|Yes| R93[r93-new-page:\nwrite heading + column header\nprint-new-page = 0]
    NEWPG --&gt;|No| IDX7{primes-idx = 7?}
    R93 --&gt; IDX7
    IDX7 --&gt;|Yes| WRITELN[WRITE print line\nprimes-idx = 1]
    IDX7 --&gt;|No| LINCNT{linage-counter = 53?}
    WRITELN --&gt; LINCNT
    LINCNT --&gt;|Yes| R94[r94-eop:\nwrite footing\npage-number + 1\nprint-new-page = 1]
    LINCNT --&gt;|No| UIEXIT
    R94 --&gt; UIEXIT
    R99 --&gt; FLUSH[PERFORM r92-write-primesui\nUNTIL new-page\nwriting zero rows]
    FLUSH --&gt; CLSFIL[CLOSE fprinter]
    CLSFIL --&gt; UIEXIT
    OPENOK &amp; OPENNOK &amp; R98 &amp; ERR &amp; CLSFIL --&gt; UIEXIT([EXIT PROGRAM])</pre>

-----

<span id="sequence-diagram-full-report-run"></span>