https://wiki.webhuis.nl:443/index.php?action=history&feed=atom&title=Primesui.cbl Primesui.cbl - Revision history 2026-09-03T06:16:04Z Revision history for this page on the wiki MediaWiki 1.39.17 https://wiki.webhuis.nl:443/index.php?title=Primesui.cbl&diff=4661&oldid=prev Martin: Created page with "This is the complete source code of the primesui Cobol program. <pre> identification division. program-id. primesui. environment division. configu..." 2025-12-09T22:30:27Z <p>Created page with &quot;This is the complete source code of the primesui Cobol program. &lt;pre&gt; identification division. program-id. primesui. environment division. configu...&quot;</p> <p><b>New page</b></p><div>This is the complete source code of the primesui Cobol program.<br /> &lt;pre&gt;<br /> identification division.<br /> program-id. primesui.<br /> <br /> environment division.<br /> configuration section.<br /> source-computer. linux-laptop.<br /> object-computer. linux-laptop.<br /> special-names.<br /> console is scherm.<br /> <br /> input-output section.<br /> file-control.<br /> select fprinter assign to &quot;primes.prt&quot;<br /> organization is sequential<br /> file status is primes-prt-status.<br /> <br /> data division.<br /> file section.<br /> fd fprinter<br /> label records omitted<br /> linage 56,<br /> footing 2,<br /> * top 2,<br /> bottom 2.<br /> 01 file-buffer pic x(132).<br /> <br /> working-storage section.<br /> 01 filler pic x(32) value &quot;start ws primesui&quot;.<br /> <br /> 01 primes-table.<br /> 03 primes-cel occurs 6 indexed primes-idx.<br /> 05 t-ident pic z(9).<br /> 05 filler pic x(2).<br /> 05 t-prime pic z(9).<br /> 05 filler pic x(2).<br /> 01 table-header.<br /> 03 cel-header occurs 6.<br /> 05 filler pic x(9) value &#039;Sequence&#039;.<br /> 05 filler pic x(2) value space.<br /> 05 filler pic x(9) value &#039;Prime&#039;.<br /> 05 filler pic x(2) value space.<br /> <br /> 01 printer.<br /> 03 print-buffer pic x(132).<br /> 03 primes-prt-status pic x(2).<br /> 03 page-number pic 9(4) value 1.<br /> 03 print-new-page pic 9 value 1.<br /> 88 new-page value 1.<br /> <br /> 01 primes-heading.<br /> 03 filler pic x(118) value &#039;primes overview&#039;.<br /> * 03 filler pic x(06) value &#039;page: &#039;.<br /> * 03 page-number pic z(3)9 value 1.<br /> <br /> 01 primes-footing.<br /> 03 filler pic x(118) value space.<br /> 03 filler pic x(06) value &#039;page: &#039;.<br /> 03 f-page-number pic z(3)9 value 1.<br /> <br /> 01 primes-line.<br /> 03 primes-row pic x(132).<br /> <br /> 01 primes-total.<br /> 03 primes-count pic 9(8).<br /> <br /> linkage section.<br /> <br /> copy primes-ui.<br /> <br /> procedure division using primes-ui.<br /> <br /> * move &#039;primesui&#039; to program-name.<br /> <br /> evaluate true<br /> when start-ui<br /> perform r90-start-primesui<br /> when write-ui<br /> perform r92-write-primesui<br /> when stop-ui<br /> perform r99-stop-primesui<br /> when message-ui<br /> perform r98-message-ui<br /> when other<br /> move 1 to ui-method-result<br /> end-evaluate.<br /> <br /> exit program.<br /> <br /> r90-start-primesui.<br /> <br /> move &#039;start-primesui&#039; to program-paragraph.<br /> move &#039;start-printer&#039; to program-message<br /> <br /> open output fprinter.<br /> <br /> if primes-prt-status = &#039;00&#039; then<br /> move 0 to ui-method-result<br /> set primes-idx to 1<br /> move &#039;Open printer Ok&#039; to program-message<br /> perform r98-message-ui<br /> else<br /> move 1 to ui-method-result<br /> move &#039;Open printer Nok&#039; to program-message<br /> display primes-prt-status upon scherm.<br /> <br /> r92-write-primesui.<br /> <br /> move u-sequence to t-ident(primes-idx)<br /> move u-number to t-prime(primes-idx)<br /> set primes-idx up by 1.<br /> if new-page then<br /> perform r93-new-page.<br /> <br /> if primes-idx = 7 then<br /> move primes-table to print-buffer<br /> write file-buffer from print-buffer<br /> set primes-idx to 1.<br /> if linage-counter = 53 then<br /> perform r94-eop.<br /> <br /> r93-new-page.<br /> <br /> move primes-heading to print-buffer<br /> write file-buffer from print-buffer<br /> * after advancing page<br /> move table-header to print-buffer<br /> write file-buffer from print-buffer<br /> move zero to print-new-page.<br /> <br /> r94-eop.<br /> <br /> move page-number to f-page-number.<br /> move &#039; &#039; to print-buffer.<br /> write file-buffer from print-buffer.<br /> move primes-footing to print-buffer.<br /> write file-buffer from print-buffer.<br /> add 1 to page-number.<br /> move 1 to print-new-page.<br /> <br /> r98-message-ui.<br /> <br /> display process-message upon scherm.<br /> <br /> r99-stop-primesui.<br /> <br /> move 0 to u-sequence.<br /> move 0 to u-number.<br /> perform r92-write-primesui until new-page.<br /> move &#039;stop-primesui&#039; to program-paragraph.<br /> move &#039;close printer&#039; to program-message.<br /> perform r98-message-ui<br /> <br /> close fprinter.<br /> <br /> move primes-prt-status to ui-method-result.<br /> if primes-prt-status = &#039;00&#039; then<br /> next sentence<br /> else<br /> display primes-prt-status upon scherm.<br /> <br /> &lt;/pre&gt;<br /> &lt;hr/&gt;<br /> Terug naar: [[primes]]</div> Martin