home *** CD-ROM | disk | FTP | other *** search
/ Frostbyte's 1980s DOS Shareware Collection / floppyshareware.zip / floppyshareware / LUNX / COBOL650.ZIP / COBSRC.ZIP / PROG401.COB < prev    next >
Text File  |  1990-09-02  |  1KB  |  41 lines
  1.         IDENTIFICATION DIVISION.
  2.        *
  3.         PROGRAM-ID. PROG401.
  4.        *
  5.        ***************************************************
  6.        *                                                 *
  7.        * 1. DATE-WRITTEN. 08/01/90.                      *
  8.        *                                                 *
  9.        * 2. THIS PROGRAM DISPLAYS ON THE CONSOLE DISPLAY *
  10.        *    A MESSAGE ENTERED BY THE OPERATOR.           *
  11.        *                                                 *
  12.        ***************************************************
  13.        *
  14.        *
  15.         ENVIROMENT DIVISION.
  16.        *
  17.        *
  18.         DATA DIVISION.
  19.        *
  20.        *
  21.        ****************************************************
  22.        *                                                  *
  23.         WORKING-STORAGE SECTION.
  24.        *                                                  *
  25.        ****************************************************
  26.        *
  27.        *
  28.         01  W005-MESSAGE-FIELD             PIC X(32).
  29.        *
  30.        *
  31.         PROCEDURE DIVISION.
  32.        *
  33.         DISPLAY-ACCEPTED-MESSAGE.
  34.            ACCEPT W005-MESSAGE-FIELD.
  35.            DISPLAY W005-MESSAGE-FIELD.
  36.            STOP RUN.
  37.  
  38.  
  39.  
  40.  
  41.