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-8
$RECEIVE
All files are assigned to $RECEIVE; however, when testing your system, you can
assign all files to disk files and then reassign them to $RECEIVE when testing is
completed.
Example 31-2. Requester Code
...
SELECT TRANSACTIONS ASSIGN TO "$BAL"
ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS SEQUENTIAL.
...
FD TRANSACTIONS
LABEL RECORDS ARE OMITTED
* Variable-length records
RECORD CONTAINS 1 TO 8 CHARACTERS.
01 BALANCE PICTURE 9(8).
01 ERROR-ON-TASK.
05 ERROR-CODE PICTURE 9.
05 ERR-MSG PICTURE X(7).
WORKING-STORAGE SECTION.
01 TRAN-REQUEST.
05 TRAN-CODE PICTURE 9.
05 TRAN-ACCOUNT-NUMBER PICTURE 9(6).
...
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-3. 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.