Exchange/RJE Manual

Send/Receive Program Example
Example Programs
104698 Tandem Computers Incorporated D–15
Page 16 [1] $RJE.EXCHAPPL.RJEPROG 1991-06-17 11:05:47
RECEIVE TEST
695. 000467 1 3 THEN
696. 000472 1 3 BEGIN
697. 000472 1 4 retry^count := retry^count + 1;
698. 000474 1 4 IF retry^count > 5
699. 000474 1 4 THEN
700. 000477 1 4 BEGIN
701. 000477 1 5 sbuffer ':=' ["TIMEOUT ERROR: "] ->@sp;
702. 000510 1 5 write^count := @sp '-' @sbuffer;
703. 000514 1 5 CALL NUMOUT (sbuffer[write^count-3], error, 10, 3);
704. 000524 1 5 CALL end^it^all (ibuffer, write^count, server^fnum);
705. 000532 1 5 end^loop := 1;
706. 000534 1 5 RETURN end^loop;
707. 000536 1 5 END;
708. 000536 1 4 END;
709. 000536 1 3 END;
710. 000536 1 2 records := records + 1;
711. 000540 1 2 CALL WRITE (term^fnum, ibuffer, count^read);
712. 000550 1 2 IF <>
713. 000550 1 2 THEN
714. 000551 1 2 BEGIN
715. 000551 1 3 CALL FILEINFO (term^fnum, error);
716. 000562 1 3 CALL DEBUG;
717. 000563 1 3 END;
718. 000563 1 2 END UNTIL error = 1; ! until EOF !
719. 000566 1 1
720. 000566 1 1 sbuffer ':=' ["RECEIVE TEST COMPLETED OK"] -> @sp;
721. 000577 1 1 write^count := @sp '-' @sbuffer;
722. 000603 1 1 CALL WRITE (term^fnum, ibuffer, write^count);
723. 000613 1 1 IF <>
724. 000613 1 1 THEN
725. 000614 1 1 BEGIN
726. 000614 1 2 CALL FILEINFO (server^fnum, error);
727. 000625 1 2 CALL DEBUG;
728. 000626 1 2 END;
729. 000626 1 1
730. 000626 1 1 RETURN end^loop;
731. 000630 1 1
732. 000630 1 1 END;