%SYS.Journal.Record 类有一个查询(query), List, 可以列出Journal文件中记录的数据修改历史。例如，要查询谁对global节点^QP(1,2)做过修改，可以使用如下代码。它查询Journal文件（输入参数pFilePath）中的global节点（输入参数pSearchGlobal）的操作：
ClassMethod"^QP(1,2)""C:\InterSystems\IRISHealth\mgr\journal\20220525.003"在生产环境中IRIS通常以故障转移集群的形态被部署，而集群中各故障转移成员的镜像状态将决定该集群在故障发生时是否能够顺利切换保障业务不中断。因此，成员状态通常也是运维团队需要巡检或监控的目标。
尽管IRIS内部API提供了丰富的集群配置、成员状态监控等一系列接口，但除Portal上的镜像监视器外，并没有特定的接口便于从外部系统访问（如进行企业级监控集成时），也没有整合好的监控接口可用与获取镜像的健康状态。但在IRIS上开发一个REST接口暴露镜像状态数据并不困难，如下所示：
Include %syMirrorClassParameter在该实现中，由于需要调用%SYS下的API，因此需要在执行过程中切换到%SYS命名空间，并在执行完毕后切换回原命名空间。
消息查看器可以重新发送消息，但不适合重新发送大量消息（>100）。为此，您应该使用如下的Object Script代码：
当我在 Intersystems Studio 中编写代码时，代码完成与在 VS Code 中不同。如果 VS Code 在代码完成时以相同的方式做出反应，那就太好了。Studio是这样的：.png)
在 VS Code 中执行此操作时，它不显示对象但显示 “所有可能的项目”吗？
我今天遇到了一个有趣的ObjectScript用例，有一个通用的解决方案，我想与大家分享。
我有一个JSON数组（在本例中具体而言是一个来自Jira的问题数组），我想在几个字段上进行聚合--例如，类别、优先级和问题类型。然后，我想把聚合的数据编平化到一个简单的列表中，其中包含每个组的总数。当然，对于聚合来说，使用一个本地数组的形式是有意义的，即:
agg(category, priority, type) = total
这样，对于输入数组中的每一条记录，我可以只用:
Do $increment(agg(category, priority, type))但是一旦我做了聚合，我想把它变成一种更容易迭代的形式，比如一个整数下标的数组:
简单的方法是，用$Order嵌套三个For循环--比如说:
Set category = ""
For {
Set category = $Order(agg(category))
Quit:category=""
Set priority = ""
For {
Set priority = $Order(agg(category,priority))
Quit:priority=""
Set type = ""
For {
Set type = $Order(agg(category,priority,type),1,total)
Quit:type=""
Set summary($i(summary)) = $listbuild(total,category,priority,type)
}
}
下面的代码允许用户查看其实例的审计设置。通过运行类方法 "test "来运行该代码。:
class objectscript.checkAudit Extends %RegisteredObject
{
classmethod test() {
w "Checking for Auditing...",!
Set SYSOBJ = ##class(Security.System).%OpenId("SYSTEM")
If +SYSOBJ = 0 Set SYSOBJ = ##class(Security.System).%New()
i SYSOBJ.AuditEnabled {
w "Security Auditing is enabled for the following services",!
s rs=##class(%ResultSet).%New("Security.Events:ListAllSystem")
s sc=rs.Execute() If $$$ISERR(sc) Do DisplayError^%apiOBJ(sc) Quit
while rs.%Next() {
d:rs.Data("Enabled")="Yes" rs.%Print()
}
d rs.Close()
s rs=##class(%ResultSet).%New("Security.Events:ListAllUser")
s sc=rs.Execute() If $$$ISERR(sc) Do DisplayError^%apiOBJ(sc) Quit
while rs.%Next() {
d:rs.Data("Enabled")="Yes" rs.%Print()
}
d rs.Close()
}
}
最近，我需要从持久类和序列类生成一个 Swagger 规范，所以我发布了我的代码（它并不完整 - 你仍然需要处理应用程序的细节，但这是一个开始）。 代码在这里。
假设你有下面的类：
你可以通过以下代码自动生成此 Swagger 定义：
REST.Test.Person:
type: "object"
properties:
Age:
type: "integer"
DOB:
type: "string"
FavoriteColors:
type: "array"
items:
type: "string"
FavoriteNumbers:
type: "object"
Home:
$ref: "#/definitions/REST.Test.Address"
Name:
type: "string"
Office:
$ref: "#/definitions/REST.Test.Address"
SSN:
type: "string"
Spouse:
$ref: "#/definitions/REST.Test.Person"
REST.Test.Address:
type: "object"
properties:
City:
type: "string"
State:
type: "string"
Street:
type: "string"
Zip:
type: "string"
当我开始使用 InterSystems IRIS，尤其是在互操作性方面时，我最初遇到的一个常见问题是：如何在间隔时间或计划内运行某项功能？在本专题中，我想分享两个简单的类来解决这个问题。我很惊讶在 EnsLib 的某个地方没有找到类似的类。也许是我搜索得不好？总之，这个主题并不意味着是复杂的工作，只是为初学者提供了几个片段。
根据日期范围查询的SQL性能让你失望？ 我有一个比较特别的技巧，可能会帮助你解决这个问题! (SQL开发人员讨厌这个!)*
如果你有一个类，在添加数据时记录时间戳，那么这些数据将与你的IDKEY值保持顺序--也就是说，当且仅当ID1<ID2时，表内所有ID和时间戳值的TimeStamp1<TimeStamp2--那么你可以利用这一知识来提高对时间戳范围的查询性能。 考虑一下下面这个表:
Class User.TSOrder extends %Persistent
{
Property TS as %TimeStamp;
Property Data as %String (MAXLEN=100, MINLEN=200);
Index TSIdx on TS;
Index Extent [type=bitmap, extent];
}用过去30天内的30,000,000条随机行来填充，每天将得到1,000,000条行。 现在，如果我们想查询某一天的信息，你可以这样写：
SELECT ID, TS, Data
FROM TSOrder
WHERE
TS >= '2016-07-01 00:00:00.00000' AND
TS <= '2016-07-01 23:59:59.999999'Hi，大家好!
这又是一个小小的“使用说明”。
假设您需要分享一些包含源代码的东西。 如何在 DC 上完成？
在使用InterSystems 互操作性（Iris/Health Connect/Ensemble）时，配置数据通常分散在许多生产项目中：服务、流程、操作、适配器及其设置。
常见的操作或安全需求是回答以下问题：
下面的 ObjectScript 工具正是通过将选定的配置设置导出到 CSV 文件来解决这个问题的。
该脚本
Ens_Config.Item):、/ 或 \ 的值）当您需要时，应使用此实用程序：
这对使用许多接口和适配器的多个产品的大型实例尤其有用。
ObjectScriptt至少有三种处理错误的方法（状态代码status codes、异常 exceptions, SQLCODE等）。大多数系统代码使用状态码，但由于一些原因，异常更容易处理。在处理遗留代码时，你要花一些时间在不同的技术之间进行转换。我经常使用这些片段作为参考。希望它们对其他人也是有用的。
///Status from SQLCODE:set st $$$ERRORClass Extends
大家好，
我需要根据用户请求删除Ensemble接口。我想为此编写一个程序，执行的时候将通过代码删除接口组件。
能否提供以下操作的代码示例？
感谢帮助。
谢谢，
普鲁索他曼
Ensemble Delete Individual Rules and Ensemble classes programmatically
Hi Team,
I have a requirement to delete the Ensemble interfaces , as per User request. I would like to write a routine for that and once I execute, it should remove the interface components through code.
Could you please provide code samples for the following actions ?
在测试你的代码时，你经常会遇到需要检查对象的实际内容。无论是使用 ZWRITE 还是 $system.OBJ.Dump()，
你会得到一个简单的属性图片，"--- 属性值---"
而 "--- swizzled references ---" 更容易让人混淆
用“--- calculated references ---" 你只是被留在了后面。
附件中的压缩文件包含了一些我多年来所做的Cache SQL Storage映射的例子。
如果你有现有的globals，并且想通过Objects或SQL暴露它们，你需要设置Cache SQL Storage映射。 如果你没有看到对你的情况有帮助的例子，请给我发一个例子，我可以帮你解决。
下载附件：https://community.intersystems.com/sites/default/files/post-associated-…