| Title: | How to Make them Goodies |
| Notice: | Please Don't Start New Notes for Old Topics! Check 5.* |
| Moderator: | FUTURE::DDESMAISONS ec.com::winalski |
| Created: | Tue Feb 18 1986 |
| Last Modified: | Thu Jun 05 1997 |
| Last Successful Update: | Fri Jun 06 1997 |
| Number of topics: | 4127 |
| Total number of notes: | 31160 |
Since my days as a digit are now numbered (Rdb's sale is
no longer rumor, it's fact), I must look forward to other
things and say good-bye to COOKS. You may have noticed that,
from time to time, I update the directory in note 5. I
do that about every 2 weeks, sometimes every 14 days, sometimes
once a month. I've never bothered to submit a batch job for it
I just do it early in the morning and it gets done pretty quickly
without hogging system resources.
Well, for anyone who wants to run the command files, I'll
post them in the next 2 replies to this note. You'll note that
it's nothing clever, it's just written in DCL.
Btw, the job of comoderator is open.
Oh, and thanks for the memories.
I'll write-lock this note after I post the two files.
ed
| T.R | Title | User | Personal Name | Date | Lines |
|---|---|---|---|---|---|
| 7.1 | DIR.COM | BYCYCL::FISHER | Tay-unned, rey-usted, rey-ady | Fri Sep 02 1994 07:01 | 82 |
$note cooks dir/out=cooks_dir.txt 11-10000 $ edit/edt/nocom cooks_dir.txt d d .:'----- exit cooks_dir_new.txt $ def for005 cooks_dir_new.txt $ def for008 cooks.txt $ r dev:cooks $ sort cooks.txt,cooks_headers.txt cooks_sort.txt/coll=multinational $next: $ edit/edt/nocom cooks_sort.txt d write a.txt .:'..............'-1 '.................. d write c.txt .:'..............'-1 '.................. d write d.txt .:'..............'-1 '.................. d write e.txt .:'..............'-1 '.................. d write g.txt .:'..............'-1 '.................. d write i.txt .:'..............'-1 '.................. d write k.txt .:'..............'-1 '.................. d write m.txt .:'..............'-1 '.................. d write p.txt .:'..............'-1 '.................. d write r.txt .:'..............'-1 '.................. d write t.txt .:'..............'-1 '.................. d write zz.txt .:'..............'-1 '.................. exit $note cooks 5.2 set mod del note/noconfirm 5.1 del note/noconfirm 5.2 del note/noconfirm 5.3 del note/noconfirm 5.4 del note/noconfirm 5.5 del note/noconfirm 5.6 del note/noconfirm 5.7 del note/noconfirm 5.8 del note/noconfirm 5.9 del note/noconfirm 5.10 del note/noconfirm 5.11 del note/noconfirm 5.12 del note/noconfirm 5.13 del note/noconfirm 5.14 5 reply a.txt/noedit/title="Cooks from A through B"/NOCONFIRM/NOEXTRACT reply c.txt/noedit/title="Cooks from C"/NOCONFIRM/NOEXTRACT reply d.txt/noedit/title="Cooks from D"/NOCONFIRM/NOEXTRACT reply e.txt/noedit/title="Cooks from E through F"/NOCONFIRM/NOEXTRACT reply g.txt/noedit/title="Cooks from G through H"/NOCONFIRM/NOEXTRACT reply i.txt/noedit/title="Cooks from I through J"/NOCONFIRM/NOEXTRACT reply k.txt/noedit/title="Cooks from K through L"/NOCONFIRM/NOEXTRACT reply m.txt/noedit/title="Cooks from M through O"/NOCONFIRM/NOEXTRACT reply p.txt/noedit/title="Cooks from P through Q"/NOCONFIRM/NOEXTRACT reply r.txt/noedit/title="Cooks from R through S"/NOCONFIRM/NOEXTRACT reply t.txt/noedit/title="Cooks from T through Z"/NOCONFIRM/NOEXTRACT reply zz.txT/noedit/title="Cooks miscellaneous"/NOCONFIRM/NOEXTRACT reply cooks_sort.txt/noedit/title="Cooks complete listing"/NOCONFIRM/NOEXTRACT $purge $exit | |||||
| 7.2 | COOKS_HEADERS.TXT | BYCYCL::FISHER | Tay-unned, rey-usted, rey-ady | Fri Sep 02 1994 07:01 | 11 |
c ......................................
d ......................................
e ......................................
g ......................................
i ......................................
k ......................................
m ......................................
p ......................................
r ......................................
t ......................................
{ ......................................
| |||||
| 7.3 | NOVA::FISHER | now |a|n|a|l|o|g| | Fri Jun 30 1995 13:58 | 73 | |
C COOKS.FOR C C the last piece of the directory puzzle, I should include it C before I lose access to the file in the morn. C C BYE FOLKS AND THANKS FOR ALL THE GOOD TIMES C implicit none integer i,j,l character*6 note_num character*4 replies character*21 author character*11 date character*60 title, new_title character*1 tit(60), ntit(60) equivalence (title, tit), (new_title, ntit) 1 read(5, 5001,end=100) note_num,author,date,replies,title 5001 format(a6,2xa21,a11,2xa4,2xa60) if (title .eq. ' ') goto 1 2 new_title = title if (ntit(1) .eq. ' ') then do 4 i = 2,60 4 tit(i-1) = tit(i) goto 2 endif if (tit(1) .eq. '"')then new_title = ' ' j = 2 do 20 i =1,60 10 if (tit(j) .ne. '"') goto 15 j = j+1 if (j.le.60)goto 10 15 ntit(i) = tit(j) j = j+1 if (j.gt.60) goto 21 20 continue go to 21 end if 21 if ( (tit(1) .eq. 'T' .or. tit(1) .eq. 't') 1 .and. (tit(2) .eq. 'H' .or. tit(2) .eq. 'h') 2 .and. (tit(3) .eq. 'E' .or. tit(3) .eq. 'e') 3 .and. (tit(4) .eq. ' ')) then new_title = ' ' do 30 i = 60,1,-1 if (tit(i) .eq. ' ') goto 30 l = i+1 goto 31 30 continue 31 j = 1 do 35 i = 5,l ntit(j) = tit(i) j = j+1 35 continue ntit(l-4) = ',' ntit(l-3) = ' ' ntit(l-3+1) = tit(1) ntit(l-3+2) = tit(2) ntit(l-4+3) = tit(3) end if 91 write (8,6001) new_title, note_num, replies, date 6001 format(a50, a6, 3x a4, 2x a11) goto 1 100 stop end | |||||