home *** CD-ROM | disk | FTP | other *** search
/ Frostbyte's 1980s DOS Shareware Collection / floppyshareware.zip / floppyshareware / LUNX / COBOL650.ZIP / COBSRC.ZIP / PROG404.COB < prev    next >
Text File  |  1990-09-02  |  2KB  |  54 lines
  1.        IDENTIFICATION DIVISION.
  2.       *
  3.        PROGRAM-ID. PROG404.
  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.       * 3. THE MESSAGE IS INITIALLY ENTERED INTO ONE    *
  13.       *    WHICH IS THEN MOVED TO ANOTHER FIELD BEFORE  *
  14.       *    BEING PRINTED ON THE PRINTER.                *
  15.       *                                                 *
  16.       ***************************************************
  17.       *
  18.       *
  19.        ENVIRONMENT DIVISION.
  20.       *
  21.        CONFIGURATION SECTION.
  22.       *
  23.        SPECIAL-NAMES.
  24.       *
  25.            PRINTER IS PRINTER-DISPLAY.
  26.       *
  27.       *
  28.        DATA DIVISION.
  29.       *
  30.       *
  31.       ****************************************************
  32.       *                                                  *
  33.        WORKING-STORAGE SECTION.
  34.       *                                                  *
  35.       ****************************************************
  36.       *
  37.       *
  38.        01  W005-ACCEPT-MESSAGE-FIELD             PIC X(32).
  39.       *
  40.        01  W005-DISPLAY-MESSAGE-FIELD            PIC X(32).
  41.       *
  42.       *
  43.        PROCEDURE DIVISION.
  44.       *
  45.        DISPLAY-ACCEPTED-MESSAGE.
  46.            DISPLAY "PROGRAM PROG404:  PRINT DISPLAY OUTPUT:"
  47.                                       UPON PRINTER-DISPLAY. 
  48.            ACCEPT W005-ACCEPT-MESSAGE-FIELD.
  49.            MOVE   W005-ACCEPT-MESSAGE-FIELD
  50.                               TO W005-DISPLAY-MESSAGE-FIELD.
  51.            DISPLAY W005-DISPLAY-MESSAGE-FIELD 
  52.                                        UPON PRINTER-DISPLAY.
  53.            STOP RUN.
  54.