Login:
Votes - 0, Average rating: 0 ( )

User manual HP, model HP NonStop G-Series

Manafacture: HP
File size: 216.03 kb
File name:
Language of manual:itenesfrnn
Free link for this manual available at the bottom of the page



Other manuals for this model:

manual abstract


Example Programs
User-Exit Procedure
Page 6 [1] $RJE.JOSHI.UESRC 1991-06-13 13:25:30
SUBPROC LOG^CP^STATUS
197. 000775 2 4 7 -> stbuf ':=' "DETAIL 7: INVALID LINE CODE " -> @t ;
198. 001007 2 4 8 -> stbuf ':=' "DETAIL 8: INVALID STATION TYPE " -> @t ;
199. 001021 2 4 9 -> stbuf ':=' "DETAIL 9: INVALID ID EXCHANGE " -> @t ;
200. 001033 2 4 10 -> stbuf ':=' "DETAIL 10: INVALID PROTOCOL " -> @t ;
201. 001045 2 4 11 -> stbuf ':=' "DETAIL 11: INVALID SYNC COUNT " -> @t ;
202. 001061 2 4 13 -> stbuf ':=' "DETAIL 13: INVALID READ TIMEOUT " -> @t ;
203. 001074 2 4 14 -> stbuf ':=' "DETAIL 14: INVALID RETRY COUNT " -> @t ;
204. 001106 2 4 15 -> stbuf ':=' "DETAIL 15: INVALID BLOCK LENGTH " -> @t ;
205. 001120 2 4 16 -> stbuf ':=' "DETAIL 16: INVALID BCC TYPE " -> @t ;
206. 001132 2 4 17 -> stbuf ':=' "DETAIL 17: INVALID USER XLATE TABLE " -> @t ;
207. 001144 2 4 128 -> stbuf ':=' "DETAIL128: INVALID FUNCTION " -> @t ;
208. 001156 2 4 129 -> stbuf ':=' "DETAIL129: INVALID MODIFIER " -> @t ;
209. 001170 2 4 130 -> stbuf ':=' "DETAIL130: INVALID TEXTOUT FIELD " -> @t ;
210. 001202 2 4 131 -> stbuf ':=' "DETAIL131: INVALID TEXTIN FIELD " -> @t ;
211. 001214 2 4 135 -> stbuf ':=' "DETAIL135: TEXTOUT > 4096 " -> @t ;
212. 001226 2 4 136 -> stbuf ':=' "DETAIL136: TEXTIN > 4096 " -> @t ;
213. 001240 2 4 137 -> stbuf ':=' "DETAIL137: TEXTOUT ON WRITE = 0 " -> @t ;
214. 001252 2 4 138 -> stbuf ':=' "DETAIL138: TEXTIN ON READ = 0 " -> @t ;
215. 001264 2 4 139 -> stbuf ':=' "DETAIL139: TEXTIN ON WRITE <> 0 " -> @t ;
216. 001276 2 4 OTHERWISE ->
217. 001277 2 4 BEGIN
218. 001277 2 5 stbuf ':=' "INVALID CP^RSP.ST^DETAIL =" -> @t ;
219. 001310 2 5 CALL NUMOUT(t,cp.cp^rsp.status^detail,10,3) ;
220. 001317 2 5 @t := @t '+' 3 ;
221. 001322 2 5 END ;
222. 001322 2 4 END ; ! CASE OF CP.CP^RSP.STATUS^DETAIL
223. 001551 2 3 CALL WRITE(out^file^num,tbuf,@t'-'@stbuf) ;
224. 001563 2 3 END ! CP.CP^RSP.STATUS^DETAIL = 22
225. 001563 2 2 ELSE ! CP.CP^RSP.STATUS^DETAIL <> 22
226. 001564 2 2 BEGIN
227. 001564 2 3 IF cp.cp^rsp.status^detail < 25 AND
228. 001564 2 3 cp.cp^rsp.status^detail >= 0
229. 001564 2 3 THEN
230. 001573 2 3 BEGIN
231. 001573 2 4 CASE CP.CP^RSP.STATUS^DETAIL OF
232. 001576 2 4 BEGIN
233. 001576 2 5 0 -> stbuf ':=' "DETAIL 0: NO ADDITIONAL INFO " -> @t ;
234. 001607 2 5 1 -> stbuf ':=' "DETAIL 1: LINE NOT CONFIGURED " -> @t ;
235. 001621 2 5 2 -> stbuf ':=' "DETAIL 2: NO USER XLATE TABLE " -> @t ;
236. 001633 2 5 3 -> stbuf ':=' "DETAIL 3: LINE BUSY " -> @t ;
237. 003436 2 5 4 -> stbuf ':=' "DETAIL 4: NO REQUEST ACTIVE " -> @t ;
238. 003450 2 5 5 -> stbuf ':=' "DETAIL 5: TRACE IS ACTIVE " -> @t ;
239. 003462 2 5 16 -> stbuf ':=' "DETAIL 16: CONNECT TIMEOUT " -> @t ;
240. 003474 2 5 17 -> stbuf ':=' "DETAIL 17: DISCONNECT TIMEOUT " -> @t ;
241. 003506 2 5 18 -> stbuf ':=' "DETAIL 18: ENQ IN RESPONSE TO TXT" -> @t ;
242. 003520 2 5 19 -> stbuf ':=' "DETAIL 19: TIMEOUT WAITING ON BID" -> @t ;
243. 003532 2 5 20 -> stbuf ':=' "DETAIL 20: CONSECUTIVE RVI ACKS " -> @t ;
244. 003544 2 5 21 -> stbuf ':=' "DETAIL 21: CONSECUTIVE CONV RPLYS" -> @t ;
245. 003556 2 5 22 -> stbuf ':=' "DETAIL 22: ENQ RESPONSE TO BID " -> @t ;
246. 003570 2 5 23 -> stbuf ':=' "DETAIL 23: ENQ RETRY ABORT ON BID" -> @t ;
247. 003602 2 5 24 -> stbuf ':=' "DETAIL 24: RVI READ INITIAL " -> @t ;
248. 003614 2 5 OTHERWISE ->
249. 003615 2 5 BEGIN
250. 003615 2 6 stbuf ':=' "INVALID CP^RSP.ST^DETAIL =" -> @t ;
251. 003626 2 6 CALL NUMOUT(t,cp.cp^rsp.status^detail,10,3) ;
252. 003637 2 6 @t := @t '+' 3 ;
253. 003642 2 6 END ;
D–26
104698 Tandem Computers Incorporated


...

Other models in this manual:
Desktops - HP NonStop L-Series (216.03 kb)

Reviews



Your review
Your name:
Please, enter two numbers from picture:
capcha





Category