Exchange/RJE Manual

Send/Receive Program Example
Example Programs
D–2 104698 Tandem Computers Incorporated
Page 2 [1] $RJE.EXCHAPPL.RJEPROG 1991-06-17 11:05:47
GLOBAL DECLARATIONS
55. 000325 0 0
56. 000325 0 0 ! --- SETMODE 41 parameter 1 --- !
57. 000325 0 0 primary = %b1000, ! <12>
58. 000325 0 0 secondary = %b0100, ! <13>
59. 000325 0 0 type^3780 = %b0001, ! <15> 3780 if bit = 1
60. 000325 0 0 type^2780 = %b0000, ! <15> 2780 if bit = 0
61. 000325 0 0
62. 000325 0 0 ! --- SETMODE 41 parameter 2 --- !
63. 000325 0 0 no^acu = 0, ! <15> no ACU if bit = 0
64. 000325 0 0 use^acu = 1, ! <15> ACU if bit = 1
65. 000325 0 0
66. 000325 0 0 ! --- SETMODE 42 parameters --- !
67. 000325 0 0 trans = %b1000, ! <12> transparent if bit = 1
68. 000325 0 0 notrans = %b0000, ! <12> notransparent if bit = 0
69. 000325 0 0 trunc = %b0100, ! <13> truncate if bit = 1
70. 000325 0 0 notrunc = %b0000, ! <13> notruncate if bit = 0
71. 000325 0 0 compress = %b0010, ! <14> compress if bit = 1
72. 000325 0 0 nocompress = %b0000, ! <14> nocompress if bit = 0
73. 000325 0 0 binary = %b0001, ! <15> binary if bit = 1
74. 000325 0 0 nobinary = %b0000, ! <15> nobinary if bit = 0
75. 000325 0 0 null = 0,
76. 000325 0 0
77. 000325 0 0 ! --- SETMODE 43 parameters --- !
78. 000325 0 0 raw^data = %b0010, ! <14> rawdata records if bit = 1
79. 000325 0 0 normal^data = %b0000, ! <14> normal data records if bit = 0
80. 000325 0 0 no^translate = %b0001, ! <15> not translated to ASCII if = 1
81. 000325 0 0 translate = %b0000, ! <15> translated to ASCII if = 0
82. 000325 0 0
83. 000325 0 0 ! --- SETMODE 44 parameters --- !
84. 000325 0 0 keep^after^close = 0,
85. 000325 0 0 delete^after^close = 1;
86. 000325 0 0
87. 000325 0 0 LITERAL send^EOF = 2, ! CONTROL operations !
88. 000325 0 0 disconnect^line = 19;