COBOL Manual for TNS and TNS/R Programs

Terminal Input and Output
HP COBOL Manual for TNS and TNS/R Programs—522555-006
29-5
Using a Terminal as a File
Example 29-2. Using a Terminal as a File
IDENTIFICATION DIVISION.
PROGRAM-ID. TERMINAL-READ-WRITE.
AUTHOR. BO COBOL.
DATE-WRITTEN. 29 FEBRUARY 1984.
DATE-COMPILED.
*************************************************************
* This program illustrates the use of a terminal as a *
* file *
*************************************************************
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. HP TXP.
OBJECT-COMPUTER. HP TXP.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT A-TERM
ASSIGN TO "$TRM053"
ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD A-TERM
RECORD CONTAINS 1 TO 79 CHARACTERS
LABEL RECORDS ARE OMITTED.
* Using 80 characters causes a blank line after
* the WRITE
01 A-TEXT-RECORD PICTURE X(79).
PROCEDURE DIVISION.
A.
* Open the terminal as a file, excluding other users.
OPEN I-O A-TERM EXCLUSIVE.
B.
* Read one 79-character record. If a CTRL/Y was entered,
* quit.
READ A-TERM
AT END GO TO HIT-EOF.
* Insert response.
MOVE "So what?" TO A-TEXT-RECORD.
* Deliver response.
WRITE A-TEXT-RECORD.
* Loop.
GO TO B.
HIT-EOF.
STOP RUN.