User input/Text: Difference between revisions

* NB: whitespace insignificance and case insensitivity

* are used in the field name.

IDENTIFICATION DIVISION.

PROGRAM-ID. USER INPUT.

DATA DIVISION.

01 THREE DIGIT NUMBER PICTURE IS 9(3).

PROCEDURE DIVISION.

DISPLAY "Enter a number: " WITH NO ADVANCING

ACCEPT ThreeDigit Number.