Exchange/RJE Manual

User-Exit Procedure
Example Programs
D–36 104698 Tandem Computers Incorporated
Page 16 [1] $RJE.JOSHI.UESRC 1991-06-13 13:25:30
PROC USER^EXIT^MODEM^SUPPORT: PROCEDURE BODY
730. 007471 1 5 THEN ! NO DATA
731. 007474 1 5 BEGIN
732. 007474 1 6 stbuf ':=' " -- NO DATA RECEIVED ON READ" -> @t ;
733. 007505 1 6 CALL WRITE(out^file^num,tbuf,@t '-' @stbuf) ;
734. 007517 1 6 END
735. 007517 1 5 ELSE ! GOT DATA IN
736. 007520 1 5 CALL analyze^modem^response;
737. 007521 1 5 END; ! CP.CP^RSP.STATUS = 0
738. 007521 1 4 END ; ! OF OTHERWISE CLAUSE
739. 007521 1 3 END ; ! CASE CP.CP^RSP.STATUS OF
740. 007544 1 2 END
741. 007544 1 1 UNTIL finished = TRUE ;
742. 007547 1 1
743. 007547 1 1 IF response^status
744. 007547 1 1 THEN ! GOT A BAD RESPONSE FROM THE MODEM??
745. 007551 1 1 CALL disconnect^line ; ! RESET THE LINE
746. 007552 1 1 CALL CLOSE(out^file^num);
747. 007557 1 1 RETURN response^status;
748. 007561 1 1 END ; !OF USER^EXIT^MODEM^SUPPORT
Page 17 [1] $RJE.JOSHI.UESRC 1991-06-13 13:25:30
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.JOSHI.userlib
TIMESTAMP 1991-06-13 13:25:30
5 Code pages
1 Data page
0 Resident code pages
0 Extended data pages
0 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 = 24514 bytes
Number of source lines = 6835
Compile cpu time = 00:00:06
Total Elapsed time = 00:00:26