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-11
$RECEIVE
The server process receives the account number and transaction code from
$RECEIVE and sends a response back to the requester, as Example 31-5 shows.
PROCEDURE DIVISION.
...
OPEN I-O TRANSACTIONS SYNCDEPTH 1.
...
MOVE TCODE TO TRAN-CODE.
MOVE ACCOUNT-IN TO ACCOUNT-NUMBER.
READ TRANSACTIONS WITH PROMPT TRAN-REQUEST.
...
Example 31-5. Server Code (page 1 of 2)
INPUT-OUTPUT SECTION.
FILE-CONTROL.
...
SELECT TASKS-IN ASSIGN TO "$RECEIVE"
ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS SEQUENTIAL.
...
RECEIVE-CONTROL.
TABLE OCCURS 20 TIMES
SYNCDEPTH LIMIT IS 1
REPLY CONTAINS 8 CHARACTERS.
...
DATA DIVISION.
...
FD TASKS-IN
LABEL RECORDS ARE OMITTED
RECORD CONTAINS 1 TO 8 CHARACTERS.
01 TRAN-REQUEST.
05 TRAN-CODE PICTURE 9.
88 TRAN-PMT VALUE IS 1.
...
05 ACCOUNT-NUMBER PICTURE 9(6).
...
01 TRAN-RESPONSE.
05 RESULT-CODE PICTURE 9.
88 RESULT-OK VALUE IS 1.
88 RESULT-ERROR VALUE IS 2.
...
05 NEW-BALANCE PICTURE 9(7).
...
Example 31-4. Requester Code (page 2 of 2)