COBOL Manual for TNS and TNS/R Programs

Terminal Input and Output
HP COBOL Manual for TNS and TNS/R Programs—522555-006
29-3
Guardian Environment
Example 29-1. ACCEPT and DISPLAY Statements With a Terminal
IDENTIFICATION DIVISION.
PROGRAM-ID. TERMINAL-ACCEPT-DISPLAY.
AUTHOR. MO COBOL.
DATE-WRITTEN. 29 FEBRUARY 1984.
DATE-COMPILED.
******************************************************
* This program illustrates ACCEPT and DISPLAY with *
* and without mnemonic names. *
******************************************************
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. HP TXP.
OBJECT-COMPUTER. HP TXP.
SPECIAL-NAMES.
FILE "$TRM053" IS OUT-THERE.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 A-TEXT-LINE PICTURE X(30).
PROCEDURE DIVISION.
A.
* Deliver a value to the default terminal (the OUT file)
DISPLAY "Who's there?".
* Get a line from the default terminal (the IN file)
ACCEPT A-TEXT-LINE.
* Deliver the entered-line from the default terminal to
* OUT-THERE
DISPLAY A-TEXT-LINE " is at the default terminal."
UPON OUT-THERE.
* Deliver a value to a specific terminal
DISPLAY "Who's there?" UPON OUT-THERE.
* Get a line from a specific terminal
ACCEPT A-TEXT-LINE FROM OUT-THERE.
* Deliver the entered-line from OUT-THERE
DISPLAY A-TEXT-LINE " is at terminal $TRM053".
STOP RUN.