Primesui.out
This is the outpur of the primesmain Cobol program compilation.
GnuCOBOL 4.0-early-dev. primesui.cbl Fri Dec 5 15:24:25 2025 Page 0001 LINE PG/LN A...B............................................................SEQUENCE 000001 identification division. 000002 program-id. primesui. 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 is sequential 000015 file status is primes-prt-status. 000016 000017 data division. 000018 file section. 000019 fd fprinter 000020 label records omitted 000021 linage 56, 000022 footing 2, 000023 * top 2, 000024 bottom 2. 000025 01 file-buffer pic x(132). 000026 000027 working-storage section. 000028 01 filler pic x(32) value "start ws primesui". 000029 000030 01 primes-table. 000031 03 primes-cel occurs 6 indexed primes-idx. 000032 05 t-ident pic z(9). 000033 05 filler pic x(2). 000034 05 t-prime pic z(9). 000035 05 filler pic x(2). 000036 01 table-header. 000037 03 cel-header occurs 6. 000038 05 filler pic x(9) value 'Sequence'. 000039 05 filler pic x(2) value space. 000040 05 filler pic x(9) value 'Prime'. 000041 05 filler pic x(2) value space. 000042 000043 01 printer. 000044 03 print-buffer pic x(132). 000045 03 primes-prt-status pic x(2). 000046 03 page-number pic 9(4) value 1. 000047 03 print-new-page pic 9 value 1. 000048 88 new-page value 1. 000049 000050 01 primes-heading. 000051 03 filler pic x(118) value 'primes overview'. 000052 * 03 filler pic x(06) value 'page: '. GnuCOBOL 4.0-early-dev. primesui.cbl Fri Dec 5 15:24:25 2025 Page 0002 LINE PG/LN A...B............................................................SEQUENCE 000053 * 03 page-number pic z(3)9 value 1. 000054 000055 01 primes-footing. 000056 03 filler pic x(118) value space. 000057 03 filler pic x(06) value 'page: '. 000058 03 f-page-number pic z(3)9 value 1. 000059 000060 01 primes-line. 000061 03 primes-row pic x(132). 000062 000063 01 primes-total. 000064 03 primes-count pic 9(8). 000065 000066 linkage section. 000067 000068 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. 000069 000070 procedure division using primes-ui. 000071 000072 * move 'primesui' to program-name. 000073 000074 evaluate true 000075 when start-ui 000076 perform r90-start-primesui 000077 when write-ui 000078 perform r92-write-primesui 000079 when stop-ui 000080 perform r99-stop-primesui 000081 when message-ui 000082 perform r98-message-ui 000083 when other 000084 move 1 to ui-method-result 000085 end-evaluate. GnuCOBOL 4.0-early-dev. primesui.cbl Fri Dec 5 15:24:25 2025 Page 0003 LINE PG/LN A...B............................................................SEQUENCE 000086 000087 exit program. 000088 000089 r90-start-primesui. 000090 000091 move 'start-primesui' to program-paragraph. 000092 move 'start-printer' to program-message 000093 000094 open output fprinter. 000095 000096 if primes-prt-status = '00' then 000097 move 0 to ui-method-result 000098 set primes-idx to 1 000099 move 'Open printer Ok' to program-message 000100 perform r98-message-ui 000101 else 000102 move 1 to ui-method-result 000103 move 'Open printer Nok' to program-message 000104 display primes-prt-status upon scherm. 000105 000106 r92-write-primesui. 000107 000108 move u-sequence to t-ident(primes-idx) 000109 move u-number to t-prime(primes-idx) 000110 set primes-idx up by 1. 000111 if new-page then 000112 perform r93-new-page. 000113 000114 if primes-idx = 7 then 000115 move primes-table to print-buffer 000116 write file-buffer from print-buffer 000117 set primes-idx to 1. 000118 if linage-counter = 53 then 000119 perform r94-eop. 000120 000121 r93-new-page. 000122 000123 move primes-heading to print-buffer 000124 write file-buffer from print-buffer 000125 * after advancing page 000126 move table-header to print-buffer 000127 write file-buffer from print-buffer 000128 move zero to print-new-page. 000129 000130 r94-eop. 000131 000132 move page-number to f-page-number. 000133 move ' ' to print-buffer. 000134 write file-buffer from print-buffer. 000135 move primes-footing to print-buffer. 000136 write file-buffer from print-buffer. 000137 add 1 to page-number. GnuCOBOL 4.0-early-dev. primesui.cbl Fri Dec 5 15:24:25 2025 Page 0004 LINE PG/LN A...B............................................................SEQUENCE 000138 move 1 to print-new-page. 000139 000140 r98-message-ui. 000141 000142 display process-message upon scherm. 000143 000144 r99-stop-primesui. 000145 000146 move 0 to u-sequence. 000147 move 0 to u-number. 000148 perform r92-write-primesui until new-page. 000149 move 'stop-primesui' to program-paragraph. 000150 move 'close printer' to program-message. 000151 perform r98-message-ui 000152 000153 close fprinter. 000154 000155 move primes-prt-status to ui-method-result. 000156 if primes-prt-status = '00' then 000157 next sentence 000158 else 000159 display primes-prt-status upon scherm. 000160 0 warnings in compilation group 0 errors in compilation group
Terug naar: primes
