IDENTIFICATION DIVISION.
PROGRAM-ID. ASK-NAME.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 USER-NAME PIC A(20).
PROCEDURE DIVISION.
DISPLAY "What is your name?" *> Question
ACCEPT USER-NAME *> Read input
DISPLAY "Hello, " USER-NAME "!" *> Answer
STOP RUN.
*> run:
*>
*> What is your name?
*> Avi
*> Hello, Avi
*>