Logo 
Search:

Cobol Articles

Submit Article
Home » Articles » Cobol » Homework HelpRSS Feeds

PROGRAM DISPLAYS ON THE PRINTER A MESSAGE ENTERED BY THE USER

Posted By: Adelheide Fischer     Category: Cobol     Views: 2393

WRITE A PROGRAM DISPLAYS ON THE PRINTER A MESSAGE ENTERED BY THE OPERATOR. THE MESSAGE IS INITIALLY ENTERED INTO ONE WHICH IS THEN MOVED TO ANOTHER FIELD BEFORE BEING PRINTED ON THE PRINTER.

Code for PROGRAM DISPLAYS ON THE PRINTER A MESSAGE ENTERED BY THE USER in Cobol

       IDENTIFICATION DIVISION.
      *
       PROGRAM-ID. PROG404.
      *
      ***************************************************
      *                                                 *
      * 1. DATE-WRITTEN. 08/01/90.                      *
      *                                                 *
      * 2. THIS PROGRAM DISPLAYS ON THE PRINTER         *
      *    A MESSAGE ENTERED BY THE OPERATOR.           *
      *                                                 *
      * 3. THE MESSAGE IS INITIALLY ENTERED INTO ONE    *
      *    WHICH IS THEN MOVED TO ANOTHER FIELD BEFORE  *
      *    BEING PRINTED ON THE PRINTER.                *
      *                                                 *
      ***************************************************
      *
      *
       ENVIRONMENT DIVISION.
      *
       CONFIGURATION SECTION.
      *
       SPECIAL-NAMES.
      *
           PRINTER IS PRINTER-DISPLAY.
      *
      *
       DATA DIVISION.
      *
      *
      ****************************************************
      *                                                  *
       WORKING-STORAGE SECTION.
      *                                                  *
      ****************************************************
      *
      *
       01  W005-ACCEPT-MESSAGE-FIELD             PIC X(32).
      *
       01  W005-DISPLAY-MESSAGE-FIELD            PIC X(32).
      *
      *
       PROCEDURE DIVISION.
      *
       DISPLAY-ACCEPTED-MESSAGE.
           DISPLAY "PROGRAM PROG404:  PRINT DISPLAY OUTPUT:"
                                      UPON PRINTER-DISPLAY. 
           ACCEPT W005-ACCEPT-MESSAGE-FIELD.
           MOVE   W005-ACCEPT-MESSAGE-FIELD
                              TO W005-DISPLAY-MESSAGE-FIELD.
           DISPLAY W005-DISPLAY-MESSAGE-FIELD 
                                       UPON PRINTER-DISPLAY.
           STOP RUN.
  
Share: 



Adelheide Fischer
Adelheide Fischer author of PROGRAM DISPLAYS ON THE PRINTER A MESSAGE ENTERED BY THE USER is from Frankfurt, Germany.
 
View All Articles

 
Please enter your Comment

  • Comment should be atleast 30 Characters.
  • Please put code inside [Code] your code [/Code].

 
No Comment Found, Be the First to post comment!