Actually, there is a simple way to accomplish this without major programming or
$$.
I have attached a modem to a DTC port, setting the port to not accept logons.

Terminal type         [10]
Line speed         [9600 ]
Record width        [80  ]
Modem type             [0]

Modem behavior         [0]
Data length/Parity  [NONE]
Speed/Parity Sensing?  [N]
Reset HP terminal?     [N]
Hardware handshaking   [N]

 Allow :HELLO logon?  [N]
 NLIO device?         [N]

Also, set the port to refuse sessions using the REFUSE ldev# command.
(Remember to add this to the SYSSTART file)


Next, create a job that checks the system and pages with a pre-defined status
code.


!JOB PAGER,MANAGER.SYS;HIPRI;OUTCLASS=LP,1
!COMMENT Auto job runs at pre-determined times to
!COMMENT check system status and page system admin
!COMMENT 08/11/97 RAC
!COMMENT
!COMMENT
!FILE PAGER;DEV=171
!SETVAR STATUS "0"
!COMMENT check time and session limit
!IF HPSESLIMIT < 10
!  ECHO ATDT9,1<pager number>,,,,,,,,,959# >*PAGER
!  TELLOP;SYSTEM ADMINSTRATOR PAGED FOR ERROR CODE #959
!ENDIF
!COMMENT check if stdlists for any jobs that aborted
!SETVAR HPCIERR 0
!spoolf @;seleq=[jobabort=true];show
!IF HPCIERR <> -4809
!  ECHO ATDT9,<pager number>,,,,,,,,,4809# >*PAGER
!  TELLOP;SYSTEM ADMINSTRATOR PAGED FOR ERROR CODE #4809
!ENDIF
!COMMENT check if no access to new world
!IF FINFO("NOACCESS.FILES.WWA","EXISTS") THEN
!  ECHO ATDT9,<pager number>,,,,,,,,,6969# >*PAGER
!  TELLOP;SYSTEM ADMINSTRATOR PAGED FOR ERROR CODE #6969
!ENDIF
!IF HPHOUR = 12
!  STREAM PAGER;AT=06:20
!ELSEIF HPHOUR = 6
!  STREAM PAGER;AT=12:00
!ENDIF
!EOJ

Any questions, feel free to contact me...

Rick 'been a while but I'm back in the loop' Clark
Senior Analyst
WW&R
Cleveland, Ohio


Dwayne Stewart wrote:

> Has anyone ever written a program to have the HP3000 dial out to a pager in
> case of errors?