Exchange/RJE Manual

User-Exit Procedure
Example Programs
D–34 104698 Tandem Computers Incorporated
Page 14 [1] $RJE.JOSHI.UESRC 1991-06-13 13:25:30
PROC USER^EXIT^MODEM^SUPPORT: PROCEDURE BODY
616. 007125 1 1 ! [ <---- IF TIMEOUT RETURN ]
617. 007125 1 1 ! [IF READ WITH CP6100 READ ]
618. 007125 1 1 ! [TIMEOUT, POST (ERROR 171) ]
619. 007125 1 1 ! [ANOTHER READ] ----> ]
620. 007125 1 1 ! [..........................................]
621. 007125 1 1 !
622. 007125 1 1 ! . \
623. 007125 1 1 ! . > SOME PERIOD OF TIME WHILE DIALING
624. 007125 1 1 ! . /
625. 007125 1 1 !
626. 007125 1 1 ! <--------- MODEM BIDS LINE (ENQ)
627. 007125 1 1 !
628. 007125 1 1 ! SEND ACK0 --------->
629. 007125 1 1 !
630. 007125 1 1 ! <--------- MODEM SENDS STATUS
631. 007125 1 1 !
632. 007125 1 1 ! <----- REPLY TO READ
633. 007125 1 1 !
634. 007125 1 1 ! CP6100 READ
635. 007125 1 1 ! COMPLETED CHECK
636. 007125 1 1 ! FOR STATUS
637. 007125 1 1 !
638. 007125 1 1 ! CP6100 READ FOR ------->
639. 007125 1 1 ! NEXT MESSAGE
640. 007125 1 1 !
641. 007125 1 1 ! SEND ACK1 --------->
642. 007125 1 1 !
643. 007125 1 1 ! <--------- MODEM SENDS EOT
644. 007125 1 1 !
645. 007125 1 1 !
646. 007125 1 1 ! <----- REPLY TO READ
647. 007125 1 1 !
648. 007125 1 1 !
649. 007125 1 1 ! CP6100 READ
650. 007125 1 1 ! COMPLETED CHECK
651. 007125 1 1 ! FOR STATUS
652. 007125 1 1 !**********************************************************************
653. 007125 1 1
654. 007125 1 1
655. 007125 1 1 finished := FALSE ;
656. 007127 1 1 msg^count := 0 ;
657. 007131 1 1 response^status := 0 ;
658. 007133 1 1
659. 007133 1 1 DO ! LOOP UNTIL GOOD STATUS OR ERROR
660. 007133 1 1 BEGIN
661. 007133 1 2
662. 007133 1 2 ! BUILD THE CP6100 READ FUNCTION (INITIALLY TO SEND EOT AND
663. 007133 1 2 ! SUBSEQUENT READS GETS PROGRESS MESSAGES FROM THE MODEM.
664. 007133 1 2
665. 007133 1 2 cp.cp^req.func := FUNC^R ; ! CP6100 READ REQUEST
666. 007137 1 2 cp.cp^req.modf := 0 ; ! TURN LINE AROUND OR SEND ACK(0/1)
667. 007144 1 2 reqid := reqid '+' 1 ;
668. 007147 1 2 cp.cp^req.reqid := reqid ;
669. 007152 1 2 cp.cp^req.txtin := 10 ; ! MAX BYTES IN
670. 007155 1 2 cp.cp^req.txtout := 0 ; ! MAX BYTES OUT
671. 007160 1 2
672. 007160 1 2