Exchange/RJE Manual

Send/Receive Program Example
Example Programs
D–18 104698 Tandem Computers Incorporated
Page 19 [1] $RJE.EXCHAPPL.RJEPROG 1991-06-17 11:05:47
MAIN PROCEDURE
848. 000453 1 1
849. 000453 1 1 ! Delete line server process !
850. 000453 1 1 CALL SETMODE (server^fnum
851. 000453 1 1 , function^44
852. 000453 1 1 , delete^after^close
853. 000453 1 1 , null);
854. 000462 1 1 IF <>
855. 000462 1 1 THEN
856. 000463 1 1 BEGIN
857. 000463 1 2 CALL FILEINFO (server^fnum, error); ! use -1 if open fails !
858. 000474 1 2 sbuffer ':=' ["SETMODE 44 FAILED -- ERROR: "] -> @sp;
859. 000505 1 2 write^count := @sp '-' @sbuffer;
860. 000511 1 2 CALL NUMOUT (sbuffer[write^count-3], error, 10, 3);
861. 000521 1 2 CALL end^it^all (ibuffer, write^count, server^fnum);
862. 000527 1 2 end^loop := 1;
863. 000531 1 2 RETURN;
864. 000534 1 2 END;
865. 000534 1 1
866. 000534 1 1 CALL CLOSE (server^fnum);
867. 000541 1 1
868. 000541 1 1 CALL CLOSE (term^fnum);
869. 000546 1 1
870. 000546 1 1 CALL CLOSE (recv^fnum);
871. 000553 1 1
872. 000553 1 1 END;
Page 20 [1] $RJE.EXCHAPPL.RJEPROG 1991-06-17 11:05:47
BINDER AND COMPILER STATISTICS
BINDER - OBJECT FILE BINDER - T9621C20 - (31DEC90) SYSTEM \SNAX
Copyright Tandem Computers Incorporated 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990
Object file $RJE.EXCHAPPL.OBJECT
TIMESTAMP 1991-06-17 11:05:47
3 Code pages
22 Primary data words
286 Secondary data words
2 Data pages
0 Resident code pages
0 Extended data pages
308 Top of stack location in words
1 Code segment
0 Binder Warnings
0 Binder Errors
TAL - Transaction Application Language - T9250C30 - (01DEC90)
Number of compiler errors = 0
Number of unsuppressed compiler warnings = 0
Number of warnings suppressed by NOWARN = 0
Maximum symbol table space used was = 26198 bytes
Number of source lines = 3621
Compile cpu time = 00:00:05
Total Elapsed time = 00:00:33