home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / MISC / COBOL650.ZIP / COBSRC.ZIP / PROG402.COB < prev    next >
Encoding:
Text File  |  1990-09-02  |  1.5 KB  |  45 lines
  1.        IDENTIFICATION DIVISION.
  2.       *
  3.        PROGRAM-ID. PROG402.
  4.       *
  5.       ***************************************************
  6.       *                                                 *
  7.       * 1. DATE-WRITTEN. 08/01/90.                      *
  8.       *                                                 *
  9.       * 2. THIS PROGRAM DISPLAYS ON THE PRINTER         *
  10.       *    A MESSAGE ENTERED BY THE OPERATOR.           *
  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-MESSAGE-FIELD             PIC X(32).
  35.       *
  36.       *
  37.        PROCEDURE DIVISION.
  38.       *
  39.        DISPLAY-ACCEPTED-MESSAGE.
  40.            DISPLAY "PROGRAM PROG402:  PRINT DISPLAY OUTPUT:"
  41.                                       UPON PRINTER-DISPLAY. 
  42.            ACCEPT W005-MESSAGE-FIELD.
  43.            DISPLAY W005-MESSAGE-FIELD UPON PRINTER-DISPLAY.
  44.            STOP RUN.
  45.