Exchange/RJE Manual

User-Exit Procedure
Example Programs
104698 Tandem Computers Incorporated D–33
Page 13 [1] $RJE.JOSHI.UESRC 1991-06-13 13:25:30
PROC USER^EXIT^MODEM^SUPPORT: PROCEDURE BODY
559. 006615 1 1 cp.cp^req.func := FUNC^W ; ! CP6100 WRITE REQUEST
560. 006621 1 1 cp.cp^req.modf := 0 ; ! DOES NOT MATTER
561. 006626 1 1 reqid := reqid '+' 1 ;
562. 006631 1 1 cp.cp^req.reqid := reqid ;
563. 006634 1 1 cp.cp^req.txtin := 0 ; ! MAX BYTES IN
564. 006637 1 1 cp.cp^data.data ':=' [STX] & phone^number FOR phone^number^len & [ETB] ;
565. 006663 1 1 cp.cp^req.txtout := phone^number^len + 2 ; ! HOW MUCH WE ARE SHIPPING
566. 006671 1 1
567. 006671 1 1 CALL WRITEREAD(line^fnum,buf,($LEN(cp^template.cp^hdr) + cp.cp^req.txtout) ,
568. 006671 1 1 $LEN(cp^template.cp^hdr),count ) ;
569. 006705 1 1 IF <>
570. 006705 1 1 THEN
571. 006706 1 1 BEGIN
572. 006706 1 2 stbuf ':='
573. 006706 1 2 " **** WRITE (PH#) ERROR: " & sxlinename FOR linenamelen -> @t;
574. 006722 1 2 write^file^mgt^err;
575. 007000 1 2 RETURN WRITE^LINE^ERR;
576. 007004 1 2 END ;
577. 007004 1 1
578. 007004 1 1 CALL AWAITIO(line^fnum,,count,,max^wait) ;
579. 007015 1 1 IF <>
580. 007015 1 1 THEN
581. 007016 1 1 BEGIN
582. 007016 1 2 stbuf ':='
583. 007016 1 2 " **** AWAITIO (PH#) ERROR: " & sxlinename FOR linenamelen -> @t;
584. 007032 1 2 write^file^mgt^err;
585. 007110 1 2 RETURN WRITE^LINE^ERR;
586. 007113 1 2 END ;
587. 007113 1 1
588. 007113 1 1
589. 007113 1 1
590. 007113 1 1 IF cp.cp^rsp.status
591. 007113 1 1 THEN ! CP6100 ERROR ?
592. 007120 1 1 BEGIN
593. 007120 1 2 CALL log^cp^status ;
594. 007121 1 2 CALL disconnect^line ;
595. 007122 1 2 RETURN CP6100^ERR^WRITE;
596. 007125 1 2 END ;
597. 007125 1 1
598. 007125 1 1 ! NOW THAT THE MODEM HAS THE PHONE NUMBER TO DIAL TELL IT THAT IS ALL
599. 007125 1 1 ! BY SENDING AN EOT. THIS IS ACCOMPLISHED BY DOING A READ AFTER ONE
600. 007125 1 1 ! OR MORE WRITES. THE READ WILL COMPLETE LATER WHEN THE MODEM SENDS ITS
601. 007125 1 1 ! STATUS MESSAGE. IF THE WAIT ON THE MODEM MESSAGE TIMES OUT LOOP
602. 007125 1 1 ! AROUND AND POST ANOTHER READ.
603. 007125 1 1
604. 007125 1 1 !**********************************************************************
605. 007125 1 1 !
606. 007125 1 1 ! DIALOUT CP6100 MODEM
607. 007125 1 1 ! ------------- -------------- -------------
608. 007125 1 1 !
609. 007125 1 1 ! CP6100 READ ---->
610. 007125 1 1 ! TO SEND EOT
611. 007125 1 1 ! AND WAIT FOR
612. 007125 1 1 ! MESSAGE
613. 007125 1 1 ! SEND EOT --------->
614. 007125 1 1 ! MODEM DIALS PHONE #
615. 007125 1 1 ! [..........................................]