https://wiki.webhuis.nl:443/index.php?action=history&feed=atom&title=Primesmain.out
Primesmain.out - Revision history
2026-09-03T10:06:31Z
Revision history for this page on the wiki
MediaWiki 1.39.17
https://wiki.webhuis.nl:443/index.php?title=Primesmain.out&diff=4652&oldid=prev
Martin: Created page with "This is the outpur of the primesmain Cobol program compilation. <pre> GnuCOBOL 4.0-early-dev. primesmain.cbl Fri Dec 5 15:27:25..."
2025-12-09T22:18:04Z
<p>Created page with "This is the outpur of the primesmain Cobol program compilation. <pre> GnuCOBOL 4.0-early-dev. primesmain.cbl Fri Dec 5 15:27:25..."</p>
<p><b>New page</b></p><div>This is the outpur of the primesmain Cobol program compilation.<br />
<pre><br />
GnuCOBOL 4.0-early-dev. primesmain.cbl Fri Dec 5 15:27:25 2025 Page 0001<br />
<br />
LINE PG/LN A...B............................................................SEQUENCE<br />
<br />
000001 identification division.<br />
000002 program-id. primesmain.<br />
000003<br />
000004 environment division.<br />
000005 configuration section.<br />
000006 source-computer. linux-laptop.<br />
000007 object-computer. linux-laptop.<br />
000008 special-names.<br />
000009 console is scherm.<br />
000010<br />
000011 data division.<br />
000012 working-storage section.<br />
000013 01 filler pic x(32) value "Start WS primesmain".<br />
000014 01 commandline-args pic x(32).<br />
000015 88 execute-generate value "generate".<br />
000016 88 execute-report value "report".<br />
000017<br />
000018 copy primes-session.<br />
000001C * three-tier-operations methods<br />
000002C * business session tier<br />
000003C 01 primes-session.<br />
000004C 03 methods pic x(32).<br />
000005C 88 report-primes value "report".<br />
000006C 88 generate-primes value "generate".<br />
000007C 88 start-primes value "start".<br />
000008C 88 stop-primes value "stop".<br />
000009C 88 invalid-method value "bad".<br />
000010C * 03 primes-data.<br />
000011C * 05 primes-sequence pic 9(9).<br />
000012C * 05 prime-number pic 9(9).<br />
000013C 03 session-result pic 9(2) value zero.<br />
000014C 88 session-method-ok value 0.<br />
000015C 88 session-method-nok value 1.<br />
000016C 88 session-method-eof value 9.<br />
000019<br />
000020 copy primes-ui.<br />
000001C * three-tier-operations methods<br />
000002C * ui part, methods available to all objects<br />
000003C 01 primes-ui.<br />
000004C 03 ui-methods pic x(32).<br />
000005C 88 write-ui value "write".<br />
000006C 88 message-ui value "log-message".<br />
000007C 88 start-ui value "start".<br />
000008C 88 stop-ui value "stop".<br />
000009C 03 process-message.<br />
000010C 05 program-name pic x(20).<br />
000011C 05 program-line.<br />
000012C 07 program-paragraph pic x(20).<br />
000013C 07 program-message pic x(92).<br />
000014C 03 u-primes.<br />
000015C 05 u-sequence pic 9(9).<br />
000016C 05 u-number pic 9(9).<br />
<br />
GnuCOBOL 4.0-early-dev. primesmain.cbl Fri Dec 5 15:27:25 2025 Page 0002<br />
<br />
LINE PG/LN A...B............................................................SEQUENCE<br />
<br />
000017C 03 ui-method-result pic 9(2) value zero.<br />
000018C 88 ui-method-ok value 0.<br />
000019C 88 ui-method-nok value 1.<br />
000021<br />
000022 procedure division.<br />
000023<br />
000024 accept commandline-args from command-line.<br />
000025 move commandline-args to methods.<br />
000026 move 'primesmain' to program-name.<br />
000027<br />
000028 perform r90-start-session.<br />
000029<br />
000030 evaluate true<br />
000031<br />
000032 when report-primes<br />
000033<br />
000034 move 'log-message' to ui-methods<br />
000035 move 'Primes report generation starts.'<br />
000036 to program-message<br />
000037 call "primesui" using primes-ui<br />
000038<br />
000039 move "report" to methods<br />
000040<br />
000041 perform r92-generate-primes<br />
000042<br />
000043 when generate-primes<br />
000044<br />
000045 move 'log-message' to ui-methods<br />
000046 move 'Primes generation starts.'<br />
000047 to process-message<br />
000048 call "primesui" using primes-ui<br />
000049<br />
000050 move 'generate' to methods<br />
000051 * perform r92-generate-primes<br />
000052<br />
000053 when other<br />
000054<br />
000055 move 'log-message' to ui-methods<br />
000056 move 'Bad parameter, program initialisation failed.'<br />
000057 to program-message<br />
000058 call "primesui" using primes-ui<br />
000059<br />
000060 move 'stop' to ui-methods<br />
000061 perform r99-stop-session<br />
000062<br />
000063 stop run<br />
000064<br />
000065 end-evaluate.<br />
000066<br />
000067 move 'log-message' to ui-methods.<br />
000068 move 'Primes run complete, program stops.'<br />
000069 to program-message.<br />
<br />
GnuCOBOL 4.0-early-dev. primesmain.cbl Fri Dec 5 15:27:25 2025 Page 0003<br />
<br />
LINE PG/LN A...B............................................................SEQUENCE<br />
<br />
000070 call "primesui" using primes-ui.<br />
000071<br />
000072 move 'stop' to methods.<br />
000073 perform r99-stop-session.<br />
000074<br />
000075 stop run.<br />
000076<br />
000077 r90-start-session.<br />
000078<br />
000079 move 'start-session' to program-paragraph.<br />
000080 move 'start' to ui-methods.<br />
000081<br />
000082 call "primesui" using primes-ui.<br />
000083<br />
000084 if ui-method-ok then<br />
000085<br />
000086 move 'log-message' to ui-methods<br />
000087 move 'UI initialisation succeeded.'<br />
000088 to program-message<br />
000089 call "primesui" using primes-ui<br />
000090<br />
000091 else<br />
000092<br />
000093 display "Emergency console message program stops."<br />
000094 upon scherm<br />
000095 stop run.<br />
000096<br />
000097 move 'log-message' to ui-methods.<br />
000098 move commandline-args to program-message.<br />
000099 call "primesui" using primes-ui.<br />
000100<br />
000101 r92-generate-primes.<br />
000102<br />
000103 call "primesgen" using primes-session.<br />
000104<br />
000105 r99-stop-session.<br />
000106<br />
000107 move 'stop' to ui-methods.<br />
000108 call "primesui" using primes-ui.<br />
000109<br />
<br />
<br />
0 warnings in compilation group<br />
0 errors in compilation group<br />
</pre><br />
<hr/><br />
Terug naar: [[primes]]</div>
Martin