User input/Text: Difference between revisions

Content added Content deleted

Inline

@@ Line 496: / Line 496: @@
            PROGRAM-ID. USER INPUT.
        DATA DIVISION.
-THREE DIGIT NUMBER PICTURE IS 9(3).
+HUNDRED CHAR STRING PICTURE IS X(100).
+FIVE DIGIT NUMBER PICTURE IS 9(5).
        PROCEDURE DIVISION.
-           DISPLAY "Enter a number: " WITH NO ADVANCING
+           DISPLAY "Enter a string of appropriate length: " WITH NO ADVANCING
-           ACCEPT ThreeDigit Number.
+           ACCEPT HundredChar String.
+           DISPLAY "Enter a number (preferably 75000): " WITH NO ADVANCING
+           ACCEPT FiveDigit Number.
 </syntaxhighlight>