COBOL Manual for TNS/E Programs (H06.08+, J06.03+)

Figure 12 ACCEPT Statement Collecting Alphanumeric Data
Example 74 ACCEPT Statement Reading Numeric Data
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. HP System.
OBJECT-COMPUTER. HP System.
SPECIAL-NAMES.
FILE "#TERM" IS USER-TERMINAL.
...
WORKING-STORAGE SECTION.
01 PROGRAM-CODE PICTURE 999V99.
...
PROCEDURE DIVISION.
DEMO.
PERFORM UNTIL PROGRAM-CODE = 0
DISPLAY "ENTER RUN CODE" UPON USER-TERMINAL
ACCEPT PROGRAM-CODE FROM USER-TERMINAL
DISPLAY "CODE RECEIVED: "
PROGRAM-CODE UPON USER-TERMINAL
END-PERFORM
...
Figure 13 shows run-time interactions at the home terminal (#TERM). The user’s responses to the
ACCEPT statement’s prompts are in bold font.
ACCEPT 281