嗨，社区，

我正在尝试访问对象的另一个进程的内容，例如％request和％session。我正在使用类/方法“％SYS.ProcessQuery：VariableByPid”。有谁知道如何从数据库服务器上运行的一个进程中获取诸如％request.Data（“ ID”，1）之类的属性的值？

我想做的例子：

        set rs=##class(%ResultSet).%New("%SYS.ProcessQuery:VariableByPid")
        set tsc=rs.Execute(ProcessID,"%request")
        while rs.%Next() { 
            w "Name:"_$g(rs.Data("Name")),!
             w "Value:"_$g(rs.Data("Value")),!
        }
        do rs.Close()

Output:

Name:%request
Value:1@%CSP.Request

我只是可以看到对象引用1@%CSP.Request，我不确定我们是否有办法检查对象属性。

谢谢，

丹尼尔

Hi Community,

第六章 从POP3服务器提取电子邮件

从POP3服务器提取电子邮件

与POP3服务器通信

如果拥有所需的权限，并且邮件服务器正在运行，则可以使用POP3协议从该服务器下载和处理电子邮件。通常，要与POP3服务器通信，请登录，执行一系列影响邮箱的操作，然后提交或回滚任何更改。要在系统间IRIS中执行此操作，请执行以下操作：

1. 创建%Net.POP3的实例。此对象描述将使用的POP3服务器。
2. 可以选择指定%Net.POP3实例的以下属性：

第五章 向邮件添加附件

向邮件添加附件

可以将附件添加到电子邮件或消息部分(具体地说，是添加到%Net.MailMessagePart或%Net.MailMessage的实例)。要执行此操作，请使用以下方法：

这些方法中的每一种都会将附件添加到原始邮件(或邮件部分)的Parts数组中，并自动将IsMultiPart属性设置为1。

AttachFile()

method AttachFile(Dir As %String, 
                  File As %String, 
                  isBinary As %Boolean = 1, 
                  charset As %String = "", 
                  ByRef count As %Integer) as %Status

将给定文件附加到电子邮件。默认情况下，文件以二进制附件的形式发送，但您可以将其指定为文本。如果文件是文本，还可以指定该文件使用的字符集。

cache2016开始提供了支持JSON的系统类，%DynamicAbstractObject%DynamicArray%DynamicObject， 不知是否可将这些系统类导入到之前的版本（如cache2012）， 从而实现支持JSON操作，或者是有何其他简单的解决办法

问题背景

目前不论开发和项目的数据库版本大部分是2016+，且广泛使用JSON，但当偶尔向低版本用户部署程序时，会遇到对JSON支持的问题

新安装的cache,本地可以连接terminal,远程主机连接失败，telnet 23端口失败

我本人和其他技术架构师经常需要向客户和供应商说明 Caché IO 要求以及 Caché 应用程序使用存储系统的方式。 在向客户和供应商说明典型的 Caché IO 配置文件和事务性数据库应用程序的要求时，下面的表格很有用。  原始表格由 Mark Bolinsky 创建。

在以后的帖子中，我将讨论更多关于存储 IO 的内容，所以现在贴上这些表格也作为将来文章的参考。 

您的应用程序已部署，一切运行正常。 很好，击个掌！ 然后电话突然响个不停 – 用户投诉应用程序有时很“慢”。 这是什么意思？ 有时？ 您有哪些工具，查找和解决这个缓慢问题应查看哪些统计数据？ 您的系统基础架构是否能承担用户负载的任务？ 在投入生产之前，应该询问哪些基础架构设计问题？ 如何自信地为新硬件规划容量，而不会过度规定？ 如何停止电话铃声？ 如何一开始就不让它响？

第四章 收发电子邮件

本主题描述如何使用InterSystems IRIS发送和接收MIME电子邮件消息。

注意:本主题中的示例是经过组织的，因此管理电子邮件的方法可以用于不同的电子邮件服务器，这在测试和演示期间非常有用。这不一定是最适合生产需要的代码组织。

支持电子邮件协议

电子邮件使用标准协议通过Internet发送消息。 InterSystems IRIS支持以下三种协议:

• InterSystems IRIS提供MIME电子邮件的对象表示形式。它支持文本和非文本附件、单部分或多部分邮件正文，以及ASCII和非ASCII字符集的标题。
• 可以通过SMTP服务器发送电子邮件。SMTP(简单邮件传输协议)是发送电子邮件的Internet标准。
• 还可以通过POP3从电子邮件服务器检索电子邮件，POP3是从远程服务器检索电子邮件的最常用标准。

