Using ObjectScript
Data Types and Values


ObjectScript is a typeless language — you do not have to declare the types of variables. Any variable can have a string, numeric, or object value. That being said, there is important information to know when using different kinds of data in ObjectScript, such as:
A string is a set of characters: letters, digits, punctuation, and so on delimited by a matched set of quotation marks ("):
SET string = "This is a string"
WRITE string
Topics about strings include:
InterSystems IRIS Data Platform™ supports a maximum string length of 3,641,144 characters. Attempting to exceed this maximum string length results in a <MAXSTRING> error.
When a process uses a string, the memory for the string comes from the operating system’s malloc() buffer, not from the partition memory space for the process. Thus the memory allocated for actual string values is not subject to the limit set by the maximum memory per process (
Maximum per Process Memory (KB)) parameter and does not affect the
$STORAGE value for the process.
You can include a " (double quote) character as a literal within a string by preceding it with another double quote character:
SET string = "This string has ""quotes"" in it."
WRITE string
There are no other escape character sequences within ObjectScript string literals.
Note that literal quotation marks are specified using other escape sequences in other InterSystems software. Refer to the
$ZCONVERT function for a table of these escape sequences.
SET a = "Inter"
SET b = "Systems"
SET string = a_b
WRITE string
By using the concatenate operator you can include nonprinting characters in a string. The following string includes the linefeed ($CHAR(10)) character:
SET lf = $CHAR(10)
SET string = "This"_lf_"is"_lf_"a string"
WRITE string
Note:
How nonprinting characters display is determined by the display device. For example, Terminal differs from browser display of the linefeed character, and other positioning characters. In addition, different browsers display the positioning characters $CHAR(11) and $CHAR(12) differently.
InterSystems IRIS encoded strings — bit strings, List structure strings, and JSON strings — have limitations on their use of the concatenate operator. For further details, see
Concatenate Encoded Strings.
You can use the equals (=) and does not equal ('=) operators to compare two strings. String equality comparisons are casesensitive. Exercise caution when using these operators to compare a string to a number, because this comparison is a string comparison, not a numeric comparison. Therefore only a string containing a
number in canonical form is equal to its corresponding number. ("0" is not a canonical number.) This is shown in the following example:
WRITE "Fred" = "Fred",! // TRUE
WRITE "Fred" = "FRED",! // FALSE
WRITE "7" = 007.0,! // TRUE
WRITE "007.0" = 7,! // FALSE
WRITE "0" = 0,! // TRUE
WRITE "0" = 0,! // FALSE
WRITE "0" = 0,! // FALSE
The <, >, <=, or >= operators cannot be used to perform a string comparison. These operators treat
strings as numbers and always perform a numeric comparison. Any nonnumeric string is assigned a numeric value of 0 when compared using these operators.
Lettercase and String Comparisons
String equality comparisons are casesensitive. You can use the
$ZCONVERT function to convert the letters in the strings to be compared to all uppercase letters or all lowercase letters. Nonletter characters are unchanged.
A few letters only have a lowercase letter form. For example, the German eszett ($CHAR(223)) is only defined as a lowercase letter. Converting it to an uppercase letter results in the same lowercase letter. For this reason, when converting alphanumeric strings to a single letter case it is always preferable to convert to lowercase.
A bit string represents a logical set of numbered bits with boolean values. Bits in a string are numbered starting with bit number 1. Any numbered bit that has not been explicitly set to boolean value 1 evaluates as 0. Therefore, referencing any numbered bit beyond those explicitly set returns a bit value of 0.

Bit values can only be set using the bit string functions
$BIT and
$BITLOGIC.

A bit string has a logical length, which is the highest bit position explicitly set to either 0 or 1. This logical length is only accessible using the
$BITCOUNT function, and usually should not be used in application logic. To the bit string functions, an undefined global or local variable is equivalent to a bitstring with any specified numbered bit returning a bit value 0, and a
$BITCOUNT value of 0.
A bit string is stored as a normal ObjectScript string with an internal format. This internal string representation is not accessible with the bit string functions. Because of this internal format, the
string length of a bit string is not meaningful in determining anything about the number of bits in the string.
Because of the bit string internal format, you cannot use the
concatenate operator with bit strings. Attempting to do so results in an <INVALID BIT STRING> error.
Two bit strings in the same state (with the same boolean values) may have different internal string representations, and therefore string representations should not be inspected or compared in application logic. To the bit string functions, the null strings and undefined global/local variables are equivalent to a bitstring with all bits 0, and a length of 0.
A bit set in a global variable during a
transaction will be reverted to its previous value following transaction
rollback. However, rollback does not return the global variable bit string to its previous string length or previous internal string representation. Local variables are not reverted by a rollback operation.
A logical bitmap structure can be represented by an array of bit strings, where each element of the array represents a "chunk" with a fixed number of bits. Since undefined is equivalent to a chunk with all 0 bits, the array can be sparse, where array elements representing a chunk of all 0 bits need not exist at all. For this reason, and due to the rollback behavior above, application logic should avoid depending on the length of a bit string or the count of 0valued bits accessible using
$BITCOUNT(str) or
$BITCOUNT(str,0).
Topics related to numbers include:
Numeric literals do not require any enclosing punctuation. You can specify a number using any valid numeric characters. InterSystems IRIS evaluates a number as syntactically valid, then converts it to canonical form.
The syntactic requirements for a numeric literal are as follows:

They cannot contain numeric group separators. These are localedependent: American format uses commas, European format uses periods. You can use the
$INUMBER function to remove numeric group separators, and the
$FNUMBER function to add numeric group separators.

They cannot contain currency symbols, hexadecimal letters, or other nonnumeric characters. They cannot contain blank spaces, except before or after arithmetic operators.

They cannot contain trailing plus or minus signs. However, the
$FNUMBER function can display a number as a string with a trailing sign, and the
$NUMBER function can take a string in this format and convert it to a number with a leading sign.

They cannot specify enclosing parentheses to represent a number as a negative number (a debit). However, the
$FNUMBER function can display a negative number as a string with a enclosing parentheses, and the
$NUMBER function can take a string in this format and convert it to a number with a leading negative sign.
A number or numeric expression can containing pairs of enclosing parentheses. These parentheses are not part of the number, but govern the precedence of operations. By default, InterSystems IRIS performs all operations in strict lefttoright order.
ObjectScript performs all numeric operations on numbers in their canonical form. For example, the length of the number
+007.00 is 1; the length of the string
"+007.00" is 7.
When InterSystems IRIS converts a number to canonical form, it performs the following steps:

Scientific notation exponents are resolved. For example 3E4 converts to 30000 and 3E4 converts to .0003.

Leading signs are resolved. First, multiple signs are resolved to a single sign (for example, two minus signs resolve to a plus sign). Then, if the leading sign is a plus sign, it is removed. You can use the
$FNUMBER function to explicitly specify (prepend) a plus sign to a positive InterSystems IRIS canonical number.
Note:
ObjectScript resolves any combination of leading plus and minus signs. In SQL, two consecutive minus signs are parsed as a singleline comment indicator. Therefore, specifying a number in SQL with two consecutive leading minus signs results in an SQLCODE 12 error.

All leading and trailing zeros are removed. This includes removing the integer zero from fractions; for example
0.66 becomes
.66.
As part of this conversion, zero fractions are simplified to 0. Regardless of how expressed (
0.0,
.0,
.000) all zero values are converted to
0.

A trailing decimal separator is removed.

0 is converted to 0.

Arithmetic operations and numeric concatenation are performed. InterSystems IRIS performs these operations in strict lefttoright order. Numbers are in their canonical form when these operations are performed. For further details, refer to
Concatenating Numbers below.
InterSystems IRIS canonical form numbers differ from other canonical number formats used in InterSystems software:

ODBC: Integer zero fractions converted to ODBC have a zero integer. Therefore,
.66 and
000.66 both become
0.66. You can use the
$FNUMBER or
$JUSTIFY function to prepend an integer zero to an InterSystems IRIS canonical fractional number.

JSON: Only a single leading minus sign is permitted; a leading plus sign or multiple signs are not permitted.
Exponents are permitted but not resolved. 3E4 is returned as 3E4.
Leading zeros are not permitted. Trailing zeros are not removed.
Integer zero fractions must have a zero integer. Therefore,
.66 and
000.66 are not valid JSON numbers, but
0.66 and
0.660000 are valid JSON numbers.
A trailing decimal separator is not permitted.
Zero values are not converted:
0.0,
0, and
0.000 are returned unchanged as valid JSON numbers.


For arithmetic operations, a string containing only numeric characters in noncanonical form is functionally identical to the corresponding number. For example,
"003" + 3 = 6,
"++2.5000" + 2.5 = 5.

For greaterthan/lessthan operations, a string containing only numeric characters in noncanonical form is functionally identical to the corresponding number. For example, the following statements are true:
"003" > 2,
"++2.5000" >= 2.5.

For equality operations (=, '=), a string containing only numeric characters in noncanonical form is treated as a string, not a number. For example, the following statements are true:
"003" = "003",
"003" '= 3,
"+003" '= "003".
Some further guidelines concerning parsing strings as numbers:

A mixed numeric string is a string that begins with numeric characters, followed by one or more nonnumeric characters. For example “7 dwarves”. InterSystems IRIS numeric and boolean operations (other than equality operations) commonly parse a mixed numeric string as a number until they encounter a nonnumeric character. At that point the rest of the string is ignored. The following example shows arithmetic operations on mixed numeric strings:
WRITE "7dwarves" + 2,! // returns 9
WRITE "+24/7" + 2,! // returns 26
WRITE "7,000" + 2,! // returns 9
WRITE "7.0.99" + 2,! // returns 9
WRITE "7.5.99" + 2,! // returns 9.5

A nonnumeric string is any string in which a nonnumeric character is encountered before encountering a numeric character. Note that a blank space is considered a nonnumeric character. InterSystems IRIS numeric and boolean operations (other than equality operations) commonly parse this string as having a numeric value of 0 (zero). The following example shows arithmetic operations on nonnumeric strings:
WRITE "dwarves 7" + 2,! // returns 2
WRITE "+ 24/7" + 2,! // returns 2
WRITE "$7000" + 2,! // returns 2

You can prefix a string with a plus sign to force its evaluation as a number for equality operations. A numeric string is parsed as a number in canonical form; a nonnumeric string is parsed as 0. (A minus sign prefix also forces evaluation of a string as a number for equality operations; the minus sign, of course, inverts the sign for a nonzero value.) The following example shows the plus sign forcing numeric evaluation for equality operations:
WRITE +"7" = 7,! // returns 1 (TRUE)
WRITE +"+007" = 7,! // returns 1 (TRUE)
WRITE +"7 dwarves" = 7,! // returns 1 (TRUE)
WRITE +"dwarves" = 0,! // returns 1 (TRUE)
WRITE +"" = 0,! // returns 1 (TRUE)
Numeric string handling exceptions for individual commands and functions are common, as noted in the
ObjectScript Reference.
A number can be concatenated to another number using the
concatenate operator (_). InterSystems IRIS first converts each number to its canonical form, then performs a string concatenation on the results. Thus, the following all result in 1234: 12_34, 12_+34, 12_34, 12.0_34, 12_0034.0, 12E0_34. The concatenation 12._34 results in 1234, but the concatenation 12_.34 results in 12.34. The concatenation 12_34 results in the string “1234”.
InterSystems IRIS performs numeric concatenation and arithmetic operations on numbers after converting those numbers to canonical form. It performs these operations in strict lefttoright order, unless you specify parentheses to prioritize an operation. The following example explains one consequence of this:
WRITE 7_6+5 // returns 12
In this example, the concatenation returns the string “76”. This, of course, is not a canonical number. InterSystems IRIS converts this string to a canonical number by truncating at the first nonnumeric character (the embedded minus sign). It then performs the next operation using this canonical number 7 + 5 = 12.
InterSystems IRIS supports two different numeric types that can be used to represent fractional numbers:

Decimal floatingpoint: By default, InterSystems IRIS represents fractional numbers using its own decimal floatingpoint standard ($DECIMAL numbers). This is the preferred format for most uses. It provides the highest level of precision — 18 decimal digits. It is consistent across all system platforms that InterSystems IRIS supports. Decimal floatingpoint is preferred for data base values. In particular, a fractional number such as 0.1 can be exactly represented using decimal floatingpoint notation, while the fractional number 0.1 (as well as most decimal fractional numbers) can only be approximated by binary floatingpoint.

Binary floatingpoint: The IEEE doubleprecision binary floating point standard is an industrystandard way of representing fractional numbers. IEEE floating point numbers are encoded using binary notation. Binary floatingpoint representation is usually preferred when doing highspeed calculations because most computers include highspeed hardware for binary floatingpoint arithmetic. Doubleprecision binary floating point has a precision of 53 binary bits, which corresponds to 15.95 decimal digits of precision. Binary representation does not correspond exactly to a decimal fraction because a fraction such as 0.1 cannot be represented as a finite sequence of binary fractions. Because most decimal fractions cannot be exactly represented in this binary notation, an IEEE floating point number may differ slightly from the corresponding standard InterSystems IRIS floating point number. When an IEEE floating point number is displayed as a fractional number, the binary bits are often converted to a fractional number with far more than 18 decimal digits. This
does not mean that IEEE floating point numbers are more precise than standard InterSystems IRIS fractional numbers. IEEE floating point numbers are able to represent larger and smaller numbers than standard InterSystems IRIS numbers, and support the special values INF (infinity) and NAN (not a number). For further details, refer to the
$DOUBLE function.
You can use the
$DOUBLE function to convert an InterSystems IRIS standard floatingpoint number to an IEEE floating point number. You can use the
$DECIMAL function to convert an IEEE floating point number to an InterSystems IRIS standard floatingpoint number.
By default, InterSystems IRIS converts fractional numbers to canonical form, eliminating all leading zeros. Therefore,
0.66 becomes
.66.
$FNUMBER (most formats) and
$JUSTIFY (3parameter format) always return a fractional number with at least one integer digit; using either of these functions,
.66 becomes
0.66.
$FNUMBER and
$JUSTIFY can be used to round or pad a numeric to a specified number of fractional digits. InterSystems IRIS rounds up 5 or more, rounds down 4 or less. Padding adds zeroes as fractional digits as needed. The decimal separator character is removed when rounding a fractional number to an integer. The decimal separator character is added when zeropadding an integer to a fractional number.
To specify scientific (exponential) notation in ObjectScript, use the following format:
where
For example, to represent 10, use
1E1. To represent 2800, use
2.8E3. To represent .05, use
5E2.
No spaces are permitted between the
mantissa, the
E, and the
exponent. Parentheses, concatenation, and other operators are not permitted within this syntax.
Because resolving scientific notation is the first step in converting a number to
canonical form, some conversion operations are not available. The
mantissa and
exponent must be numeric literals, they cannot be variables or arithmetic expressions. The
exponent must be an integer with (at most) one plus or minus sign.
The largest integers that can be represented exactly are the 19digit integers 9223372036854775808 and 9223372036854775807. This is because these are the largest numbers that can be represented with 64 signed bits. Integers larger than this are automatically rounded to fit within this 64bit limit. This is shown in the following example:
SET x=9223372036854775807
WRITE x,!
SET y=x+1
WRITE y
Similarly, exponents larger that 128 may also result in rounding to permit representation within 64 signed bits. This is shown in the following example:
WRITE 9223372036854775807e128,!
WRITE 9223372036854775807e129
Because of this rounding, arithmetic operations that result in numbers larger than these 19digit integers have their loworder digits replaced by zeros. This can result in situations such as the following:
SET longnum=9223372036854775790
WRITE longnum,!
SET add17=longnum+17
SET add21=longnum+21
SET add24=longnum+24
WRITE add17,!,add24,!,add21,!
IF add24=add21 {WRITE "adding 21 same as adding 24"}
The largest InterSystems IRIS decimal floating point number supported is 9.223372036854775807E145. The largest supported $DOUBLE value (assuming IEEE overflow to INFINITY is disabled) is 1.7976931348623157081E308. The $DOUBLE type supports a larger range of values than the InterSystems IRIS decimal type, while the InterSystems IRIS decimal type supports more precision. The InterSystems IRIS decimal type has a precision of approximately 18.96 decimal digits (usually 19 digits but sometimes only 18 decimal digits of precision) while the $DOUBLE type usually has a precision around 15.95 decimal digits (or 53 binary digits). By default, InterSystems IRIS represents a numeric literal as a decimal floatingpoint number. However, if the numeric literal is larger than what can be represented in InterSystems IRIS decimal (larger than 9.223372036854775807E145) InterSystems IRIS automatically converts that numeric value to $DOUBLE representation.
A numeric value larger than 1.7976931348623157081E308 (308 or 309 digits) results in a <MAXNUMBER> error.
Because of the automatic conversion from decimal floatingpoint to binary floatingpoint, rounding behavior changes at 9.223372036854775807E145 (146 or 147 digits, depending on the integer). This is shown in the following examples:
TRY {
SET a=1
FOR i=1:1:310 {SET a=a_1 WRITE i+1," digits = ",+a,! }
}
CATCH exp { WRITE "In the CATCH block",!
IF 1=exp.%IsA("%Exception.SystemException") {
WRITE "System exception",!
WRITE "Name: ",$ZCVT(exp.Name,"O","HTML"),!
WRITE "Location: ",exp.Location,!
WRITE "Code: "
}
ELSE { WRITE "Some other type of exception",! RETURN }
WRITE exp.Code,!
WRITE "Data: ",exp.Data,!
RETURN
}
TRY {
SET a=9
FOR i=1:1:310 {SET a=a_9 WRITE i+1," digits = ",+a,! }
}
CATCH exp { WRITE "In the CATCH block",!
IF 1=exp.%IsA("%Exception.SystemException") {
WRITE "System exception",!
WRITE "Name: ",$ZCVT(exp.Name,"O","HTML"),!
WRITE "Location: ",exp.Location,!
WRITE "Code: "
}
ELSE { WRITE "Some other type of exception",! RETURN }
WRITE exp.Code,!
WRITE "Data: ",exp.Data,!
RETURN
}
You can represent a number longer than 309 digits as a numeric string. Because this value is stored as a string rather than a number, neither rounding nor the <MAXNUMBER> error apply:
SET a="1"
FOR i=1:1:360 {SET a=a_"1" WRITE i+1," characters = ",a,! }
Exponents that would result in a number with more than the maximum permitted number of digits generate a <MAXNUMBER> error. The largest permitted exponent depends on the size of the number that is receiving the exponent. For a singledigit mantissa, the maximum exponent is 307 or 308.
An object value refers to an instance of an inmemory object. You can assign an object reference (OREF) to any local variable:
SET myperson = ##class(Sample.Person).%New()
WRITE myperson
To refer to the methods and properties of an object instance, use dot syntax:
SET myperson.Name = "El Vez"
To determine if a variable contains an object, use the
$ISOBJECT function:
SET str = "A string"
SET myperson = ##class(Sample.Person).%New()
IF $ISOBJECT(myperson) {
WRITE "myperson is an object.",!
} ELSE {
WRITE "myperson is not an object."
}
IF $ISOBJECT(str) {
WRITE "str is an object."
} ELSE {
WRITE "str is not an object."
}
You cannot assign an object value to a global. Doing so results in a runtime error.
Assigning an object value to a variable (or object property) has the side effect of incrementing the object’s internal reference count, as shown in the following example:
SET x = ##class(Sample.Person).%New()
WRITE x,!
SET y = ##class(Sample.Person).%New()
WRITE y,!
SET z = ##class(Sample.Person).%New()
WRITE z,!
When the number of references to an object reaches 0, the system automatically destroys the object (invoke its
%OnClose() callback method and remove it from memory).
A global is a sparse, multidimensional database array. A global is not different from any other type of array, with the exception that the global variable name starts with a caret (^). Data can be stored in a global with any number of subscripts; subscripts in InterSystems IRIS are typeless.
The following is an example of using a global. Once you set the global ^
x, you can examine its value:
SET ^x = 10
WRITE "The value of ^x is: ", ^x,!
SET ^x(2,3,5) = 17
WRITE "The value of ^x(2,3,5) is: ", ^x(2,3,5)
ObjectScript variables do not need to be explicitly declared or defined. As soon as you assign a value to a variable, the variable is defined. Until this first assignment, all references to this variable are undefined. You can use the
$DATA function to determine if a variable is defined or undefined.
$DATA takes one or two arguments. With one argument, it simply tests if a variable has a value:
WRITE "Does ""MyVar"" exist?",!
IF $DATA(MyVar) {
WRITE "It sure does!"
} ELSE {
WRITE "It sure doesn't!"
}
SET MyVar = 10
WRITE !,!,"How about now?",!
IF $DATA(MyVar) {
WRITE "It sure does!"
} ELSE {
WRITE "It sure doesn't!"
}
$DATA returns a boolean that is True (1) if the variable has a value (that is, contains data) and that is False (0) if the variable has no value (that is, contains no data). With two arguments, it performs the test and sets the second argument’s variable equal to the tested variable’s value:
IF $DATA(Var1,Var2) {
WRITE "Var1 has a value of ",Var2,".",!
} ELSE {
WRITE "Var1 is undefined.",!
}
SET Var1 = 3
IF $DATA(Var1,Var2) {
WRITE "Var1 has a value of ",Var2,".",!
} ELSE {
WRITE "Var1 is undefined.",!
}
In certain cases, such as when used with logical commands or operators, a value may be interpreted as a boolean (true or false) value. In such cases, an expression is interpreted as 1 (true) if evaluates to a nonzero numeric value or 0 (false) if it evaluates to a zero numeric value. A numeric string evaluates to its numeric value; a nonnumeric string evaluates to 0 (false).
For example, the following values are interpreted as true:
IF 1 { WRITE "evaluates as true",! }
ELSE { WRITE "evaluates as false",! }
IF 8.5 { WRITE "evaluates as true",! }
ELSE { WRITE "evaluates as false",! }
IF "1 banana" { WRITE "evaluates as true",! }
ELSE { WRITE "evaluates as false",! }
IF 1+1 { WRITE "evaluates as true",! }
ELSE { WRITE "evaluates as false",! }
IF 7 { WRITE "evaluates as true",! }
ELSE { WRITE "evaluates as false",! }
IF +"007"=7 { WRITE "evaluates as true",! }
ELSE { WRITE "evaluates as false",! }
The following values are interpreted as false:
IF 0 { WRITE "evaluates as true",! }
ELSE { WRITE "evaluates as false",! }
IF 33 { WRITE "evaluates as true",! }
ELSE { WRITE "evaluates as false",! }
IF "one banana" { WRITE "evaluates as true",! }
ELSE { WRITE "evaluates as false",! }
IF "" { WRITE "evaluates as true",! }
ELSE { WRITE "evaluates as false",! }
IF 0 { WRITE "evaluates as true",! }
ELSE { WRITE "evaluates as false",! }
IF "007"=7 { WRITE "evaluates as true",! }
ELSE { WRITE "evaluates as false",! }
ObjectScript has no builtin date type; instead it includes a number of functions for operating on and formatting date values represented as strings. These date formats include:
Date Formats
Format 
Description 
$HOROLOG 
This is the format returned by the $HOROLOG ($H) special variable. It is a string containing two commaseparated integers: the first is the number of days since December 31, 1840; the second is the number of seconds since midnight of the current day. $HOROLOG does not support fractional seconds. The $NOW function provides $HOROLOGformat dates with fractional seconds. InterSystems IRIS provides a number of functions for formatting and validating dates in $HOROLOG format. 
ODBC Date 
This is the format used by ODBC and many other external representations. It is a string of the form: “YYYYMMDD HH:MM:SS”. ODBC date values will collate; that is, if you sort data by ODBC date format, it will automatically be sorted in chronological order. 
Locale Date 
This is the format used by the current locale. Locales differ in how they format dates as follows: “American” dates are formatted mm/dd/yyyy (dateformat 1). “European” dates are formatted dd/mm/yyyy (dateformat 4). All locales use dateformat 1 except the following — csyw, deuw, engw, espw, eurw, fraw, itaw, mitw, ptbw, rusw, skyw, svnw, turw, ukrw — which use dateformat 4. American dates use a period (.) as a decimalseparator for fractional seconds. European dates use a comma (,) as a decimalseparator for fractional seconds, except the following — engw, eurw, skyw — which use a period. All locales use a slash (/) as the dateseparator character, except the following, which use a period (.) as the dateseparator character — Czech (csyw), Russian (rusw), Slovak (skyw), Slovenian (svnw), and Ukrainian (ukrw). 
System Time 
This is the format returned by the $ZHOROLOG ($ZH) special variable. It is a floating point number containing the number of seconds (and parts thereof) that the system has been running. Stopping and restarting InterSystems IRIS resets this number. Typically this format is used for timing and testing operations. 
The following example shows how you can use the different date formats:
—Date Formats—
SET now = $HOROLOG
WRITE "Current time and date ($H): ",now,!
SET odbc = $ZDATETIME(now,3)
WRITE "Current time and date (ODBC): ",odbc,!
SET ldate = $ZDATETIME(now,1)
WRITE "Current time and date in current locale format: ",ldate,!
SET time = $ZHOROLOG
WRITE "Current system time ($ZH): ",time,!
Content Date/Time: 20190410 14:45:56