Exchange/RJE Manual

User-Exit Procedure
Example Programs
104698 Tandem Computers Incorporated D–25
Page 5 [1] $RJE.JOSHI.UESRC 1991-06-13 13:25:30
SUBPROC LOG^CP^STATUS
140. 000000 1 1 !*****************************************************************************!
141. 000000 1 1 ! THIS SUBPROC WRITES THE ERROR MESSAGES TO THE OUT FILE WHEN THE STATUS !
142. 000000 1 1 ! FIELD IN THE CP6100 RESPONSE HEADER IS POSITIVE. !
143. 000000 1 1 ! !
144. 000000 1 1 !*****************************************************************************!
145. 000000 1 1 SUBPROC log^cp^status ;
146. 000000 2 1 BEGIN
147. 000000 2 2 IF cp.cp^rsp.status
148. 000000 2 2 THEN
149. 000005 2 2 BEGIN
150. 000005 2 3 CASE cp.cp^rsp.status OF
151. 000012 2 3 BEGIN
152. 000012 2 4 22 -> stbuf ':=' "22 INVALID PARAMETER " -> @t ;
153. 000023 2 4 122 -> stbuf ':=' "122 REQUEST ABORTED " -> @t ;
154. 000035 2 4 140 -> stbuf ':=' "140 MODEM ERROR " -> @t ;
155. 000047 2 4 160 -> stbuf ':=' "160 REQUEST INVLAID FOR LINE STATE " -> @t ;
156. 000061 2 4 161 -> stbuf ':=' "161 IMPOSSIBLE EVENT FOR LINE STATE" -> @t ;
157. 000073 2 4 162 -> stbuf ':=' "162 OPERATION TIMED OUT " -> @t ;
158. 000105 2 4 163 -> stbuf ':=' "163 EOT RECEIVED " -> @t ;
159. 000117 2 4 164 -> stbuf ':=' "164 DISCONNECT RECEIVED " -> @t ;
160. 000131 2 4 165 -> stbuf ':=' "165 RVI RECEIVED " -> @t ;
161. 000143 2 4 166 -> stbuf ':=' "166 ENQ RECEIVED ON LINE BID " -> @t ;
162. 000155 2 4 167 -> stbuf ':=' "167 EOT RECEIVED ON LINE BID " -> @t ;
163. 000167 2 4 168 -> stbuf ':=' "168 NAK RECEIVED ON LINE BID " -> @t ;
164. 000203 2 4 169 -> stbuf ':=' "169 WACK RECEIVED ON LINE BID " -> @t ;
165. 000216 2 4 170 -> stbuf ':=' "170 TRANSMISSION ERROR " -> @t ;
166. 000230 2 4 171 -> stbuf ':=' "171 NO RESPONSE TO LINE BID " -> @t ;
167. 000242 2 4 172 -> stbuf ':=' "172 REPLY NOT PROPER FOR PROTOCOL " -> @t ;
168. 000254 2 4 173 -> stbuf ':=' "172 TRANSMISSION ERROR " -> @t ;
169. 000266 2 4 175 -> stbuf ':=' "175 INCORRECT ALTERNATING ACK " -> @t ;
170. 000300 2 4 177 -> stbuf ':=' "177 TEXT OVERRUN " -> @t ;
171. 000312 2 4 190 -> stbuf ':=' "190 CLIP SOFTWARE ERROR " -> @t ;
172. 000324 2 4 OTHERWISE ->
173. 000325 2 4 BEGIN
174. 000325 2 5 stbuf ':=' "invalid cp^rsp.status =" -> @t ;
175. 000336 2 5 CALL NUMOUT(t,cp.cp^rsp.status,10,3) ;
176. 000347 2 5 @t := @t '+' 3 ;
177. 000352 2 5 END ;
178. 000352 2 4 END; ! CASE CP.CP^RSP.STATUS OF
179. 000635 2 3
180. 000635 2 3 CALL WRITE(out^file^num,tbuf,0) ;
181. 000645 2 3 CALL WRITE(out^file^num,tbuf,@t'-'@stbuf) ;
182. 000657 2 3 END ; ! CP.CP^RSP.STATUS POSITIVE
183. 000657 2 2
184. 000657 2 2
185. 000657 2 2 IF cp.cp^rsp.status = 22
186. 000657 2 2 THEN ! INVALID REQUEST PARAMETER
187. 000665 2 2 BEGIN
188. 000665 2 3 CASE cp.cp^rsp.status^detail OF
189. 000670 2 3 BEGIN
190. 000670 2 4 0 -> stbuf ':=' "DETAIL 0: NO ADDITIONAL INFO " -> @t ;
191. 000701 2 4 1 -> stbuf ':=' "DETAIL 1: INVALID LINE TYPE " -> @t ;
192. 000713 2 4 2 -> stbuf ':=' "DETAIL 2: INVALID CONNECTION TYPE " -> @t ;
193. 000725 2 4 3 -> stbuf ':=' "DETAIL 3: INVALID CLOCKING " -> @t ;
194. 000737 2 4 4 -> stbuf ':=' "DETAIL 4: INVALID BAUD RATE " -> @t ;
195. 000751 2 4 5 -> stbuf ':=' "DETAIL 5: INVALID CONNECT TIMEOUT " -> @t ;
196. 000763 2 4 6 -> stbuf ':=' "DETAIL 6: INVALID DICONNECT TIMEOUT " -> @t ;