Article 129403 of comp.os.vms:
Path: nntpd.lkg.dec.com!crl.dec.com!crl.dec.com!bloom-beacon.mit.edu!news.moneng.mei.com!news.ecn.bgu.edu!newspump.wustl.edu!gumby!newsxfer.itd.umich.edu!newsfeed.internetmci.com!news.sprintlink.net!wanda.pond.com!usenet
From: "Joseph B. Gill" <gilljb@gmis.com>
Newsgroups: comp.os.vms
Subject: Re: Simple pager-dialer software for VMS?
Date: 15 Sep 1995 13:32:56 GMT
Organization: GMIS, Inc.
Lines: 50
Message-ID: <43bva8$8ke@wanda.pond.com>
References: <43b5so$71h@newsbf02.news.aol.com>
NNTP-Posting-Host: trout.pond.com
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
X-Mailer: Mozilla 1.2N (Windows; I; 16bit)
To: barryaz@aol.com

barryaz@aol.com (BarryAZ) wrote:
>I'm looking for a simple, cheap piece of software that 
>will let me dial a pager and send it a short string of digits, 
>from within a batch job on VMS.  Any ideas?

I use KERMIT (its free).  I wrote some DCL command procedures that
check queues, disk space, etc.  and then have KERMIT connect to
a modem on our terminal server and dial my pager.  It works like
a champ!

FYI - 

     o  If your going to set up some type of System Watchdog
        procedure, run it as a detached process.  This way your
        procedure will work if something happens to the queue.

Here's the KERMIT script file I use;

\COMMENT GMIS_SWD_PAGER.SCR
COMMENT Commands to dial a Numeric Pager
DEFINE \%p T        ; Dialing prefix - my modem requires the T as in ATDT 
DEFINE \%n 5551212,,  ; Number of the pager
DEFINE \%m HAYES      ; Modem type
DEFINE \%l LTA1:      ; Serial line comment 
ECHO 
ECHO Executing Kermit Numeric page script, PAGER.SCR on \v(day), \v(date) 
at \v( time). 
ECHO
ECHO Number of pager:   \%p\%n 
ECHO Modem type:             \%m
ECHO Serial line:          \%l
ECHO
ECHO Configuring the line and mode ... SET MODEM \%M
SET LINE \%L
SET SPEED 19200
:Redial
ECHO 
ECHO Configure dialing ...
ECHO
SET DIAL DISPLAY ON
SET DIAL SPEED-MATCHING OFF
ECHO Dialing ...
ECHO
PAUSE 1
DIAL \%p\%n\$(GMIS_SWD_PAGER_EVENT)
IF FAILURE EXIT
HANGUP
EXIT




