例
以下の例は、$ZMODE を使用して現在のデバイスのパラメータを返します。
WRITE !,"The current OPEN modes are: ",$PIECE($ZMODE,"\")
WRITE !,"The NLS collation is: ",$PIECE($ZMODE,"\",2)
WRITE !,"The network encoding is: ",$PIECE($ZMODE,"\",4)
以下の例は、現在のデバイスのパラメータを USE コマンドを使用して設定します。これは、USE コマンドの前後に、$ZMODE で現在のパラメータをチェックします。特定のパラメータが設定されたことをテストするため、この例はバックスラッシュ区切り文字がある $PIECE 関数を使用し、包含関係演算子 ([) を使用して値のテストを行います (詳細は、"ObjectScript の使用法" の "演算子" を参照してください)。
Zmodetest
WRITE !, $ZMODE
IF $PIECE($ZMODE,"\")["S" {
WRITE !, "S is set" }
ELSE {WRITE !, "S is not set" }
USE 0:("":"IS":$CHAR(13,10))
WRITE !, $ZMODE
IF $PIECE($ZMODE,"\")["S" {
WRITE !, "S is set" }
ELSE {WRITE !, "S is not set" }
QUIT
USER>DO ^zmodetest
RY\Latin1\K\UTF8\
S is not set
SIRY\Latin1\K\UTF8\
S is set