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

Terminal Input and Output
HP COBOL Manual for TNS/E Programs—520347-003
29-7
Prompting the Terminal Operator for Input
Example 29-3. READ Statement With PROMPT Phrase
IDENTIFICATION DIVISION.
PROGRAM-ID. TERMINAL-READ-WRITE.
AUTHOR. FLO COBOL.
DATE-WRITTEN. 29 FEBRUARY 1984.
DATE-COMPILED.
*************************************************************
* This program illustrates the use of READ PROMPT *
* for a terminal 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).
WORKING-STORAGE SECTION.
01 TAUNT PIC X(17) VALUE "What do you want?".
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 WITH PROMPT TAUNT
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.