Example of ACCEPT and DISPLAY
PROGRAM
IDENTIFICATION DIVISION.
PROGRAM-ID. PGM001.
AUTHOR. MAINFRAMEWIZARD. DATA DIVISION. WORKING-STORAGE SECTION.01 VAR1 PIC 9(3) VALUE ZEROES.
PROCEDURE DIVISION.
10000-MAIN-PARA.
ACCEPT VAR1.
DISPLAY ‘VARIABLE INPUT IS=’ VAR1.
STOP RUN.