注意：InterSystems IRIS不提供邮件服务器。相反，它提供了连接到邮件服务器并与之交互的功能。

InterSystems IRIS如何表示MIME电子邮件

首先，了解InterSystems IRIS如何表示MIME电子邮件非常有用。

通常，多部分MIME邮件由以下部分组成：

• 一组邮件标头，每个标头都包含邮件发送到的地址等信息。这还包括整个消息的Mime-Type标头和Content-Type标头。

第三章 发送HTTP请求

发送HTTP请求

创建HTTP请求后，使用以下方法之一发送该请求：

Delete()

method Delete(location As %String = "", 
              test As %Integer = 0, 
              reset As %Boolean = 1) as %Status

发出HTTP DELETE请求。

Get()

method Get(location As %String = "", 
           test As %Integer = 0, 
           reset As %Boolean = 1) as %Status

发出HTTP GET请求。此方法使Web服务器返回请求的页面。

Head()

method Head(location As %String, 
            test As %Integer = 0, 
            reset As %Boolean = 1) as %Status

发出HTTP Head请求。此方法使Web服务器仅返回响应头，而不返回正文。

Patch()

第二章 设置和获取HTTP标头

设置和获取HTTP标头

可以设置和获取HTTP标头的值。

%Net.HttpRequest的以下每个属性都包含具有相应名称的HTTP标头的值。如果不设置这些属性，则会自动计算它们：

• Authorization
• ContentEncoding
• ContentLength(此属性为只读。)
• ContentType (指定Content-Type标头的Internet媒体类型(MIME类型)。)
• ContentCharset (指定Content-Type标题的字符集部分。如果设置此属性，则必须首先设置ContentType属性。)
• Date
• From
• IfModifiedSince
• Pragma
• ProxyAuthorization
• Referer
• UserAgent

%Net.HttpRequest类提供可用于设置和获取主HTTP标头的常规方法。这些方法忽略Content-Type和其他实体标头。

ReturnHeaders()

返回包含此请求中的主HTTP标头的字符串。

OutputHeaders()

将主HTTP标头写入当前设备。

GetHeader()

返回此请求中设置的任何主HTTP标头的当前值。此方法接受一个参数，即头的名称(不区分大小写)；这是一个字符串，如Host或Date

SetHeader()

IRIS 单元测试

第一章 单元测试概述☆☆☆☆

第二章 使用%UnitTest进行单元测试☆☆☆☆

第三章 执行测试☆☆☆

第四章 使用Setup和tear Down方法执行测试☆☆☆

前言

IRIS提供了用于对应用程序进行单元测试的类的%UnitTest包。该包为快速开发单元测试类、执行测试和创建报告提供了便利。可以直接使用该包，也可以扩展其类来自定义单元测试工具。%UnitTest在结构上与用于单元测试的xUnit框架非常相似。熟悉这些框架的开发人员使用%UnitTest会特别容易。

本教程提供对%UnitTest包的快速实践介绍。本教程的第一部分和第二部分是相互独立的，可以按任何顺序完成。

• 完成本教程的第一部分，了解单元测试和集成测试之间的区别、xUnit框架和%UnitTest之间的结构相似性，以及单元测试在敏捷应用程序开发方法中的作用。
• 完成本教程的第二部分，学习如何使用%UnitTest中的类为InterSystems IRIS应用程序创建和执行单元测试。

注意：本教程假定基本熟悉ObjectScript和InterSystems IRIS的面向对象开发。

预告

下一期系列将用一个月的时间连载，《Caché 网络实用工具》，敬请期待。

交流群

• QQ群号：410039091
• 笔者QQ：454115408
• 公众号：技术理科直男
• intersys版主：姚鑫

那些已经与ECP合作过的人可能知道它不仅在操作系统，处理器技术（big-little-endian），但在C / E的各个版本中也有限制。
此交叉版本功能还包括IRIS（针对2020.1进行了验证）和C / E（2018.3）

我面临着同时在IRIS和CACHÉ上开设一堆课程的挑战
直到所有系统都迁移到IRIS。

在Caché开发环境中应用更改并迁移到IRIS没问题

