Caché 専用のシステム/ツールおよびユーティリティ - InterSystems ...

各 国 言 語 サポートのシステム・クラスの 使 用 法Znspace "%SYS"Set locales = ##class(%Library.ResultSet).%New("Config.NLS.Locales:List")If $IsObject(locales) {Set locales.RuntimeMode = 1Set sc = locales.Execute("*")If $SYSTEM.Status.IsOK(sc) {Write !While locales.Next() {Write locales.Data("Name"), " - ", locales.Data("Description"), !}}}2.1.2.3 システムおよびプロセス・テーブル・データの 表 示この 例 を 実 行 する 前 に 一 部 のプロパティが 外 部 で 変 更 されている 場 合 を 除 き、この 例 では、システム・テーブルとプロセス・テーブルに 同 じ 値 が 表 示 されます。Set IOTables = "Process" _"/CacheTerminal" _"/OtherTerminal" _"/File" _"/Magtape" _"/TCPIP" _"/DSMDDP" _"/DTMDCP" _"/SystemCall" _"/Printer"Set IntTables = "PatternMatch" _"/Identifier" _"/Uppercase" _"/Lowercase" _"/Titlecase" _"/Collation" _"/XYAction"// iterate over the systems, and then the process dataFor Type = "System", "Process"{Write !Set Table = ##class(%SYS.NLS.Table).%New(Type)Write "Type: ", Type, !}Write "I/O Tables", !For i = 1 : 1 : $LENGTH(IOTables, "/"){Set PropName = $PIECE(IOTables, "/", i)Write $JUSTIFY(PropName, 15), ": ", $PROPERTY(Table, PropName), !}Write "Internal Tables", !For i = 1 : 1 : $LENGTH(IntTables, "/"){Set PropName = $PIECE(IntTables, "/", i)Write $JUSTIFY(PropName, 15), ": ", $PROPERTY(Table, PropName), !}2.1.2.4 日 付 と 時 刻 の 表 示 の 変 更%SYS.NLS.Format クラスには、 例 えば 日 付 項 目 と 時 間 項 目 を 区 切 る 文 字 をそれぞれに 保 持 する、DateSeparator および TimeSeparator プロパティが 含 まれます。 米 国 の 既 定 のロケールである enu8 (Unicode システムでは enuw) では、これらはそれぞれ、スラッシュ 文 字 (/) とコロン (:) になります。これらの 変 更 方 法 について 以 下 に 例 を 示 します。// display the current defaults// date is 10 April 2005// time is 6 minutes 40 seconds after 11 in the morningWrite $ZDATE("60000,40000"), !// now change the separators and display it againSet fmt = ##class(%SYS.NLS.Format).%New()Set fmt.DateSeparator = "_"Set fmt.TimeSeparator = "^"Write !, $ZDATE("60000,40000")以 下 に 示 すこの 例 では、 月 の 名 前 がアルファベットの 連 続 する 文 字 に 変 換 されます (デモンストレーション 用 )。このためには、MonthName プロパティに、スペースで 区 切 った 月 名 一 覧 を 設 定 します。リストの 先 頭 文 字 はスペースです。Caché 専 用 のシステム/ツールおよびユーティリティ 9