Exchange/SNA Manual

Console Program Example
Example Programs
E–14 104700 Tandem Computers Incorporated
Page 3 [1] $RJE.EXCHAPPL.CONSRC 1991-05-29 13:38:20
EXCHANGE/SNA CONSOLE APPLICATION EXAMPLE
101. 000165 0 0 ! MISC DECLARATIONS !
102. 000165 0 0
103. 000165 0 0 INT cr := %006400,
104. 000165 0 0 end^loop := 0,
105. 000165 0 0 error := 0,
106. 000165 0 0 fnum := -1,
107. 000165 0 0 await^count := 0,
108. 000165 0 0 length := 0;
109. 000165 0 0
110. 000165 0 0 LITERAL true = -1;
111. 000165 0 0
112. 000165 0 0 LITERAL auto^line^feed = 7, ! SETMODE to set auto line feed
113. 000165 0 0 lfterm = 0,
114. 000165 0 0 lfsys = 1;
115. 000165 0 0
116. 000165 0 0
117. 000165 0 0 ! STANDARD STARTUP MESSAGE STRUCT !
118. 000165 0 0
119. 000165 0 0 STRUCT .startmsg;
120. 000165 0 0 BEGIN
121. 000165 0 1 INT msg^code;
122. 000165 0 1
123. 000165 0 1 STRUCT default;
124. 000165 0 1 BEGIN
125. 000165 0 2 INT volume[0:3],
126. 000165 0 2 subvol[0:3];
127. 000165 0 2 END;
128. 000165 0 1
129. 000165 0 1 STRUCT infile;
130. 000165 0 1 BEGIN
131. 000165 0 2 INT volume[0:3],
132. 000165 0 2 subvol[0:3],
133. 000165 0 2 dname[0:3];
134. 000165 0 2 END;
135. 000165 0 1
136. 000165 0 1 STRUCT outfile;
137. 000165 0 1 BEGIN
138. 000165 0 2 INT volume[0:3],
139. 000165 0 2 subvol[0:3],
140. 000165 0 2 dname[0:3];
141. 000165 0 2 END;
142. 000165 0 1
143. 000165 0 1 STRUCT params;
144. 000165 0 1 BEGIN
145. 000165 0 2 STRING bytes[0:79];
146. 000165 0 2 END;
147. 000165 0 1
148. 000165 0 1 END;
149. 000276 0 0
150. 000276 0 0 ! END OF GLOBAL DECLARATIONS !
151. 000276 0 0
152. 000276 0 0 !SOURCE $system.system.extdecs0(
153. 000276 0 0 ! AWAITIO, CANCEL, CLOSE, DEBUG, FILEINFO, FNAMEEXPAND, MYTERM,
160. 000276 0 0 ! NUMOUT, OPEN, READ, SETMODE, SHIFTSTRING, STOP, WRITE, WRITEREAD)
168. 000276 0 0
169. 000276 0 0 ?NOLIST
188. 000000 0 0