Exchange/RJE Manual

User-Exit Procedure
Example Programs
104698 Tandem Computers Incorporated D–23
Page 2 [1] $RJE.JOSHI.UESRC 1991-06-13 13:25:30
LITERALS
61. 000000 0 0
62. 000000 0 0 !2. OTHER ERRORS RETURNED BY USER EXIT ROUTINE!
63. 000000 0 0
64. 000000 0 0 FILE^OPEN^ERR = 356,
65. 000000 0 0 LINE^TYPE^ERR = 357,
66. 000000 0 0 CTRL^CONNECT^ERR = 358,
67. 000000 0 0 CP6100^ERR^CONNECT = 359,
68. 000000 0 0 WRITE^LINE^ERR = 360,
69. 000000 0 0 CP6100^ERR^WRITE = 361,
70. 000000 0 0 READ^LINE^ERR = 362,
71. 000000 0 0 TIMEOUT^LINE^ERR = 363;
72. 000000 0 0
Page 3 [1] $RJE.JOSHI.UESRC 1991-06-13 13:25:30
PROC USER^EXIT^MODEM^SUPPORT
74. 000000 0 0
75. 000000 0 0 INT PROC user^exit^modem^support (line^fnum,
76. 000000 1 0 phone^number ,
77. 000000 1 0 phone^number^len,
78. 000000 1 0 out^file^name);
79. 000000 1 0 INT line^fnum;
80. 000000 1 0 STRING .phone^number ;
81. 000000 1 0 INT phone^number^len;
82. 000000 1 0 INT .out^file^name;
83. 000000 1 0
84. 000000 1 0 BEGIN
85. 000000 1 1