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

Process Initiation, Communication, and
Management
HP COBOL Manual for TNS/E Programs—520347-003
31-7
$RECEIVE
$RECEIVE as Input-Output File
In this case, $RECEIVE is opened in I-O mode to receive requests and reply to them
through the same file. Each request is acted upon and paired with a reply message
sent back in response to the task.
The requesting process follows the outline in Example 31-3.
PROCEDURE DIVISION.
...
OPEN INPUT TASKS-IN.
OPEN OUTPUT RESPONSE-OUT
ERROR-MSG.
...
READ-A-TASK.
READ TASKS-IN
AT END CLOSE TASKS-IN
OPEN INPUT TASKS-IN
GO TO READ-A-TASK.
IF TCODE = 1
PERFORM ...
IF WS-BALANCE > 0
MOVE WS-BALANCE TO BALANCE
WRITE BALANCE
ELSE
MOVE WS-ERR-CODE TO ERROR-CODE
MOVE MESSAGE(WS-ERR-CODE) TO ERR-MSG
WRITE ERROR-ON-TASK.
...
Figure 31-3. $RECEIVE as Input/Output File
Example 31-3. Requester Code (page 1 of 2)
...
SELECT TRANSACTIONS ASSIGN TO "$BAL"
ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS SEQUENTIAL.
...
Example 31-2. Server Code (page 2 of 2)
Requester Server
Task Message
Reply Message
VST711.vsd