| $!
$! This procedure is expected to be in your LOGIN.COM
$! Revision history: 04/7/91 Ken Chernack, ACCESS Program Office
$! 11/3/89 Ron Aerni, CSL
$! 08/1/88 Meg Wheeler, CSL
$!
$!----------------------------------------------------------------------
$! See if the notes extract has run today. If the last revision date
$! and time is before midnight, it must not have run yet today so
$! submit the job if the we are running interactively.
$!----------------------------------------------------------------------
$ A = F$CVTIME (F$FILE_ATTRIBUTES ("NOTES_EXTRACT.COM", "RDT"))
$ B = F$CVTIME ("TODAY")
$!
$!----------------------------------------------------------------------
$! Maybe you won't want the /NOLOG on the SUBMIT, but I never look at
$! the log so why generate it AND print it. At least use /NOPRINT.
$!----------------------------------------------------------------------
$ IF A .LTS. B .AND. F$MODE () .EQS. "INTERACTIVE" THEN -
SUBMIT/NOLOG NOTES_EXTRACT.COM
|
| $! This file is expected to be in your default login directory with a name of
$! NOTES_EXTRACT.COM 12/13/90
$!
$! Replace nodename::username with your VMSmail address.
$! Replace xxxx with the name of the conference you want to read.
$!
$!----------------------------------------------------------------------
$! Daily notes extract based on a version written/modified by:
$! 04/02/91 KChernack/Cindy Gerace, improved error trapping
$! 12/10/90 Ken Chernack, made more global
$! 1/25/90 Ken Chernack, Sales IS
$! 11/3/89 Ron Aerni, Customer Services Logistics
$! 07/1/88 Meg Wheeler, Customer Services Logistics
$!
$! Extract the notes, mail the output to yourself and rename the
$! procedure so the revision date and time is updated.
$!----------------------------------------------------------------------
$!
$ ON ERROR THEN CONTINUE
$!
$! *** US_SALES_SERVICE conference ***
$!
$ NOTES
OPEN/NOAUTOMATIC US_SALES_SERVICE
SAVE/UNSEEN/SEEN/ALL US_SALES_SERVICE.NOTES 1-*
EXIT
$!
$!
$ IF F$SEARCH("US_SALES_SERVICE.NOTES") .GTS. ""
$ THEN
$ IF F$FILE_ATTRIBUTES ("US_SALES_SERVICE.NOTES", "EOF") .EQ. 0
$ THEN
$ MAIL NL: nodename::username/SUBJECT="NO NEW US_SALES_SERVICE NOTES"
$ ELSE
$ MAIL US_SALES_SERVICE.NOTES nodename::username/SUBJECT="NEW -
US_SALES_SERVICE NOTES"
$ ENDIF
$ DELETE/NOLOG US_SALES_SERVICES.NOTES;*
$ ELSE
$ MAIL NL: nodename::username/SUBJECT="US_SALES_SERVICE CONFERENCE -
INACCESSIBLE"
$ ENDIF
$!
$! (another example)
$! *** ACCESS conference ***
$!
$ NOTES
OPEN/NOAUTOMATIC ACCESS
SAVE/UNSEEN/SEEN/ALL ACCESS.NOTES 1-*
EXIT
$!
$!
$ IF F$SEARCH("ACCESS.NOTES") .GTS. ""
$ THEN
$ IF F$FILE_ATTRIBUTES ("ACCESS.NOTES", "EOF") .EQ. 0
$ THEN
$ MAIL NL: nodename::username/SUBJECT="NO NEW ACCESS NOTES"
$ ELSE
$ MAIL ACCESS.NOTES nodename::username/SUBJECT="NEW ACCESS NOTES"
$ ENDIF
$ DELETE/NOLOG ACCESS.NOTES;*
$ ELSE
$ MAIL NL: nodename::username/SUBJECT="ACCESS CONFERENCE INACCESSIBLE"
$ ENDIF
$!
$! *** (next conference name) notes file ***
$!
$NOTES
OPEN/NOAUTOMATIC xxxx
SAVE/UNSEEN/SEEN/ALL xxxx.NOTES 1-*
EXIT
$!
$ IF F$SEARCH("xxxx.NOTES") .GTS. ""
$ THEN
$ IF F$FILE_ATTRIBUTES ("xxxx.NOTES", "EOF") .EQ. 0
$ THEN
$ MAIL NL: nodename::username/SUBJECT="NO NEW xxxx NOTES"
$ ELSE
$ MAIL xxxx.NOTES nodename::username/SUBJECT="NEW xxxx NOTES"
$ ENDIF
$ DELETE/NOLOG xxxx.NOTES;*
$ ELSE
$ MAIL NL: nodename::username/SUBJECT="xxxx CONFERENCE INACCESSIBLE"
$ ENDIF
$!
$!
$! DO NOT ERASE OR COPY
$!
$ERROR_EXIT:
$ RENAME/NOLOG NOTES_EXTRACT.COM;* NOTES_EXTRACT.COM;*
$!
|
| Re: Note 6.0 by USEM::CHERNACK
>If you have your own routine and would like to share it, please
>feel free to add it to this topic.
Two VAXnotes utilities I find very useful are GET_NOTES and WATCH_NOTE.
GET_NOTES automates the task of searching notes conferences for desired
information. You can also use it to extract the unseen notes and mail
them to you. WATCH_NOTE automates the task of checking notes
conferences for new replies to a certain topic. If found, they will be
mailed to you.
Read the comments in the GET_NOTES or WATCH_NOTES procedures for more
information on how to use them. In addition to the GET_NOTES or
WATCH_NOTE procedures themselves, you will also need either the ENOTES
utility or the PAN utility. Copies of these utilities are available
from:
RIPPLE::SLS_DISK:[KOTTERRI.PUBLIC]GET_NOTES.COM (171 blocks)
RIPPLE::SLS_DISK:[KOTTERRI.PUBLIC]WATCH_NOTE.COM (60 blocks)
RIPPLE::SLS_DISK:[KOTTERRI.PUBLIC]ENOTES.EXE (57 blocks)
RIPPLE::SLS_DISK:[KOTTERRI.PUBLIC]PAN.EXE (510 blocks)
|