The following example creates a user-defined function that returns a date with the corresponding weekday.
SET CENTURY OFF
CLEAR
? Longdate({^1998-02-16}) && Displays Monday, February 16, 98
SET CENTURY ON
? Longdate({^1998-02-16}) && Displays Monday, February 16, 1998
*** LongDate ***
FUNCTION longdate
PARAMETERS gdDate
RETURN CDOW(gdDate) + ', ' + MDY(gdDate)