$ on warning   then goto error_trap
$ on control_y then goto final_exit
$!
$!************************
$! Initialize
$!************************
$! NOTE: Delete the next 2 lines after you have configured this file.
$ write sys$output "****** You have not yet configured IUPOP3.COM! ******"
$ exit
$!
$ set process/privilege=(noall,tmpmbx,netmbx,sysprv,bypass,altpri)
$ set process/priority=4
$ set process/name="IUPOP3 Daemon"
$ set output=00:00:30
$!
$ pop_dir    := SYS$NOWHERE:[NOBODY.IUPOP3]
$ iupop3     := $'pop_dir'IUPOP3.EXE
$ node        = f$getsyi("NODENAME")
$ programmers = "SYSTEM,OPERATOR"
$!
$ define POP_XTND_LIST "''pop_dir'POP_XTND.DAT"
$!
$!************************
$! Start the Server
$!************************
$ iupop3
$ goto final_exit
$!
$!************************
$! Error Trap
$!************************
$ error_trap:
$ ss_status = $status
$ on warning then continue
$ error_message = f$message(ss_status)
$!
$ mail SYS$INPUT "''programmers'"/subject="''node' - ''error_message'"
The IUPOP3 server has experienced a runtime error.  The reason
for the error should appear on the subject line of this message.

Please investigate this problem as quickly as possible.  
Thank you.
$!
$!************************
$! Final Exit
$!************************
$ final_exit:
$ exit