Exchange/RJE Manual

Send/Receive Program Example
Example Programs
D–12 104698 Tandem Computers Incorporated
Page 13 [1] $RJE.EXCHAPPL.RJEPROG 1991-06-17 11:05:47
SEND TEST
563. 000731 1 2 CALL end^it^all (ibuffer, write^count, server^fnum);
564. 000737 1 2 end^loop := 1;
565. 000741 1 2 RETURN end^loop;
566. 000743 1 2 END;
567. 000743 1 1 sbuffer ':=' ["SEND TEST COMPLETED OK"] -> @sp;
568. 000754 1 1 write^count := @sp '-' @sbuffer;
569. 000760 1 1 CALL WRITE (term^fnum, ibuffer, write^count);
570. 000770 1 1 IF <>
571. 000770 1 1 THEN
572. 000771 1 1 BEGIN
573. 000771 1 2 CALL FILEINFO (server^fnum, error);
574. 001002 1 2 CALL DEBUG;
575. 001003 1 2 END;
576. 001003 1 1
577. 001003 1 1 RETURN end^loop;
578. 001005 1 1
579. 001005 1 1 END;