但是，如果我必须对IRIS进行修复，似乎没有干净的方法可以返回Caché。

第四章 使用Setup和tear Down方法执行测试

示例：使用Setup和tear Down方法执行测试

以通常的方式执行新的单元测试。

1. 在一直在使用的命名空间中打开终端。
2. 将^UnitTestRoot的值设置为包含测试类的目录的父级：

USER> Set ^UnitTestRoot="c:\unittests"

3. 使用%UnitTest.Manager执行测试：

USER> Do ##class(%UnitTest.Manager).RunTest("mytests")

4. IRIS加载测试类、编译类、执行测试并向终端发送报告。

webservice服务，在浏览器中调用成功，在soapui工具中调用失败“wsse:FailedAuthentication”

第三章 执行测试

示例：执行测试

现在使用%UnitTest.Manager.RunTest执行单元测试。以下是方法：

1. 在包含单元测试的名称空间中打开终端；在本例中为用户。如果终端未在正确的命名空间中打开，请使用ZN更改命名空间。
2. 将^UnitTestRoot全局值设置为包含导出的测试类的目录的父级。

DHC-APP>Set ^UnitTestRoot="d:\Temp"

3. 使用方法%UnitTest.Manager.RunTest执行测试。

DHC-APP>do ##class(%UnitTest.Manager).RunTest("test")

4. IRIS从XML文件加载测试类，编译类，执行测试，从服务器删除测试代码，并向终端发送报告。

第二章 使用%UnitTest进行单元测试

本教程的第二部分介绍了如何使用%UnitTest包对InterSystems IRIS代码进行单元测试。完成本教程的这一部分后，将能够：

• 解释%UnitTest包中三个主要类的角色。
• 列出基于%UnitTest包的单元测试类和方法的要求。
• 创建并执行方法的单元测试。
• 浏览%UnitTest.Manager创建的测试报告。
• 执行单元测试时，使用%UnitTest.TestCase方法初始化和还原数据库数据。

什么是%UnitTest？

%UnitTest包是一组为IRIS提供测试框架的类。在结构上，它类似于xUnit测试框架。%UnitTest为创建和执行以下各项的单元测试提供类和工具：

• 类和方法
• ObjectScript例程(routines)
• InterSystems SQL脚本
• Productions

创建和执行单元测试套件

以下是创建和执行一套单元测试的基本步骤：

第一章 单元测试概述

本教程的第一部分概述了单元测试。完成本教程的这一部分后，将能够：

• 定义单元测试并区分单元测试和集成测试
• 列出单元测试的几个好处
• 描述InterSystems IRIS %UnitTest包和xUnit测试框架之间的相似性。
• 列出软件开发中测试优先方法经常声称的几个好处。

什么是单元测试?

单元测试是对单个代码模块的正确性的测试，例如，方法或类的测试。通常，开发人员在开发代码时为其代码创建单元测试。典型的单元测试是一种执行方法的方法，该方法测试并验证该方法是否为给定的一组输入生成了正确的输出。

单元测试不同于集成测试。集成测试验证了一组代码模块交互的正确性。单元测试仅单独验证代码模块的正确性。一组代码模块的集成测试可能会失败，即使每个模块都通过了单元测试。

为什么要进行单元测试？

单元测试提供了许多好处，包括：

• 提供代码模块是否正确的验证。这是单元测试的主要原因。
• 提供自动回归测试。更改代码模块后，应重新运行单元测试，以确保代码模块仍然正确。也就是说，应该使用单元测试来确保更改没有破坏代码模块。理想情况下，所有代码模块的单元测试都应该在更改任何一个模块之后运行。
• 提供文档。通常，代码模块的单元测试与代码模块一起交付。检查单元测试提供了大量有关代码模块如何工作的信息。

XUnit测试框架

Caché Global

第一章 简介global☆☆☆☆☆

第二章 全局变量结构（一）☆☆☆☆☆

第二章 全局变量结构（二）☆☆☆☆☆

第三章 使用多维存储(全局变量)（一）☆☆☆☆☆

第三章 使用多维存储(全局变量)（二）☆☆☆☆☆

第三章 使用多维存储(全局变量)（三）☆☆☆☆☆

第三章 使用多维存储(全局变量)（四）☆☆☆☆☆

第四章 多维存储的SQL和对象使用（一）☆☆☆☆☆

