Exchange/RJE Manual

Send/Receive Program Example
Example Programs
D–8 104698 Tandem Computers Incorporated
Page 9 [1] $RJE.EXCHAPPL.RJEPROG 1991-06-17 11:05:47
CREATE^LINE^SERVER
360. 001010 1 1 IF <>
361. 001010 1 1 THEN
362. 001011 1 1 BEGIN
363. 001011 1 2 CALL FILEINFO (server^fnum, error); ! use -1 if open fails !
364. 001022 1 2 sbuffer ':=' ["SETMODE 44 FAILED -- ERROR: "] -> @sp;
365. 001033 1 2 write^count := @sp '-' @sbuffer;
366. 001037 1 2 CALL NUMOUT (sbuffer[write^count-3], error, 10, 3);
367. 001047 1 2 CALL end^it^all (ibuffer, write^count, server^fnum);
368. 001055 1 2 end^loop := 1;
369. 001057 1 2 RETURN;
370. 001060 1 2 END;
371. 001060 1 1
372. 001060 1 1 ! close line server -- make it available to other openers !
373. 001060 1 1 CALL CLOSE (server^fnum);
374. 001065 1 1 IF <>
375. 001065 1 1 THEN
376. 001066 1 1 BEGIN
377. 001066 1 2 CALL FILEINFO (server^fnum, error); ! use -1 if open fails !
378. 001077 1 2 sbuffer ':=' ["CLOSE ATTEMPT FAILED -- ERROR: "] -> @sp;
379. 001110 1 2 write^count := @sp '-' @sbuffer;
380. 001114 1 2 CALL NUMOUT (sbuffer[write^count-3], error, 10, 3);
381. 001124 1 2 CALL end^it^all (ibuffer, write^count, server^fnum);
382. 001132 1 2 end^loop := 1;
383. 001134 1 2 RETURN;
384. 001135 1 2 END;
385. 001135 1 1
386. 001135 1 1 sbuffer ':=' ["LINE SERVER CREATED OK"] -> @sp;
387. 001146 1 1 write^count := @sp '-' @sbuffer;
388. 001152 1 1 CALL WRITE (term^fnum, ibuffer, write^count);
389. 001162 1 1 RETURN;
390. 001163 1 1 END; ! end create^line^server !