| Hello,
I donot know what is your requirement to have modem connection out of a
VAXStation. But I hope the following may be of interest to you.
We have successfully set up an AUTOPAGER service at APNOC (Asia Pacific
Network Operations Center) in Singapore.
The AUTOPAGER service is based on the paging company's (Singapore
Telecom) capability to accept tone digits and display them on the
pager. With the AUTOPAGER, whenever DECMCC Alarm rules fire, we will
have our pager beeped with a unique display code (00007001). This will
alert the duty Analyst to take appropriate actions.
To implement AUTOPAGER, we have made use of Modem Software (available
for internal use only at UFP::MODEM$KIT:MODEM043.A). The Modem software
provides a capability to write script files and you can have an
initialization file to state what Modem software should be do during
initialization.
The modem (AT compatible) is connected to one of the Async port of the
VAX Station. A Modem Initialization file and a script file is written.
A VT220 terminal is connected to another Async port of the VAX Station
which acts a display monitor for AUTOPAGER.
In our environment, the modem is connected to TTA2: and the terminal is
connected to TTA3: Async ports.
The Modem Script file is : (DECMCC$AUTOPAGER.SCR)
SET SPEED 2400
SET PARITY NONE
LET TIME = F$TIME()
TYPE "AUTOPAGER : Started at ",TIME
SEND "^B"
GET/TIME=5/ERR=DIAL "Ready"
DIAL :
DIAL "9,3096516,,,,*00007001***,***"/ERROR=FAIL
FAIL :
EXIT
The Modem Initialization file is : (MODEMINI.DAT)
HELP=N
AUTO_DIAL=Y
DEVICE=TTA2:
DIALER_TYPE=AT
SPEED=2400
XON=N
DEFAULT=N
BITS=8N
COMMAND=DECMCC$COM:DECMCC$AUTOPAGER.SCR
LOG=DECMCC$LOGS:AUTOPAGER.LOGFILE
The command procedure invoking the Modem script is :
(DECMCC$AUTOPAGER.COM)
$ SET NOVERIFY
$!+
$!
$! Procedure : DECMCC$AUTOPAGER.COM
$! Purpose : To provide AUTOPAGING service whenever any circuit outage
$! is detected by DECMCC
$! Called by : DECMCC$ALARMS:CIRCUIT_DOWN_UP.COM
$! Written by : S. Venkata Narayanan
$! Written on : 5th November, 1993
$! Modified :
$!
$!-
$
$!+
$! Initialization
$!-
$
$ MODEM_PORT = "TTA2:"
$ TERMINAL_PORT = "TTA3:"
$!+
$! Set Terminal characteristics if the port is FREE otherwise wait for sometime
$!-
$
$ CHECK_PORT :
$
$ PORT_PID=F$GETDVI(MODEM_PORT,"PID")
$
$ IF PORT_PID .NES. ""
$ THEN WAIT 00:00:30
$ GOTO CHECK_PORT
$ ENDIF
$
$ SET PROCESS/PRIV=ALL
$ SET TERMINAL -
'MODEM_PORT'/MODEM/EIGHTBIT/DIALUP/DISCONNECT/HOSTSYNC/NOBROAD/PERM
$
$ ALLOCATE 'MODEM_PORT'
$ ALLOCATE 'TERMINAL_PORT'
$
$ DEFINE/USER SYS$OUTPUT 'TERMINAL_PORT'
$ TYPE SYS$INPUT
................................................................................
$
$ DEFINE/USER SYS$OUTPUT 'TERMINAL_PORT'
$ MODEM/INIT=DECMCC$COM:MODEMINI.DAT
$ DEFINE/USER SYS$OUTPUT 'TERMINAL_PORT'
$ TYPE SYS$INPUT
................................................................................
$ DEALLOCATE 'TERMINAL_PORT'
$ DEALLOCATE 'MODEM_PORT'
$ EXIT $STATUS
$
--------------------------------------------------------------------------
The terminal port which is connected to the Modem should have MODEM
characteristic ($SET TERM/MODEM/PERM). Also the Modem software
supports LAT devices. Look the User guide for more details.
Thanks and Regards,
Venkat,
APNOC - Singapore.
|