FORTRAN Reference Manual

Interprocess Communication
FORTRAN Reference Manual—528615-001
14-13
Message Queuing
19 WRITE (6,33) records, rec
20 33 FORMAT (' R1',4I5, ' *',2I5)
21 GO TO 10
22
23 100 CONTINUE
24 CLOSE (UNIT=5)
25 CLOSE (UNIT=6)
26 STOP 'R1 STOPPING'
27 END
1 ?PAGE "REQUESTER NUMBER 2 FOR QUEUED SERVER"
2 ?LOGICAL*2
3 PROGRAM requester2
4 IMPLICIT INTEGER*2 (a-z)
5 CHARACTER*6 prompt
6 DIMENSION records(3)
7 DIMENSION rec(2)
8 DATA records /2,4,6/
9
10 WRITE (prompt,11) records
11 11 FORMAT (3A2)
12 OPEN (UNIT=5,SPACECONTROL='NO')
13 OPEN (UNIT=6)
14 WRITE (6,22)
15 22 FORMAT ('1R2 ABOUT TO MAKE FIRST REQUEST.')
16
17 10 CONTINUE
18 READ (5,END=100,PROMPT=prompt) rec
19 WRITE (6,33) records, rec
20 33 FORMAT (' R2',3I5, ' *',2I5)
21 GO TO 10
22
23 100 CONTINUE
24 CLOSE (UNIT=5)
25 CLOSE (UNIT=6)
26 STOP 'R2 STOPPING'
27 END 30
Example 14-1. Example Requesters R1 and R2 for Queued Server