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

各 国 言 語 サポートのシステム・クラスの 使 用 法// Delete existing Locales instance with the same idDo ##class(Config.NLS.Locales).Delete("yen8")// Open source localeSet oldloc = ##class(Config.NLS.Locales).%OpenId("enu8")// Create cloneSet newloc = oldloc.%ConstructClone()// Set new Name and DescriptionSet newloc.Name = "yen8"Set newloc.Description = "New locale with EBCDIC table"ロケールが 適 切 に 設 定 されると、プロセスでは、 起 動 時 にロードされる I/O テーブルのリストに EBCDIC テーブルを 追加 します。これは、 以 下 のように、 配 列 プロパティ XLTTables にノードを 挿 入 することによって 行 われます。XLTTables() = • tablename により、このロケールの 入 力 テーブルと 出 力 テーブルのペアが 特 定 されます。この 名 前 は y で 始 まる 必 要 はないので、EBCDIC を 使 用 します。• components は、 以 下 のような 4 項 目 のリストです。1. 入 力 “From” のエンコーディング2. 入 力 “To” のエンコーディング3. 出 力 “From” のエンコーディング4. 出 力 “To” のエンコーディング以 下 のコードで、 使 用 可 能 なロケールのリストにテーブルを 追 加 します。// Add new table to localeSet component = $LISTBUILD("yEBCDIC", "Latin1", "Latin1", "yEBCDIC")Do newloc.XLTTables.SetAt(component, "EBCDIC")このロケールを、EBCDIC 磁 気 テープで 読 み 込 む 場 合 などに 頻 繁 に 使 用 する 場 合 は、 以 下 のコードで、このデバイスのクラスに 対 する 既 定 値 として 設 定 します。// Set default for Magnetic TapesSet newloc.TranMagTape = "EBCDIC"// Save the changesDo newloc.%Save()Caché でロケールを 使 用 できるようにするには、その 内 部 形 式 にコンパイルする 必 要 があります。これは、“ロケールの検 証 ” と 呼 ばれることもあります。IsValid() クラス・メソッドは、 詳 細 な 分 析 を 行 い、ロケールが 適 切 に 定 義 されていない場 合 、 人 間 が 読 むことのできるメッセージと 共 に、2 つの 配 列 を 返 します。1 つはエラーの 配 列 、もう 1 つは 警 告 の 配 列です。// Check locale consistencyIf '##class(Config.NLS.Locales).IsValid("yen8", .Errors, .Warns){Write !,"Errors: "}ZWrite ErrorsWrite !,"Warnings: "ZWrite WarnsQuit// Compile new localeSet status = ##class(Config.NLS.Locales).Compile("yen8")If (##class(%SYSTEM.Status).IsError(status)){Do $System.OBJ.DisplayError(status)}Else{Write !,"Locale yen8 successfully created."}Caché 専 用 のシステム/ツールおよびユーティリティ 15