第四章 多维存储的SQL和对象使用（二）☆☆☆☆☆

第五章 管理全局变量（一）☆☆☆☆☆

第五章 管理全局变量（二）☆☆☆☆☆

第六章 临时全局变量和IRISTEMP数据库☆☆☆☆☆

前言

经过快一个月的连载 《Caché Global》 共12篇。对于刚接触M的语言的同学，由浅入深帮助你快速进步，对于老手，丰富更多的细节

涵盖以下主题：

• “简介”概述了全局变量的功能和用途。
• “全局变量结构”描述了全局变量是如何存储在磁盘上的，它们是如何命名和引用的，以及它们的结构。
• “使用多维存储(全局)”介绍如何以编程方式使用全局变量。
• “多维存储的SQL和对象使用”描述了对象和SQL引擎如何使用全局变量存储数据。
• “管理全局变量”介绍了主要从管理门户管理全局的工具。
• “临时全局变量和TEMP数据库”描述了如何使用临时全局变量来帮助进行复杂的处理。

预告

第六章 临时全局变量和IRISTEMP数据库

对于某些操作，可能需要全局变量的功能，而不需要无限期保存数据。例如，可能希望使用全局对某些不需要存储到磁盘的数据进行排序。对于这些操作，InterSystems IRIS提供了临时全局机制。该机制的工作方式如下：

• 对于应用程序名称空间，可以定义一个全局映射，以便将具有特定命名约定的全局变量映射到IRISTEMP数据库，该数据库是一个特殊的数据库，如下所述。

例如，可以定义一个全局映射，以便将名称为^AcmeTemp*的所有全局变量映射到IRISTEMP数据库。

• 当代码需要临时存储数据并再次读取它时，代码将向使用该命名约定的全局变量写入数据，并从全局变量读取数据。

例如，要保存值，代码可能会执行以下操作：

 set ^AcmeTempOrderApp("sortedarray")=some value

然后，稍后代码可能会执行以下操作：

 set somevariable = ^AcmeTempOrderApp("sortedarray")

通过使用临时全局变量，可以利用IRISTEMP数据库没有日志记录这一事实。因为数据库没有日记记录，所以使用该数据库的操作不会产生日记文件。日志文件可能会变得很大，并可能导致空间问题。但是，请注意以下几点：

第五章 管理全局变量（二）

在全局变量中查找值

“查找全局变量字符串”页使可以在下标或选定全局变量的值中查找给定的字符串。

要访问和使用此页，请执行以下操作：

1. 显示“全局变量”页。
2. 选择要使用的全局变量。为此，请参阅“全局页简介”一节中的步骤2和3。
3. 单击查找按钮。
4. 对于查找内容，输入要搜索的字符串。
5. (可选)清除大小写匹配。默认情况下，搜索区分大小写。
6. 单击Find First或Find All。

然后，页面显示选定全局变量中下标或值包含给定字符串的第一个节点或所有节点。该表左侧显示了节点下标，右侧显示了相应的值。

7. 如果使用的是Find First，请根据需要单击Find Next以查看下一个节点。
8. 完成后，单击关闭窗口。

执行批量更换

注意:在进行任何编辑之前，请确保知道IRIS使用哪个全局系统，以及应用程序使用哪个全局系统；参见“一般建议”此选项会永久更改数据。不建议在生产系统中使用。

出于开发目的，“查找全局字符串”页面还提供了对全局节点中的值进行整体更改的选项。要使用此选项:

1. 显示“全局”页面。
2. 选择要使用的全局。为此，请参见“全球页面简介”一节中的步骤2和3
3. 单击替换按钮。
4. 使用此页面查找上一节中描述的值。
5. 为“替换为”指定一个值。
6. 单击全部替换。
7. 单击确定确认此操作。然后，页面会显示变更的预览。
8. 如果结果可以接受，请单击保存。
9. 单击确定确认此操作。

导出全局变量

第五章 管理全局变量（二）

在全局变量中查找值

“查找全局变量字符串”页使可以在下标或选定全局变量的值中查找给定的字符串。

要访问和使用此页，请执行以下操作：

1. 显示“全局变量”页。
2. 选择要使用的全局变量。为此，请参阅“全局页简介”一节中的步骤2和3。
3. 单击查找按钮。
4. 对于查找内容，输入要搜索的字符串。
5. (可选)清除大小写匹配。默认情况下，搜索区分大小写。
6. 单击Find First或Find All。

