Exchange/SNA Manual

Send/Receive Program Example
Example Programs
104700 Tandem Computers Incorporated E–3
Page 3 [1] $RJE.EXCHAPPL.EXAPPL 1991-06-04 13:36:52
EXCHANGE/SNA PROGRAMMATIC EXAMPLE
89. 000252 0 0 ! Standard Startup Message STRUCT !
90. 000252 0 0
91. 000252 0 0 STRUCT .startmsg;
92. 000252 0 0 BEGIN
93. 000252 0 1 INT msg^code;
94. 000252 0 1
95. 000252 0 1 STRUCT default;
96. 000252 0 1 BEGIN
97. 000252 0 2 INT volume[0:3],
98. 000252 0 2 subvol[0:3];
99. 000252 0 2 END;
100. 000252 0 1
101. 000252 0 1 STRUCT infile;
102. 000252 0 1 BEGIN
103. 000252 0 2 INT volume[0:3],
104. 000252 0 2 subvol[0:3],
105. 000252 0 2 dname[0:3];
106. 000252 0 2 END;
107. 000252 0 1
108. 000252 0 1 STRUCT outfile;
109. 000252 0 1 BEGIN
110. 000252 0 2 INT volume[0:3],
111. 000252 0 2 subvol[0:3],
112. 000252 0 2 dname[0:3];
113. 000252 0 2 END;
114. 000252 0 1
115. 000252 0 1 STRUCT params;
116. 000252 0 1 BEGIN
117. 000252 0 2 STRING bytes[0:79];
118. 000252 0 2 END;
119. 000252 0 1
120. 000252 0 1 END;
121. 000363 0 0
122. 000363 0 0 ! end of global declarations !
123. 000363 0 0 ?NOLIST
128. 000000 0 0 !SOURCE $system.system.extdecs0( CLOSE, CONTROL, DEBUG, FILEINFO,
129. 000000 0 0 ! FNAMEEXPAND, MYTERM, NUMOUT, OPEN, READ, SETMODE, STOP,
130. 000000 0 0 ! WRITE, WRITEREAD)