WRITE $ZDATE($HOROLOG), " default date format",!
WRITE $ZDATE($HOROLOG,1)," 1=American numeric format",!
WRITE $ZDATE($HOROLOG,2)," 2=Month abbreviation format",!
WRITE $ZDATE($HOROLOG,3)," 3=ODBC numeric format",!
WRITE $ZDATE($HOROLOG,4)," 4=European numeric format",!
WRITE $ZDATE($HOROLOG,5)," 5=Month abbreviation format",!
WRITE $ZDATE($HOROLOG,6)," 6=Month abbreviation format",!
WRITE $ZDATE($HOROLOG,7)," 7=Month abbreviation format",!
WRITE $ZDATE($HOROLOG,8)," 8=Numeric format no spaces",!
WRITE $ZDATE($HOROLOG,9)," 9=Month name format",!
WRITE $ZDATE($HOROLOG,10)," 10=Day-of-week format",!
WRITE $ZDATE($HOROLOG,11)," 11=Day abbreviation format",!
WRITE $ZDATE($HOROLOG,12)," 12=Day name format",!
WRITE $ZDATE($HOROLOG,13)," 13=Thai numeric format",!
WRITE $ZDATE($HOROLOG,14)," 14=Day-of-year format",!
WRITE $ZDATE($HOROLOG,15)," 15=European numeric format",!
WRITE $ZDATE($HOROLOG,16)," 16=Japanese date format",!
WRITE $ZDATE($HOROLOG,17)," 17=Japanese date format with spaces"
SET fmt=##class(%SYS.NLS.Format).%New("fraw")
WRITE "default: local=",$ZDATE($HOROLOG)," ODBC=",$ZDATE($HOROLOG,,,,,,,,,1),!
WRITE "-1: local=",$ZDATE($HOROLOG,-1)," ODBC=",$ZDATE($HOROLOG,-1,,,,,,,,1),!!
FOR x=1:1:17 {
WRITE x,": local=",$ZDATE($HOROLOG,x)," ODBC=",$ZDATE($HOROLOG,x,,,,,,,,1),! }