然后，页面显示选定全局变量中下标或值包含给定字符串的第一个节点或所有节点。该表左侧显示了节点下标，右侧显示了相应的值。

7. 如果使用的是Find First，请根据需要单击Find Next以查看下一个节点。
8. 完成后，单击关闭窗口。

执行批量更换

注意:在进行任何编辑之前，请确保知道IRIS使用哪个全局系统，以及应用程序使用哪个全局系统；参见“一般建议”此选项会永久更改数据。不建议在生产系统中使用。

出于开发目的，“查找全局字符串”页面还提供了对全局节点中的值进行整体更改的选项。要使用此选项:

1. 显示“全局”页面。
2. 选择要使用的全局。为此，请参见“全球页面简介”一节中的步骤2和3
3. 单击替换按钮。
4. 使用此页面查找上一节中描述的值。
5. 为“替换为”指定一个值。
6. 单击全部替换。
7. 单击确定确认此操作。然后，页面会显示变更的预览。
8. 如果结果可以接受，请单击保存。
9. 单击确定确认此操作。

导出全局变量

本贴提供了在 VMware ESXi 5.5 及更高版本的环境中部署 Caché 2015 及更高版本时，关于配置、系统规模调整和容量规划等方面的指南。

我假定您已经了解 VMware vSphere 虚拟化平台，所以直接给出推荐。 本指南中的推荐不特定于任何具体硬件或站点特定的实现，也不应作为规划和配置 vSphere 部署的全面指南，而是一份您可以做出选择的最佳实践配置清单。 我希望您的 VMware 专家实施团队能针对具体站点对这些推荐进行评估。

这里是 InterSystems 数据平台和性能系列的其他帖子的列表。

_注：_本帖更新于 2017 年 1 月 3 日，强调必须为生产数据库实例设置虚拟机内存预留，以保证 Caché 有足够内存可用，并且不会出现内存交换或膨胀而对数据库性能产生负面影响。 更多详细信息，请参见下面的内存部分。

在本帖中，我将展示使用_外部备份_来备份 Caché 的策略，以及与基于快照的解决方案集成的示例。 如今，大多数解决方案部署在基于 VMware 的 Linux 上，因此许多帖子都以展示解决方案如何集成 VMware 快照技术为例。

Caché 备份 - 包括电池？

Caché 安装后即包含 Caché 在线备份，可提供不间断的 Caché 数据库备份。 但随着系统规模的扩大，您应该考虑更高效的备份解决方案。 集成了快照技术的_外部备份_是推荐的系统（包括 Caché 数据库）备份解决方案。

外部备份有特殊注意事项吗？

外部备份的在线文档包含了全部详细信息。 一个关键考虑事项是：

“为确保快照的完整性，Caché 提供了在创建快照时冻结数据库写操作的方法。 在创建快照期间，只冻结对数据库文件的物理写入，从而允许用户进程继续在内存中不间断地执行更新。”

还需要注意的是，虚拟化系统上的部分快照过程会导致正在备份的虚拟机短暂暂停，这段时间通常称为关闭时间。 该时间通常不到一秒，因此不会被用户注意到，也不会影响系统运行，但在某些情况下，关闭时间可能较长。 如果关闭时间长于 Caché 数据库镜像的 QoS 超时时间，那么备份节点将认为主节点出现故障，并将进行故障转移。 在本帖的后面部分，我将说明在需要对镜像 QoS 超时时间进行更改时如何查看关闭时间。

部分 在上个帖子中，我们安排了使用 pButtons 进行 24 小时的性能指标收集。 在本帖中，我们将研究几个收集到的关键指标，以及它们与底层系统硬件的关系。 我们还将开始探索 Caché（或任一 InterSystems 数据平台）指标与系统指标之间的关系。 以及如何使用这些指标来了解系统的每日节拍率并诊断性能问题。

本周，我将关注 CPU - 主要硬件食物群之一 :) 一位客户请我就以下情况提供建议：他们的生产服务器已接近使用寿命终止，是时候更新硬件了。 他们还考虑通过虚拟化来整合服务器，并希望适当调整裸机或虚拟机的容量规模。 今天我们将关注 CPU，在后面的帖子中，我将介绍适当调整其他主要食物群（内存和 IO）规模的方法。

