第七十七章 使用 ^%IS - 示例
第七十六章 使用 ^%IS - 示例
示例
调用 CURRENT^%IS 后，将 $X 和 $Y 设置为 DX 和 DY 以定位光标。
DO CURRENT^%IS
WRITE *27,*61,*DY+32,*DX+32
SET $X=DX,$Y=DY
IN^%IS 入场点
IN 是 ^%IS 中的一个内部入口点，可以由仅计划从设备进行 input 的例程调用。此入口点可用于确保您不选择仅输出设备，例如打印机。
%SYS> Do IN^%IS
Device: 3
Right margin: 132= <RETURN>
[you can't read from this device]
Device: <RETURN>
Right margin: 80= <RETURN>
%SYS>
OUT^%IS 入口点
OUT 是 ^%IS 中的一个内部入口点，可以由仅计划向设备输出的例程调用。
Spooling
IRIS 假脱机独立于您的操作系统执行的假脱机。IRIS 中的假脱机是一种技术，可让自动将程序的输出保存在全局中，而不是立即打印。稍后可以通过将 global 的内容发送到打印机来打印输出。
助记词 SPOOL 是默认助记词。要指定假脱机，请输入 “SPOOL” 以响应 Device 提示符。然后，系统要求提供假脱机文件名和描述。这是 ^SPOOL 全局变量中使用的名称，而不是操作系统级别的单独文件名。
如果任何现有文件名以您指定的名称开头或与您指定的名称匹配，则会显示这些名称，并要求您选择一个名称。如果未选择任何现有文件，则系统允许您创建具有指定名称和描述的新文件，如以下示例所示：
Device: SPOOL
Name:TEST
1. 1 TEST 02 Nov 1999 10:17 am First test
2. 2 TEST 02 Nov 1999 10:18 am Second Test
Select one: <Return> not found
Create new document 'TEST'? Yes => yes
Description: Third Test
如果因为要继续添加到现有文件而重新选择现有文档，系统将为您提供以下选项：
- 添加到文件的最末尾;
- 在最后一页的顶部重新启动，在这种情况下，将被删除的行将显示在屏幕上;
- 从第
1页（开头）重新开始。
当你调用它进行假脱机时，你可以将下表中列出的变量传递给 ^%IS。
可以传递给 ^%IS 的假脱机变量
| Variable 变量 | Function 功能 |
|---|---|
IODOC | 文档名称（当此变量存在且不是空字符串时，所有问题都将被隐藏，并自动创建具有此名称的新文档）。 |
IODES | 自由文本描述。 |
IOPGM | 应在打印时调用的例程的名称，以允许用户为正确的表单对齐方式设置打印机。 |