Exchange/RJE Manual

User-Exit Procedure
Example Programs
D–22 104698 Tandem Computers Incorporated
User-Exit Procedure
Example
This example procedure contains a skeleton user-exit procedure.
Page 1 [1] $RJE.JOSHI.UESRC 1991-06-13 13:25:30
TAL - T9250C30 - (01DEC90)
Copyright Tandem Computers Incorporated 1976, 1978, 1981-83, 1985, 1987-90
1. 000000 0 0 ?NOCODE,NOICODE,NOMAP,NOLMAP *
2. 000000 0 0 ?PEP = 50,INSPECT,SYMBOLS
3. 000000 0 0 !
4. 000000 0 0 !*****************************************************************************!
5. 000000 0 0 ! !
6. 000000 0 0 ! EXCHANGE/RJE USER EXIT ROUTINE EXAMPLE DATE 05/15/91!
7. 000000 0 0 ! !
8. 000000 0 0 ! THIS EXAMPLE USER EXIT ROUTINE PERFORMS THE DIALING FUNCTION AND ESTABLISHES!
9. 000000 0 0 ! CONNECTION OVER A SWITCHED DATA COMMUNICATIONS LINE USING AN AUTO-DIALING !
10. 000000 0 0 ! MODEM. THIS EXAMPLE USES CP6100 AS THE UNDERLYING IOP AND SUPPORTS A UDS !
11. 000000 0 0 ! 208 B/D AUTO DIALING MODEM. !
12. 000000 0 0 ! !
13. 000000 0 0 ! NOTES: !
14. 000000 0 0 ! 1. THE EXCHANGE/RJE LINE SERVER SETS THE LINE CONFIGURATION PARAMETERS !
15. 000000 0 0 ! BEFORE INVOKING THE USER EXIT ROUTINE. !
16. 000000 0 0 ! !
17. 000000 0 0 ! 2. ERRORS RETURNED BY THE USER EXIT ROUTINE ARE DIVIDED INTO TWO GROUPS!
18. 000000 0 0 ! ERRORS IN THE RANGE 350 THRU 449 ARE NON-RETRYABLE AND ERRORS IN THE!
19. 000000 0 0 ! RANGE 450-510 ARE RETRYABLE. FOR RETRYABLE ERRORS, THE EXCHANGE/RJE !
20. 000000 0 0 ! COMMAND INTERPRETER WILL RETRY THE CONNECT OPERATION A MAXIMUM OF !
21. 000000 0 0 ! FIVE TIMES, WITH A DELAY OF 10 SECONDS BETWEEN TWO RETRIES. !
22. 000000 0 0 !*****************************************************************************!
23. 000000 0 0 ?NOLIST
31. 000000 0 0
32. 000000 0 0 LITERAL TRUE = -1 ,
33. 000000 0 0 FALSE = 0 ,
34. 000000 0 0 ! BSC CONTROL CHARACTERS !
35. 000000 0 0 STX = 02 , ! START OF TEXT
36. 000000 0 0 ETX = 03 , ! END OF TEXT
37. 000000 0 0 EOT = 04 , ! END OF TRANSMISSION
38. 000000 0 0 ETB = %H17 , ! END OF TRANSMISSION BLOCK
39. 000000 0 0
40. 000000 0 0 MAX^DIGITS = 32, ! LARGEST ALLOWABLE PHONE NUMBER THE MODEM CAN TAKE
41. 000000 0 0
42. 000000 0 0
43. 000000 0 0 FUNC^W = 64 , ! CP6100 WRITE FUNCTION
44. 000000 0 0 FUNC^R = 65 , ! CP6100 READ FUNCTION
45. 000000 0 0 FUNC^WR = 66 , ! CP6100 WRITEREAD FUNCTION
46. 000000 0 0 FUNC^CTL= 67 , ! CP6100 CONTROL FUNCTION
47. 000000 0 0
48. 000000 0 0 MAX^WAIT = 3000D , ! WAIT THIRTY SECONDS ON AWAITIO CALLS
49. 000000 0 0
50. 000000 0 0 ! ERRORS RETURNED BY THE USER EXIT ROUTINE
51. 000000 0 0
52. 000000 0 0 !1. ERRORS RETURNED BY AUTO DIAL MODEM!
53. 000000 0 0
54. 000000 0 0 MODEM^PH^NBR^ERR = 350,
55. 000000 0 0 MODEM^NO^DIAL^TONE^ERR = 351,
56. 000000 0 0 MODEM^BUSY^LINE^ERR = 450,
57. 000000 0 0 MODEM^REORDER^TONE^ERR = 352,
58. 000000 0 0 MODEM^QUIT^TIMEOUT^ERR = 353,
59. 000000 0 0 MODEM^BAD^ANSWER^TONE^ERR = 354,
60. 000000 0 0 MODEM^BAD^REPLY^ERR = 355,