WRITE A PROGRAM DISPLAYS ON THE CONSOLE DISPLAY A MESSAGE ENTERED BY THE USER.
IDENTIFICATION DIVISION. PROGRAM-ID. PROG401. ENVIRONMENT DIVISION. DATA DIVISION. 01 W005-MESSAGE-FIELD PIC X(32). PROCEDURE DIVISION. DISPLAY-ACCEPTED-MESSAGE. ACCEPT W005-MESSAGE-FIELD. DISPLAY W005-MESSAGE-FIELD. STOP RUN.