Path: utzoo!attcan!uunet!husc6!mailrus!purdue!decwrl!ucbvax!CMS1.UCS.LEEDS.AC.UK!ORG5NMC
From: ORG5NMC@CMS1.UCS.LEEDS.AC.UK
Newsgroups: comp.os.vms
Subject: (none)
Message-ID: <8807051441.AA07288@ucbvax.Berkeley.EDU>
Date: 3 Jul 88 14:36:11 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The Internet
Lines: 47


Hello all,
           Can sombody tell me why the following little test program (and
its cld) seems to behave for DEC but not for me? Compile the fortran prog
below and set command test1.exe then try the following:
$ tst1
$ tst1/date=today
3-JUL-1988 00:00:00.00
$ tst1/date=yesterday
2-JUL-1988 00:00:00.00
$ tst1/date
TODAY                           ! Why is it being so nasty to me?
$ write sys$output f$getsyi("version")
V4.7                            ! Our version
Can sombody explain this to me? Has it got anything to do with TODAY
being some kind of internal datetime keyword?
When I looked at the cld to purge, accounting etc (with verb) they define
the /since qualifier in just the same way that I did?!?! How do they get
round the problem? Do they do the conversion from these keywords and
combination times all over again? Does anybody know how to make it work
the way I would like it to (always returns the converted time in a format
that I can feed to SYS$BINTIM)? I can get round this problem in a few
minutes in the program I am writing but I want the default in the cld.
   If I have missed the obvious feel free to call me nasty names. Thanks
for listening to me and I hope you haven't all seen this loads of times
before.
                                   Neill.
P.S. I tried things like removing/adding quotes/spaces all over the place
=================================test1.for===============================
      program test1
c
      implicit     none
      integer*4    datelen
      logical*4    cli$present
      character*30 date
c
      if (cli$present ('date')) then
         call cli$get_value ('date', date, datelen)
         write (*,*) date (1:datelen)
      endif
      end
=================================test1.cld===============================
define verb tst1
   image sys$disk:[]test1.exe
   qualifier date
      value (default="TODAY",type=$datetime)
=============================The End=====================================