Exchange/SNA Manual

Send/Receive Program Example
Example Programs
E–2 104700 Tandem Computers Incorporated
Page 2 [1] $RJE.EXCHAPPL.EXAPPL 1991-06-04 13:36:52
EXCHANGE/SNA PROGRAMMATIC EXAMPLE
55. 000252 0 0 LITERAL set^send^params = 42, ! set SEND params !
56. 000252 0 0 set^recv^params = 43, ! set RECV params !
57. 000252 0 0
58. 000252 0 0 ! --- SETMODE 42 SEND params --- !
59. 000252 0 0 comp^all^tr^on = %b000, ! COMPRESS ALL, TRANSLATE ON !
60. 000252 0 0 comp^all^tr^off = %b001, ! COMPRESS ALL, TRANSLATE OFF !
61. 000252 0 0 comp^blk^tr^on = %b010, ! COMPRESS BLANKS, TRANSLATE ON !
62. 000252 0 0 comp^blk^tr^off = %b011, ! COMPRESS BLANKS, TRANSLATE OFF !
63. 000252 0 0 comp^trl^tr^on = %b100, ! COMPRESS TRAILING, TRANSLATE ON !
64. 000252 0 0 comp^trl^tr^off = %b101, ! COMPRESS TRAILING, TRANSLATE OFF !
65. 000252 0 0 comp^non^tr^on = %b110, ! COMPRESS NONE, TRANSLATE ON !
66. 000252 0 0 comp^non^tr^off = %b111, ! COMPRESS NONE, TRANSLATE OFF !
67. 000252 0 0
68. 000252 0 0 ! --- SETMODE 43 RECEIVE params --- !
69. 000252 0 0 exc^off^tr^on = %b000, ! ESC ignored, TRANSLATE ON !
70. 000252 0 0 exc^off^tr^off = %b001, ! ESC ignored, TRANSLATE OFF !
71. 000252 0 0 esc^on^tr^on = %b100, ! ESC interpreted, TRANSLATE ON !
72. 000252 0 0 esc^on^tr^off = %b101; ! ESC interpreted, TRANSLATE OFF !
73. 000252 0 0
74. 000252 0 0 LITERAL forms^control = 1, ! CONTROL operations !
75. 000252 0 0 send^eof = 2,
76. 000252 0 0 disconnect^line = 19;
77. 000252 0 0
78. 000252 0 0 LITERAL set^lines^page = 5,
79. 000252 0 0 set^line^spacing = 6, ! set single or no space !
80. 000252 0 0
81. 000252 0 0 lines^66 = 0, ! setmode 5 params !
82. 000252 0 0 lines^60 = 1,
83. 000252 0 0
84. 000252 0 0 no^space = 0, ! setmode 6 params !
85. 000252 0 0 single^space = 1;
86. 000252 0 0
87. 000252 0 0 DEFINE nonprintable^replacement = " "#; ! replace with blank !