home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / MISC / COBOL650.ZIP / COBSRC.ZIP / PROG414.COB < prev    next >
Encoding:
Text File  |  1990-09-02  |  1.8 KB  |  50 lines
  1.        IDENTIFICATION DIVISION.
  2.       *
  3.        PROGRAM-ID. PROG414.
  4.       *
  5.       ***************************************************
  6.       *                                                 *
  7.       * 1. DATE-WRITTEN. 08/01/90.                      *
  8.       *                                                 *
  9.       * 2. THIS PROGRAM DISPLAYS ON THE PRINTER         *
  10.       *    A VALUE COMPUTED FROM A DIVIDE   OPERATION.  *
  11.       *                                                 *
  12.       * 3. THE QUOTIENT IS PLACED INTO A DIFFERENT FIELD*
  13.       *                                                 *
  14.       ***************************************************
  15.       *
  16.       *
  17.        ENVIRONMENT DIVISION.
  18.       *
  19.        CONFIGURATION SECTION.
  20.       *
  21.        SPECIAL-NAMES.
  22.       *
  23.            PRINTER IS PRINTER-DISPLAY.
  24.       *
  25.       *
  26.        DATA DIVISION.
  27.       *
  28.       *
  29.       ****************************************************
  30.       *                                                  *
  31.        WORKING-STORAGE SECTION.
  32.       *                                                  *
  33.       ****************************************************
  34.       *
  35.       *
  36.        01  W005-DIVISOR                    PIC 9   VALUE 2.  
  37.       *
  38.        01  W005-DIVIDEND                   PIC 99  VALUE 12.
  39.       *
  40.        01  W005-QUOTIENT                   PIC 9.
  41.       *
  42.        PROCEDURE DIVISION.
  43.       *
  44.        PRINT-COMPUTED-VALUE.
  45.            DIVIDE W005-DIVISOR INTO W005-DIVIDEND GIVING W005-QUOTIENT.
  46.            DISPLAY "PROGRAM PROG412: THE QUOTIENT OF 12 / 2 IS:"
  47.                                        UPON PRINTER-DISPLAY.
  48.            DISPLAY W005-QUOTIENT       UPON PRINTER-DISPLAY.
  49.            STOP RUN.
  50.