home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / cobol / compiler / cobol650 / cobsrc / prog420.cob < prev    next >
Encoding:
Text File  |  1990-09-02  |  896 b   |  37 lines
  1.        IDENTIFICATION DIVISION.
  2.       *
  3.        PROGRAM-ID. PROG420.
  4.       *
  5.        ENVIRONMENT DIVISION.
  6.       *
  7.        CONFIGURATION SECTION.
  8.       *
  9.        SPECIAL-NAMES.
  10.       *
  11.            PRINTER IS PRINTER-DISPLAY.
  12.       *
  13.       *
  14.        DATA DIVISION.
  15.       *
  16.       *
  17.        WORKING-STORAGE SECTION.
  18.       *
  19.            01  W005-DIVISOR                     PIC 9  VALUE 2.
  20.       *
  21.            01  W005-DIVIDEND                    PIC 99 VALUE 12.
  22.       *
  23.            01  W005-QUOTIENT                    PIC 9.
  24.       *
  25.       *
  26.        PROCEDURE DIVISION.
  27.       *
  28.        MAIN-LINE-LOGIC.
  29.            PERFORM PRINT-COMPUTED-VALUE.
  30.            STOP RUN.
  31.       *
  32.       *
  33.        PRINT-COMPUTED-VALUE.
  34.            DIVIDE W005-DIVISOR INTO W005-DIVIDEND GIVING W005-QUOTIENT.
  35.            DISPLAY "12/2 IS".
  36.            DISPLAY W005-QUOTIENT.
  37.