quick and dirty SYSDATE

[Krisjanis Gale <Krisjanis.Gale@NY.FRB.ORG>]

i believe several of you had discussions in the past about
reducing the codebase (given by PeopleSoft) for DATETIME's.
i too have become quite frustrated with the standard set of
.SQR's - you might call me a bit of an efficiency phreak,
and they are Anything But.

so without any further ado,
here's MY datetime procedure...

--

begin-procedure getSysdate
begin-select
to_char(sysdate,'mm/dd/yy hh:mi:ss') &SYSDATE
from dual
end-select
let $SYSDATE_DATETIME = &SYSDATE
unstring $SYSDATE_DATETIME by ' ' into $SYSDATE_TODAY $SYSDATE_NOW
end-procedure getSysDate

--

this creates three variables:
$SYSDATE_DATETIME > single-string date and time
$SYSDATE_TODAY    > today's date
$SYSDATE_NOW      > the current time


(kris)janis p. gale
human resources / systems development
federal reserve bank of new york