Exchange/RJE Manual

User-Exit Procedure
Example Programs
D–32 104698 Tandem Computers Incorporated
Page 12 [1] $RJE.JOSHI.UESRC 1991-06-13 13:25:30
PROC USER^EXIT^MODEM^SUPPORT: PROCEDURE BODY
502. 006376 1 1 IF <>
503. 006376 1 1 THEN
504. 006377 1 1 BEGIN
505. 006377 1 2 stbuf ':='
506. 006377 1 2 " **** CONNECT CONTROL ERROR: " & sxlinename FOR linenamelen -> @t;
507. 006413 1 2 write^file^mgt^err;
508. 006471 1 2 RETURN CTRL^CONNECT^ERR;
509. 006474 1 2 END ;
510. 006474 1 1
511. 006474 1 1 CALL AWAITIO(line^fnum,,count,,max^wait) ;
512. 006505 1 1 IF <>
513. 006505 1 1 THEN
514. 006506 1 1 BEGIN
515. 006506 1 2 stbuf ':='
516. 006506 1 2 " **** CONNECT CONTROL AWAITIO " & sxlinename FOR linenamelen -> @t;
517. 006522 1 2 write^file^mgt^err;
518. 006600 1 2 RETURN CTRL^CONNECT^ERR;
519. 006603 1 2 END ;
520. 006603 1 1
521. 006603 1 1 IF cp.cp^rsp.status
522. 006603 1 1 THEN ! CP6100 ERROR ?
523. 006610 1 1 BEGIN
524. 006610 1 2 CALL log^cp^status ;
525. 006611 1 2 CALL disconnect^line ;
526. 006612 1 2 RETURN CP6100^ERR^CONNECT;
527. 006615 1 2 END ;
528. 006615 1 1
529. 006615 1 1 ! SINCE NO ID EXCHANGE,CP6100 WILL SEND THE ENQ AUTOMATICALLY
530. 006615 1 1 ! ON THE FIRST CP6100 WRITE REQUEST. CP6100 EXPECTS AN ACK0
531. 006615 1 1 ! TO ITS ENQ. THEN CP6100 WILL SEND THE DATA THAT WENT WITH
532. 006615 1 1 ! THIS CP6100 WRITE REQUEST AND WILL EXPECT AN ACK1 RESPONSE.
533. 006615 1 1 !
534. 006615 1 1 !**********************************************************************
535. 006615 1 1 !
536. 006615 1 1 ! DIALOUT CP6100 MODEM
537. 006615 1 1 ! ------------- -------------- -------------
538. 006615 1 1 !
539. 006615 1 1 ! CP6100 WRITE ---->
540. 006615 1 1 ! WITH PHONE #
541. 006615 1 1 ! SEND ENQ --------->
542. 006615 1 1 !
543. 006615 1 1 ! <--------- SEND ACK0
544. 006615 1 1 !
545. 006615 1 1 ! SEND PHONE# ------->
546. 006615 1 1 !
547. 006615 1 1 ! <--------- SEND ACK1
548. 006615 1 1 !
549. 006615 1 1 !
550. 006615 1 1 ! <----- REPLY TO WRITE
551. 006615 1 1 ! CP6100 WRITE
552. 006615 1 1 ! COMPLETED CHECK
553. 006615 1 1 ! FOR STATUS
554. 006615 1 1 !**********************************************************************
555. 006615 1 1
556. 006615 1 1
557. 006615 1 1 ! BUILD THE CP6100 WRITE FUNCTION WITH THE PHONE NUMBER.
558. 006615 1 1