Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!utgpu!water!watmath!clyde!rutgers!ucla-cs!zen!ucbvax!GALLUA.BITNET!CADS_COLE
From: CADS_COLE@GALLUA.BITNET.UUCP
Newsgroups: comp.os.vms
Subject: Thanx! (Last LOGIN date vs. file modification date)
Message-ID: <8709241325.AA15216@ucbvax.Berkeley.EDU>
Date: Thu, 24-Sep-87 09:25:20 EDT
Article-I.D.: ucbvax.8709241325.AA15216
Posted: Thu Sep 24 09:25:20 1987
Date-Received: Sat, 26-Sep-87 13:13:10 EDT
Sender: daemon@ucbvax.BERKELEY.EDU
Distribution: world
Organization: The ARPA Internet
Lines: 28

To all who replied (Joel <JMS@ARIZMIS.BITNET>, Seldon <SYSTEM@CRNLNS.BITNET>,
Claude <BARBE%sdr.slb.com@RELAY.CS.NET>, Nigel <SYSMGR@IPG.PH.KCL.AC.UK>,
and others):

Many thanx.  It may not be elegant or fast, but it's easy to understand and
it works.  And that's all I was looking for.  In particular, Seldon had pretty
much done exactly what I wanted and Claude explained it before I received
Sheldon's message.  The final product below:
-------------------------------------------------------------------------------
$ IF F$SEARCH("SYS$MANAGER:NOTICE.TXT") .EQS. "" THEN GOTO NONEWS
$ X = F$CVTIME(F$FILE_ATTRIBUTES("SYS$MANAGER:NOTICE.TXT","RDT"),"COMPARISON")
$ Y = F$CVTIME(F$FILE_ATTRIBUTES("SYS$LOGIN:LOGIN.COM","RDT"),"COMPARISON")
$ IF X .LES. Y THEN GOTO NONEWS
$ MORE SYS$MANAGER:NOTICE.TXT
$!
$ NONEWS:
$ SET PROT=('F$FILE_ATTRIBUTES("SYS$LOGIN:LOGIN.COM","PRO")') -
$   SYS$LOGIN:LOGIN.COM
--------------------------------------------------------------------------------
Kevin Cole      <Flatline>              BITNET: KJCOLE@GALLUA.BITNET
Center for Assessment and                               or
Demographic Studies  (CADS)                     CADS_COLE@GALLUA.BITNET
Gallaudet Research Institute  (GRI)     UUCP: ...!psuvax!gallua.bitnet!kjcole
Gallaudet University                    CompuServe: 76167,1406
Washington, D.C.  20002
(202) 651-5575

             "Hey Rocky!  Watch me pull a rabbit out of my hat!"