COBOL Manual for TNS and TNS/R Programs

Process Initiation, Communication, and
Management
HP COBOL Manual for TNS and TNS/R Programs—522555-006
31-15
Example of Simple Interprocess Communication
Example 31-8. CATCHER Code
IDENTIFICATION DIVISION.
PROGRAM-ID. CATCHER.
AUTHOR. SANDY COBOL.
INSTALLATION. TRANSACTIONS ANONYMOUS.
DATE-WRITTEN. 29 FEBRUARY 1988.
DATE-COMPILED.
*********************************************************
* This program illustrates the receipt of messages from *
* another COBOL program, PITCHER. *
* *
* This program must be run as a process named $CATCH. *
* *
* Records received are displayed on this program's home *
* terminal. *
*********************************************************
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. HP TXP.
OBJECT-COMPUTER. HP TXP.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT PRINT-LINES-IN
ASSIGN TO "$RECEIVE"
ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS SEQUENTIAL
FILE STATUS IS PRINT-STATUS.
DATA DIVISION.
FILE SECTION.
FD PRINT-LINES-IN
LABEL RECORDS ARE OMITTED.
01 LINE-IN PICTURE X(80).
WORKING-STORAGE SECTION.
01 PRINT-STATUS PICTURE X(2).
88 SENDER-DISAPPEARED VALUE "10".
PROCEDURE DIVISION.
A.
OPEN INPUT PRINT-LINES-IN.
PERFORM TRANSPUT THROUGH END-TRANS
UNTIL SENDER-DISAPPEARED.
STOP RUN.
TRANSPUT.
READ PRINT-LINES-IN
AT END GO TO END-TRANS.
DISPLAY LINE-IN.
END-TRANS.
EXIT.