Exchange/RJE Manual

User-Exit Procedure
Example Programs
D–30 104698 Tandem Computers Incorporated
Page 10 [1] $RJE.JOSHI.UESRC 1991-06-13 13:25:30
SUBPROC ANALYZE^MODEM^RESPONSE
422. 005476 2 4 response^status := 0;
423. 005500 2 4 END;
424. 005500 2 3 "I" ->
425. 005501 2 3 BEGIN
426. 005501 2 4 response^status := MODEM^BAD^ANSWER^TONE^ERR;
427. 005504 2 4 stbuf ':=' "INVALID ANSWER TONE DETECTED" -> @t ;
428. 005515 2 4 write^log;
429. 005547 2 4 END;
430. 005547 2 3 OTHERWISE ->
431. 005550 2 3 BEGIN
432. 005550 2 4 response^status := MODEM^BAD^REPLY^ERR;
433. 005553 2 4 stbuf ':=' " -- DATA RECEIVED ="
434. 005553 2 4 &cp.cp^data.data[1] FOR cp.cp^rsp.txtin-2 ->@t;
435. 005573 2 4 CALL WRITE(out^file^num,tbuf,@t'-'@stbuf) ;
436. 005605 2 4 stbuf ':=' "****** INVALID PROGRESS MESSAGE RECEIVED" -> @t ;
437. 005616 2 4 write^log;
438. 005650 2 4 END ;
439. 005650 2 3 END ; ! OF CASE CP.CP^DATA.DATA[1]
440. 005706 2 2
441. 005706 2 2 END ; ! OF SUBPROC ANALYZE^MODEM^RESPONSE
442. 006076 1 1
443. 006076 1 1