Exchange/RJE Manual

Send/Receive Program Example
Example Programs
104698 Tandem Computers Incorporated D–3
Page 3 [1] $RJE.EXCHAPPL.RJEPROG 1991-06-17 11:05:47
GLOBAL DECLARATIONS
90. 000325 0 0 ! Standard Startup Message STRUCT !
91. 000325 0 0
92. 000325 0 0 STRUCT .startmsg;
93. 000325 0 0 BEGIN
94. 000325 0 1 INT msg^code;
95. 000325 0 1
96. 000325 0 1 STRUCT default;
97. 000325 0 1 BEGIN
98. 000325 0 2 INT volume[0:3],
99. 000325 0 2 subvol[0:3];
100. 000325 0 2 END;
101. 000325 0 1
102. 000325 0 1 STRUCT infile;
103. 000325 0 1 BEGIN
104. 000325 0 2 INT volume[0:3],
105. 000325 0 2 subvol[0:3],
106. 000325 0 2 dname[0:3];
107. 000325 0 2 END;
108. 000325 0 1
109. 000325 0 1 STRUCT outfile;
110. 000325 0 1 BEGIN
111. 000325 0 2 INT volume[0:3],
112. 000325 0 2 subvol[0:3],
113. 000325 0 2 dname[0:3];
114. 000325 0 2 END;
115. 000325 0 1
116. 000325 0 1 STRUCT params;
117. 000325 0 1 BEGIN
118. 000325 0 2 STRING bytes[0:79];
119. 000325 0 2 END;
120. 000325 0 1
121. 000325 0 1 END;
122. 000436 0 0
123. 000436 0 0 ! end of global declarations !
124. 000436 0 0
125. 000436 0 0 ?NOLIST
130. 000000 0 0