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

Process Initiation, Communication, and
Management
HP COBOL Manual for TNS/E Programs—520347-003
31-6
$RECEIVE
PROCEDURE DIVISION.
...
OPEN I-O TRANSACTIONS SYNCDEPTH 2.
...
MOVE TASK-CODE TO TRAN-CODE.
MOVE ACCOUNT-IN TO TRAN-ACCOUNT-NUMBER.
READ TRANSACTIONS RECORD
WITH PROMPT TRAN-REQUEST
...
Example 31-2. Server Code (page 1 of 2)
...
SELECT TASKS-IN
ASSIGN TO "$RECEIVE"
ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS SEQUENTIAL.
SELECT RESPONSE-OUT
ASSIGN TO "$RECEIVE"
ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS SEQUENTIAL.
SELECT ERROR-MSG
ASSIGN TO "$RECEIVE"
ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS SEQUENTIAL.
RECEIVE-CONTROL.
TABLE OCCURS 20 TIMES
SYNCDEPTH LIMIT IS 2
REPLY CONTAINS 8 CHARACTERS.
...
DATA DIVISION.
FILE SECTION.
FD TASKS-IN
LABEL RECORDS ARE OMITTED
RECORD CONTAINS 7 CHARACTERS.
01 TASK.
05 TCODE PICTURE 9.
05 ACCOUNT PICTURE 9(6).
FD RESPONSE-OUT
LABEL RECORDS ARE OMITTED
RECORD CONTAINS 8 CHARACTERS.
01 BALANCE PICTURE 9(8).
FD ERROR-MSG
LABEL RECORDS ARE OMITTED
RECORD CONTAINS 8 CHARACTERS.
01 ERROR-ON-TASK.
05 ERROR-CODE PICTURE 9.
05 ERR-MSG PICTURE X(7).
Example 31-1. Requester Code (page 2 of 2)