home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / MISC / COBOL650.ZIP / COBSRC.ZIP / PROG408.COB < prev    next >
Encoding:
Text File  |  1990-09-02  |  1.6 KB  |  47 lines
  1.        IDENTIFICATION DIVISION.
  2.       *
  3.        PROGRAM-ID. PROG408.
  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 SUBTRACT OPERATION.  *
  11.       *                                                 *
  12.       ***************************************************
  13.       *
  14.       *
  15.        ENVIRONMENT DIVISION.
  16.       *
  17.        CONFIGURATION SECTION.
  18.       *
  19.        SPECIAL-NAMES.
  20.       *
  21.            PRINTER IS PRINTER-DISPLAY.
  22.       *
  23.       *
  24.        DATA DIVISION.
  25.       *
  26.       *
  27.       ****************************************************
  28.       *                                                  *
  29.        WORKING-STORAGE SECTION.
  30.       *                                                  *
  31.       ****************************************************
  32.       *
  33.       *
  34.        01  W005-SUBTRAHEND                 PIC 9   VALUE 2.  
  35.       *
  36.        01  W005-MINUEND                    PIC 99  VALUE 12.
  37.       *
  38.       *
  39.        PROCEDURE DIVISION.
  40.       *
  41.        PRINT-COMPUTED-VALUE.
  42.            SUBTRACT W005-SUBTRAHEND FROM  W005-MINUEND.
  43.            DISPLAY "PROGRAM PROG408: THE RESULT OF 12 - 2 IS:"
  44.                                        UPON PRINTER-DISPLAY.
  45.            DISPLAY W005-MINUEND UPON PRINTER-DISPLAY.
  46.            STOP RUN.
  47.