GDSX (Extended General Device Support) Manual

Using Pseudo Procedures in a TS/MP Environment
Extended General Device Support (GDSX) Manual—529931-001
D-26
USAMPLE2 Listing
193. !===========================================================================
194. SubProc Call^Pathsend;
195. !===========================================================================
196. !
197. Begin
198. If PROC^NOWAIT Then Begin
199. If S^Term^Buf[0] = ["W"] Then Begin
200. -- we do a nowaited ^SERVERCLASS_SEND_ to the write server
201. Ferr := ^Serverclass_Send_ (Spm^Name,
202. Pm^Name^Len,
203. Ssc^Name^W,
204. Sc^Name^Len^W,
205. S^Rcv^Buf,
206. 62,
207. 62,
208. ,
209. ,
210. 1,
211. Sc^Op^Num);
212. End
213. Else Begin
214. -- we do a nowaited ^SERVERCLASS_SEND_ to the delete server
215. Ferr := ^Serverclass_Send_ (Spm^Name,
216. Pm^Name^Len,
217. Ssc^Name^D,
218. Sc^Name^Len^D,
219. S^Rcv^Buf,
220. 62,
221. 62,
222. ,
223. ,
224. 1,
225. Sc^Op^Num);
226. End;
227.
228. If Not Ferr Then Begin
229. -- wait for the completion of the ^SERVERCLASS_SEND_
230. Call ^AwaitioX (Sc^Op^Num, @Rcv^Buf, Replied^Len,, -1D);
231. If <> Then
232. -- set the error (error handling is done in the calling procedure)
233. Call ^Fileinfo (Sc^Op^Num, Ferr);
234. End;
235. End
236. Else Begin
237. If S^Term^Buf[0] = ["W"] Then Begin
238. -- we do a waited ^SERVERCLASS_SEND_ to the write server
239. Ferr := ^Serverclass_Send_ (Spm^Name,
240. Pm^Name^Len,
241. Ssc^Name^W,
242. Sc^Name^Len^W,
243. S^RCV^Buf,
244. 62,
245. 62,
246. Replied^Len);
247. End
248. Else Begin
249. -- we do a waited ^SERVERCLASS_SEND_ to the delete server
250. Ferr := ^Serverclass_Send_ (Spm^Name,
251. Pm^Name^Len,
252. Ssc^Name^D,
253. Sc^Name^Len^D,
254. S^RCV^Buf,
255. 62,
256. 62,
257. Replied^Len);
258. End;
259. End;
261. End;
265. !===========================================================================
266. ! DEVICE^HANDLER Procedure begins here
267. !===========================================================================
268. ! Find out our own DCB- and TCB-address