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-9
$RECEIVE
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).
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.
...
Example 31-3. Server Code (page 2 of 2)