Editing
Primesgen.out
Jump to navigation
Jump to search
Warning:
You are not logged in. Your IP address will be publicly visible if you make any edits. If you
log in
or
create an account
, your edits will be attributed to your username, along with other benefits.
Anti-spam check. Do
not
fill this in!
This is the outpur of the primesmain Cobol program compilation. <pre> GnuCOBOL 4.0-early-dev. primesgen.cbl Fri Dec 5 15:28:35 2025 Page 0001 LINE PG/LN A...B............................................................SEQUENCE 000001 identification division. 000002 program-id. primesgen. 000003 000004 environment division. 000005 configuration section. 000006 source-computer. linux-laptop. 000007 object-computer. linux-laptop. 000008 special-names. 000009 console is scherm. 000010 000011 input-output section. 000012 file-control. 000013 select fprinter assign to "primes.prt"; 000014 organization line sequential. 000015 000016 data division. 000017 file section. 000018 fd fprinter. 000019 01 file-buffer pic x(132). 000020 000021 working-storage section. 000022 01 filler pic x(32) value "Start WS primesgen". 000023 000024 01 printer. 000025 03 print-buffer PIC X(132). 000026 03 line-number PIC 99 value 99. 000027 03 page-number PIC 9999 value zero. 000028 000029 01 test-quot pic 9(9). 000030 000031 * ui-operations methods and data 000032 *01 ui-session. 000033 * 03 ui-methods pic x(32). 000034 * 88 start-session value "start". 000035 * 88 write-primesui value "write". 000036 * 88 display-primesui value "write". 000037 * 88 stop-session value "stop". 000038 * 03 ui-method-result pic 9(2) value zero. 000039 * 03 primes-set. 000040 * 05 ui-ident pic 9(9). 000041 * 05 ui-prime pic 9(9). 000042 000043 * dalcb-operations methods and data 000044 01 primes. 000045 03 gen-methods pic x(32). 000046 88 query-process value "query". 000047 88 start-process value "start". 000048 88 next-divider value "get". 000049 88 write-prime value "put". 000050 88 stop-process value "stop". 000051 03 primes-result pic 9(2) value zero. 000052 88 init-primes-ok value 1. GnuCOBOL 4.0-early-dev. primesgen.cbl Fri Dec 5 15:28:35 2025 Page 0002 LINE PG/LN A...B............................................................SEQUENCE 000053 88 first-divider-ok value 2. 000054 88 next-divider-ok value 3. 000055 * 03 prime-sequence pic 9(9). 000056 * 03 prime-number pic 9(9). 000057 03 test-number pic 9(9). 000058 03 test-number-sqr pic 9(9)v9(9). 000059 03 test-divider pic 9(9). 000060 03 test-rest pic 9(9)v9(9). 000061 03 old-test-number pic 9(9). 000062 03 old-ident pic 9(9). 000063 03 new-ident pic 9(9). 000064 000065 copy primes-ui. 000001C * three-tier-operations methods 000002C * ui part, methods available to all objects 000003C 01 primes-ui. 000004C 03 ui-methods pic x(32). 000005C 88 write-ui value "write". 000006C 88 message-ui value "log-message". 000007C 88 start-ui value "start". 000008C 88 stop-ui value "stop". 000009C 03 process-message. 000010C 05 program-name pic x(20). 000011C 05 program-line. 000012C 07 program-paragraph pic x(20). 000013C 07 program-message pic x(92). 000014C 03 u-primes. 000015C 05 u-sequence pic 9(9). 000016C 05 u-number pic 9(9). 000017C 03 ui-method-result pic 9(2) value zero. 000018C 88 ui-method-ok value 0. 000019C 88 ui-method-nok value 1. 000066 000067 copy primes-dal. 000001C * three-tier-operations methods 000002C * business dal tier 000003C 01 primes-dal. 000004C 03 dal-methods pic x(32). 000005C 88 next-prime value "next-prime". 000006C 88 next-divider value "next-divider". 000007C 88 write-prime value "write". 000008C 88 db-cursor value "cursor". 000009C 88 db-connect value "connect". 000010C 88 db-disconnect value "disconnect". 000011C 88 invalid-method value "bad". 000012C 03 primes-data. 000013C 05 primes-sequence pic 9(9). 000014C 05 prime-number pic 9(9). 000015C 03 dal-result pic 9(2) value zero. 000016C 88 dal-method-ok value 0. 000017C 88 dal-method-nok value 1. 000018C 88 dal-method-eof value 99. GnuCOBOL 4.0-early-dev. primesgen.cbl Fri Dec 5 15:28:35 2025 Page 0003 LINE PG/LN A...B............................................................SEQUENCE 000019C * 03 primes-table. 000020C * 05 ident pic s9(9). 000021C * 05 prime pic s9(9). 000022C 000068 000069 linkage section. 000070 000071 copy primes-session. 000001C * three-tier-operations methods 000002C * business session tier 000003C 01 primes-session. 000004C 03 methods pic x(32). 000005C 88 report-primes value "report". 000006C 88 generate-primes value "generate". 000007C 88 start-primes value "start". 000008C 88 stop-primes value "stop". 000009C 88 invalid-method value "bad". 000010C * 03 primes-data. 000011C * 05 primes-sequence pic 9(9). 000012C * 05 prime-number pic 9(9). 000013C 03 session-result pic 9(2) value zero. 000014C 88 session-method-ok value 0. 000015C 88 session-method-nok value 1. 000016C 88 session-method-eof value 9. 000072 000073 procedure division using primes-session. 000074 * primes-ui, primes-dal. 000075 000076 evaluate true 000077 000078 when report-primes 000079 000080 perform r90-start-primes-report 000081 if session-method-ok then 000082 * move "report" to methods 000083 * perform r86-report-primes until dal-method-eof 000084 perform r86-report-primes until session-method-eof 000085 000086 when generate-primes 000087 000088 perform r91-start-primes-generation 000089 if session-method-ok then 000090 * move "generate" to methods 000091 perform r80-test-number until test-number = 999999999 000092 000093 when other 000094 000095 move "primesgen" to program-name 000096 move "main" to program-paragraph 000097 move 'log-message' to methods 000098 move 'Bad method, primes process failed.' 000099 to program-message GnuCOBOL 4.0-early-dev. primesgen.cbl Fri Dec 5 15:28:35 2025 Page 0004 LINE PG/LN A...B............................................................SEQUENCE 000100 call "primesui" using primes-ui 000101 end-evaluate. 000102 000103 perform r99-close-primes. 000104 000105 exit program. 000106 000107 r80-test-number. 000108 000109 divide test-number by test-divider giving test-quot 000110 remainder test-rest. 000111 000112 evaluate true 000113 when test-rest = 0 000114 perform r82-next-test-number 000115 when test-divider > test-number-sqr 000116 perform r85-write-prime 000117 perform r82-next-test-number 000118 when other 000119 perform r89-get-next-divider. 000120 000121 r82-next-test-number. 000122 000123 add 2 to test-number. 000124 compute test-number-sqr = test-number ** 0.5 . 000125 move 1 to old-ident. 000126 perform r89-get-next-divider. 000127 000128 r85-write-prime. 000129 000130 move 'write' to ui-methods. 000131 call "primes" using primes-dal. 000132 call "primesui" using primes-ui. 000133 * display primes-result upon scherm. 000134 000135 r86-report-primes. 000136 000137 move 'write' to ui-methods. 000138 move primes-data to u-primes. 000139 call "primesui" using primes-ui. 000140 perform r94-fetch. 000141 * display prime-number upon scherm. 000142 000143 r89-get-next-divider. 000144 000145 move 'get' to gen-methods. 000146 call "primes" using primes. 000147 000148 r90-start-primes-report. 000149 000150 move 'connect' to dal-methods. 000151 call "primes" using primes-dal. GnuCOBOL 4.0-early-dev. primesgen.cbl Fri Dec 5 15:28:35 2025 Page 0005 LINE PG/LN A...B............................................................SEQUENCE 000152 000153 move "primesgen" to program-name. 000154 move "r90-start-primes-report" to program-paragraph. 000155 move 'log-message' to ui-methods. 000156 000157 if dal-method-ok then 000158 move 'Database initialisation succeeeded.' 000159 to program-message 000160 call "primesui" using primes-ui 000161 else 000162 move 'Database initialisation failed.' 000163 to program-message 000164 call "primesui" using primes-ui 000165 move 1 to session-result. 000166 000167 move 'cursor' to dal-methods. 000168 call "primes" using primes-dal. 000169 000170 move "primesgen" to program-name. 000171 move "r90-start-primes-report" to program-paragraph. 000172 move 'log-message' to ui-methods. 000173 000174 if dal-method-ok then 000175 move 'Cursor initialisation succeeeded.' 000176 to program-message 000177 call "primesui" using primes-ui 000178 else 000179 move 'Cursor initialisation failed.' to program-message 000180 call "primesui" using primes-ui 000181 move 1 to session-result. 000182 000183 if dal-method-ok then 000184 perform r94-fetch. 000185 000186 if dal-method-ok then 000187 move 'Fetch first row ok.' to program-message 000188 move 0 to dal-result 000189 else 000190 move 'Fetch first row nok.' to program-message 000191 move 1 to dal-result. 000192 000193 move 'primesgen' to program-name. 000194 call "primesui" using primes-ui. 000195 000196 r91-start-primes-generation. 000197 000198 move 'connect' to dal-methods. 000199 call "primes" using primes-dal. 000200 000201 move 'log-message' to ui-methods 000202 000203 if dal-method-ok then GnuCOBOL 4.0-early-dev. primesgen.cbl Fri Dec 5 15:28:35 2025 Page 0006 LINE PG/LN A...B............................................................SEQUENCE 000204 move 2 to test-divider 000205 move 1 to old-ident 000206 move 3 to test-number 000207 compute test-number-sqr = test-number ** 0.5 000208 move 'Database initialisation succeeeded.' 000209 to program-message 000210 call "primesui" using primes-ui 000211 else 000212 move 'Database initialisation failed.' 000213 to program-message 000214 call "primesui" using primes-ui 000215 move 1 to session-result. 000216 000217 r94-fetch. 000218 000219 move 'next-prime' to dal-methods. 000220 call "primes" using primes-dal. 000221 000222 move "primesgen" to program-name. 000223 move "r94-fetch" to program-paragraph. 000224 move 'log-message' to ui-methods. 000225 000226 if dal-method-ok then 000227 next sentence 000228 else 000229 move 'Fetch failed.' to program-message 000230 call "primesui" using primes-ui 000231 move 1 to session-result. 000232 000233 r99-close-primes. 000234 000235 move 'disconnect' to dal-methods. 000236 call "primes" using primes. 000237 000238 move 'log-message' to methods 000239 000240 if dal-method-ok then 000241 move 'Database close succeeeded.' 000242 to program-message 000243 call "primesui" using primes-ui 000244 else 000245 move 'Database close failed.' 000246 to program-message 000247 call "primesui" using primes-ui 000248 move 1 to session-result. 000249 0 warnings in compilation group 0 errors in compilation group </pre> <hr/> Terug naar: [[primes]]
Summary:
Please note that all contributions to Webhuis wiki are considered to be released under the GNU Free Documentation License 1.3 or later (see
Project:Copyrights
for details). If you do not want your writing to be edited mercilessly and redistributed at will, then do not submit it here.
You are also promising us that you wrote this yourself, or copied it from a public domain or similar free resource.
Do not submit copyrighted work without permission!
Cancel
Editing help
(opens in new window)
Navigation menu
Personal tools
Not logged in
Talk
Contributions
Create account
Log in
Namespaces
Page
Discussion
English
Views
Read
Edit
View history
More
Search
Navigation
Voorpagina
Cobol and PostgreSQL
PostgreSQL
CFEngine
Proxmox
Webhuis Kennisbank
Basale infra
Webhuis bouwstenen
Webhuis configuratie
Webhuis Infra
Webhuis Support
Webhuis Raspberry
Opzet Applicaties
Business Applicaties
Community portal
Current events
Recent changes
Random page
Help
sitesupport
Tools
What links here
Related changes
Special pages
Page information