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-14
Example of Simple Interprocess Communication
Example 31-7. PITCHER Code
IDENTIFICATION DIVISION.
PROGRAM-ID. PITCHER.
AUTHOR. JO COBOL.
INSTALLATION. TRANSACTIONS ANONYMOUS.
DATE-WRITTEN. 29 FEBRUARY 1988.
DATE-COMPILED.
*************************************************************
* This program illustrates the transmission of messages to *
* another COBOL program, CATCHER, whose process name is *
* $CATCH. *
* *
* Records entered at this process's home terminal are sent *
* $CATCH. *
*************************************************************
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. HP TXP.
OBJECT-COMPUTER. HP TXP.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT REPORT-OUT
ASSIGN TO "$CATCH"
ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD REPORT-OUT
LABEL RECORDS ARE OMITTED.
01 REPORT-LINE.
05 REPORT-END PICTURE X(3).
88 LAST-LINE-ARRIVED VALUE "END".
05 REPORT-REST PICTURE X(77).
PROCEDURE DIVISION.
A.
OPEN I-O REPORT-OUT.
PERFORM TRANSPUT UNTIL LAST-LINE-ARRIVED.
STOP RUN.
TRANSPUT.
ACCEPT REPORT-LINE.
WRITE REPORT-LINE.