所以问题是：

• 如何将五年多以前对处理器的应用要求转换成针对当今的处理器？
• 目前的处理器有哪些是合适的？
• 虚拟化如何影响 CPU 容量计划？

本帖将展示为 InterSystems 数据平台上运行的数据库应用调整共享内存需求（包括 global 和例程缓冲区、gmheap 以及 locksize）的方法，以及在配置服务器和虚拟化 Caché 应用程序时应考虑的一些性能提示。 和以往一样，当我谈到 Caché 时，我指的是所有数据平台（Ensemble、HealthShare、iKnow 和 Caché）。

当我最初开始使用 Caché 时，大多数客户的操作系统是 32 位的，Caché 应用程序的内存有限且昂贵。 通常部署的英特尔服务器只有几个核心，唯一的扩展方式是选择大型服务器，或者使用 ECP 横向扩展。 现在，即使是基本的生产级服务器也具有多个处理器、几十个核心，并且最小内存为 128 或 256 GB，可能达到 TB。 对于大多数数据库安装，ECP 已被遗忘，我们现在可以在单台服务器上大幅提高应用事务处理速率。

第四章 多维存储的SQL和对象使用（二）

索引

持久化类可以定义一个或多个索引；其他数据结构用于提高操作(如排序或条件搜索)的效率。InterSystems SQL在执行查询时使用这些索引。InterSystems IRIS对象和SQL在执行INSERT、UPDATE和DELETE操作时自动维护索引内的正确值。

标准索引的存储结构

标准索引将一个或多个属性值的有序集与包含属性的对象的对象ID值相关联。

例如，假设我们定义了一个简单的持久化MyApp.Person类，该类具有两个文本属性和一个关于其Name属性的索引：

Class MyApp.Person Extends %Persistent
{
Index NameIdx On Name;

Property Name As %String;
Property Age As %Integer;
}

如果我们创建并保存此Person类的多个实例，则生成的数据和索引全局变量类似于：

第四章 多维存储的SQL和对象使用（一）

本章介绍InterSystems IRIS®对象和SQL引擎如何利用多维存储(全局变量)来存储持久对象、关系表和索引。

尽管InterSystems IRIS对象和SQL引擎会自动提供和管理数据存储结构，但了解其工作原理的详细信息还是很有用的。

数据的对象视图和关系视图使用的存储结构是相同的。为简单起见，本章仅从对象角度介绍存储。

数据

每个使用%Storage.Persistent存储类(默认)的持久化类都可以使用多维存储(全局变量)的一个或多个节点在InterSystems IRIS数据库中存储其自身的实例。

每个持久化类都有一个存储定义，用于定义其属性如何存储在全局变量节点中。这个存储定义(称为“默认结构”)由类编译器自动管理。

默认结构

用于存储持久对象的默认结构非常简单：

• 数据存储在名称以完整类名(包括包名)开头的全局变量中。附加“D”以形成全局数据的名称，而附加“I”作为全局索引。
• 每个实例的数据都存储在全局数据的单个节点中，所有非瞬态属性都放在$list结构中。
• 数据全局变量中的每个节点都以对象ID值作为下标。默认情况下，对象ID值是通过调用存储在全局变量数据根(没有下标)的计数器节点上的$Increment函数提供的整数。

例如，假设我们定义了一个简单的持久化类MyApp.Person，它有两个文本属性：

第三章 使用多维存储(全局变量)（四）

管理事务

InterSystems IRIS提供了使用全局变量实现完整事务处理所需的基本操作。 InterSystems IRIS对象和SQL自动利用这些特性。 如果直接将事务性数据写入全局变量，则可以使用这些操作。

事务命令是TSTART，它定义事务的开始; TCOMMIT，它提交当前事务; 和TROLLBACK，它将中止当前事务，并撤消自事务开始以来对全局变量所做的任何更改。

例如，下面的ObjectScript代码定义了事务的开始，设置了一些全局变量节点，然后根据ok的值提交或回滚事务:

/// w ##class(PHA.TEST.Global).GlobalTro(0)
ClassMethod GlobalTro(ok)
{

	TSTART

	Set ^Data(1) = "Apple1"
	Set ^Data(2) = "Berry1"

	If (ok) {
		TCOMMIT
	}
	Else {
	 	TROLLBACK
	}
	zw ^Data
	q ""
}