Primesgen.cbl

This is the compplete source code of the primesgen Cobol program.

       identification division.
       program-id. primesgen.

       environment division.
       configuration section.
       source-computer. linux-laptop.
       object-computer. linux-laptop.
       special-names.
           console is scherm.

       input-output section.
       file-control.
         select fprinter assign to "primes.prt";
         organization line sequential.

       data division.
       file section.
       fd fprinter.
       01 file-buffer pic x(132).

       working-storage section.
       01  filler               pic x(32) value "Start WS primesgen".

       01  printer.
        03 print-buffer     PIC X(132).
        03 line-number      PIC 99 value 99.
        03 page-number      PIC 9999 value zero.

       01  test-quot        pic 9(9).

      *    ui-operations methods and data
      *01 ui-session.
      * 03 ui-methods        pic x(32).
      *  88 start-session    value "start".
      *  88 write-primesui   value "write".
      *  88 display-primesui value "write".
      *  88 stop-session     value "stop".
      * 03 ui-method-result  pic 9(2)  value zero.
      * 03 primes-set.
      *  05 ui-ident        pic 9(9).
      *  05 ui-prime        pic 9(9).

      *    dalcb-operations methods and data
       01 primes.
        03 gen-methods      pic x(32).
         88 query-process   value "query".
         88 start-process   value "start".
         88 next-divider    value "get".
         88 write-prime     value "put".
         88 stop-process    value "stop".
        03 primes-result    pic 9(2)  value zero.
         88 init-primes-ok   value 1.
         88 first-divider-ok value 2.
         88 next-divider-ok  value 3.
      * 03 prime-sequence   pic 9(9).
      * 03 prime-number     pic 9(9).
        03 test-number      pic 9(9).
        03 test-number-sqr  pic 9(9)v9(9).
        03 test-divider     pic 9(9).
        03 test-rest        pic 9(9)v9(9).
        03 old-test-number  pic 9(9).
        03 old-ident        pic 9(9).
        03 new-ident        pic 9(9).

           copy primes-ui.

           copy primes-dal.

       linkage section.

           copy primes-session.

           procedure division using primes-session.
      *                             primes-ui, primes-dal.

           evaluate true

             when report-primes

               perform r90-start-primes-report
               if session-method-ok then
      *           move "report"      to methods
      *           perform r86-report-primes until dal-method-eof
                  perform r86-report-primes until session-method-eof

             when generate-primes

               perform r91-start-primes-generation
               if session-method-ok then
      *           move "generate"   to methods
                  perform r80-test-number until test-number = 999999999

             when other

               move "primesgen"   to program-name
               move "main"        to program-paragraph
               move 'log-message' to methods
               move 'Bad method, primes process failed.'
                 to program-message
               call "primesui" using primes-ui
           end-evaluate.

           perform r99-close-primes.

           exit program.

       r80-test-number.

           divide test-number by test-divider giving test-quot
                  remainder test-rest. 

           evaluate true
           when test-rest = 0
             perform r82-next-test-number
           when test-divider  > test-number-sqr
             perform r85-write-prime
             perform r82-next-test-number
           when other
             perform r89-get-next-divider.

       r82-next-test-number.

           add 2 to test-number.
           compute test-number-sqr = test-number ** 0.5 .
           move 1 to old-ident.
           perform r89-get-next-divider.

       r85-write-prime.

           move 'write'      to ui-methods.
           call "primes" using primes-dal.
           call "primesui" using primes-ui.
      *    display primes-result upon scherm.

       r86-report-primes.

           move 'write'       to ui-methods.
           move primes-data   to u-primes.
           call "primesui" using primes-ui.
           perform r94-fetch.
      *    display prime-number upon scherm.

       r89-get-next-divider.

           move 'get'        to gen-methods.
           call "primes" using primes.

       r90-start-primes-report.

           move 'connect'  to dal-methods.
           call "primes" using primes-dal.

           move "primesgen"   to program-name.
           move "r90-start-primes-report"        to program-paragraph.
           move 'log-message' to ui-methods.

           if dal-method-ok then
             move   'Database initialisation succeeeded.'
               to program-message
             call "primesui" using primes-ui
           else
             move 'Database initialisation failed.'
               to program-message
             call "primesui" using primes-ui
             move 1       to  session-result.

           move 'cursor'      to dal-methods.
           call "primes" using primes-dal.

           move "primesgen"   to program-name.
           move "r90-start-primes-report"        to program-paragraph.
           move 'log-message' to ui-methods.

           if dal-method-ok then
             move   'Cursor initialisation succeeeded.'
               to program-message
             call "primesui" using primes-ui
           else
             move 'Cursor initialisation failed.' to program-message
             call "primesui" using primes-ui
             move 1       to  session-result.

           if dal-method-ok                      then
              perform r94-fetch.

           if dal-method-ok                      then
              move 'Fetch first row ok.' to program-message
              move 0 to dal-result
           else
              move 'Fetch first row nok.' to program-message
                 move 1 to dal-result.

           move 'primesgen'         to program-name.
           call "primesui" using primes-ui.

       r91-start-primes-generation.

           move 'connect'  to dal-methods.
           call "primes" using primes-dal.

           move 'log-message' to ui-methods

           if dal-method-ok then
             move 2 to test-divider
             move 1 to old-ident
             move 3 to test-number
             compute test-number-sqr = test-number ** 0.5 
             move   'Database initialisation succeeeded.'
               to program-message
             call "primesui" using primes-ui
           else
             move 'Database initialisation failed.'
               to program-message
             call "primesui" using primes-ui
             move 1       to  session-result.

       r94-fetch.

           move 'next-prime'   to dal-methods.
           call "primes" using primes-dal.

           move "primesgen"          to program-name.
           move "r94-fetch"          to program-paragraph.
           move 'log-message'        to ui-methods.

           if dal-method-ok then
              next sentence
           else
             move 'Fetch failed.' to program-message
             call "primesui" using primes-ui
             move 1       to  session-result.

       r99-close-primes.

           move 'disconnect' to dal-methods.
           call "primes" using primes.

           move 'log-message' to methods

           if dal-method-ok then
             move   'Database close succeeeded.'
             to program-message
             call "primesui" using primes-ui
           else
             move 'Database close failed.'
               to program-message
             call "primesui" using primes-ui
             move 1       to  session-result.

---

Terug naar: primes