IDENTIFICATION DIVISION.
PROGRAM-ID. AcceptAndDisplay.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 UserName PIC X(15).
PROCEDURE DIVISION.
Begin.
DISPLAY "Enter UserName:"
ACCEPT UserName.
DISPLAY "UserName = ", UserName.
STOP RUN.
# run:
#
# Enter UserName:
# UserName = mainframe
#