Difference between revisions of "Primesui.out"

From PostgreSQL_wiki
Jump to: navigation, search
(Created page with "This is the compplete source code of the primes Cobol program, which contains the high level SQL statements. <pre> </pre> <hr/> Terug naar: primes")
 
 
Line 1: Line 1:
−
This is the compplete source code of the primes Cobol program, which contains the high level SQL statements.
 +
This is the outpur of the primesmain Cobol program compilation.
 
<pre>
  
<pre>
  +
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
   
 
</pre>
  
</pre>

Latest revision as of 22:22, 9 December 2025

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

Retrieved from "https://wiki.webhuis.nl/index.php?title=Primesui.out&oldid=4656"