COBOL Manual for TNS and TNS/R Programs

Procedure Division Verbs
HP COBOL Manual for TNS and TNS/R Programs—522555-006
9-5
ACCEPT With Mnemonic-Name
Figure 9-2 shows run-time interactions at the home terminal (#TERM). The user’s
responses to the ACCEPT statement’s prompts are in bold font.
Figure 9-1. ACCEPT Statement Collecting Alphanumeric Data
Example 9-3. 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
...
Enter heading (up to 60 characters).
?Certification of Karl Michael Weaver as
a? COBOL analyst
Certification of Karl Michael Weaver as
a COBOL analyst
1234567890123456789012345678901234567890
1 2 3 4
Column
Display
Display
Accept line 1
Accept line 2
VST526.vsd