| Title: | Celt Notefile |
| Moderator: | TALLIS::DARCY |
| Created: | Wed Feb 19 1986 |
| Last Modified: | Tue Jun 03 1997 |
| Last Successful Update: | Fri Jun 06 1997 |
| Number of topics: | 1632 |
| Total number of notes: | 20523 |
The following info explains how you can read notes via batch.
Some people only view the most current notes, and may be missing
replies that have been entered to older notes. This process allows
the user to submit a job to the system batch queue, and read all
new notes and repiles whenever it is convenient. Prior to using this
process you MUST use the SET/SEEN command in notes, if not, EVERY
note and reply that was ever written in this conference will be
copied to your directory in a file called Celt.not
Step #1 Open the CELT notefile and correct the set/seen entry.
$ NOTES
NOTES> OPEN CELT
NOTES> SET SEEN/BEFORE=07-JUL-1989 (Or whatever todays date is)
Step #2
Read reply 610.1 and then at the notes prompt type :
NOTES> SAVE/NOHEAD READ_NOTES.COM [This will save the text in 610.1 to a file
in YOUR DIRECTORY called READ_NOTES.COM]
Step #3
Exit from notes and submit the batch job to extract any new notes or replies.
$ SUBMIT/NOTIFY READ_NOTES.COM [WHEN READ_NOTES.COM finishes running, it will
send a message to your terminal indicating
that READ_NOTES.COM has completed.
Step #4
After you have been notified that READ_NOTES.COM has finished executing, you
can type out the file to see if there is any new info.
$ type celt.not [This file will contain any new notes and new replies
that have been written since the last time you ran
READ_NOTES.COM ]
| T.R | Title | User | Personal Name | Date | Lines |
|---|---|---|---|---|---|
| 610.1 | STEREO::BURNS | YE3 Euro Tour 89' begins July 27th | Fri Jul 07 1989 08:40 | 4 | |
$ NOTES
OPEN/NOAUTO CELT
EXTRACT/SEEN/UNSEEN CELT.NOT *.*
$ EXIT
| |||||
| 610.2 | Here is another way | SALTHL::MCCROHAN | Mike McCrohan @BPO Dtn 296-3040 | Fri Jul 07 1989 13:42 | 75 |
You will need edit two lines...the "set default..." line and the "Mail..." Line $ ! Notesuck.com $ $ $ ! Procedure to perform batch update of a list of notesfiles, $ ! save the update in files keyed to the current date, and mail $ ! mail the update to yourself. $ ! $ ! $ set default [****Your_preferred_(sub)directory_here] $ say := write sys$output $ $ say "" $ start: $ ! $ ! First, Determine what this month is. $ ! $ if f$extract(0,1,f$time()) .eqs. " " then $day_str = f$extract(1,1,f$time()) $ if f$extract(0,1,f$time()) .nes. " " then $day_str = f$extract(0,2,f$time()) $write sys$output day_str $ year_str = f$extract(9,2,f$time()) $ month_str = f$extract(3,3,f$time()) $ text_dest = year_str+month_str+day_str+"note.txt" $ $ ! Scan notesfile list and go to subroutine to read $ ! unseen notes in YYmmmDDNOTE.TXT where YY,mmm,DD $ ! reflect the current date $ $ set on $ open/read/error=no_file dis_file notesuck.lst $Read_note_name: $ set on $ read/end=end_file dis_file note_name $ return := Read_note_name $ goto subroutine $ $! S u b r o u t i n e s $! $ subroutine: $ open/write comfile temp.com $ write comfile "$ notes $ write comfile "open ''note_name'/noauto " $ write comfile "save/append/all/unseen" $ write comfile " ''year_str'''month_str'''day_str'note.txt" $ write comfile " 1-last" $ write comfile " set seen" $ close comfile $type temp.com $ @temp.com $ goto 'return $ $no_file: $ write sys$output "File NOTESUCK.LST Could not be found" $ Goto exit $end_file: $ close dis_file $ ASSIGN /USER NL: SYS$OUTPUT: $ MAIL /SUBJ="Notesfiles Updates for today..." 'year_str''month_str''day_str'note.txt mccrohan $ rename 'year_str''month_str''day_str'note.txt 'year_str''month_str''day_str'note.tmp $ write sys$output "All files processed, exiting...." $ $exit: $ purge temp.com $ exit $ ! End of Notesuck.com ---------------------------------- Example of Notesuck.lst celt easynet gateways ....etc | |||||