%DATE

Return the date

WTSupported in traditional Synergy on Windows
WNSupported in Synergy .NET on Windows
USupported on UNIX
VSupported on OpenVMS
date = %DATE([jperiod])

or

xcall DATE(date[, jperiod])

Return value

date

A formatted date string, stored left-justified over blanks. (a)

Arguments

jperiod

(optional) The Julian period for the date to be returned. The default is the current date. (n)

Discussion

Depending on whether the destination is a9 or a11, the DATE subroutine returns either the current date or the date for the Julian period passed in the format DD-MMM-YY or DD-MMM-CCYY, where DD is the day of the month, MMM is the abbreviation for the month, YY is the last two digits of the year (for example, 11-NOV-91), and CCYY is the year with the century included.

The %DATE function, on the other hand, always returns the date in the format DD-MMM-CCYY. If the length of date is not large enough to receive the entire result, the date is truncated, with the truncated value stored according to the alpha to alpha storage rules. (See Moving alpha data to an alpha destination for more information.) For example, if date is an a9 field, the returned date is truncated to DD-MMM-CC.

The abbreviations for the months are as follows:

JAN
FEB
MAR
APR
MAY
JUN
JUL
AUG
SEP
OCT
NOV
DEC

Examples

The following example checks to see if the current date is the same as the date passed to the function. If it is the same, the function returns a value of true; otherwise, it returns a value of false.

function chk_exp_date                   ;Called daily to generate expired account list
    a_expdate           ,a              
proc
    freturn (%date .eq. a_expdate)      ;Return TRUE if expired today, else FALSE
endfunction