第十一章 Caché 变量大全 $PRINCIPAL 变量

包含主体I / O设备的ID。

大纲

$PRINCIPAL
$P

描述

$PRINCIPAL包含当前进程的主要I / O设备的ID。 $PRINCIPAL的运作方式类似于$IO。

如果关闭主设备，则$PRINCIPAL不会更改。如果主要输入和输出设备不同，则$PRINCIPAL反映主要输入设备的ID。

不能使用SET命令修改此特殊变量。尝试这样做会导致<SYNTAX>错误。

示例

本示例使用$PRINCIPAL测试主体设备。

/// d ##class(PHA.TEST.SpecialVariables).PRINCIPAL()
ClassMethod PRINCIPAL()
{
    IF $PIECE($PRINCIPAL,"|",4) {
        WRITE "主要设备是: ",$PRINCIPAL 
    } ELSE { 
        WRITE "未定义" 
    }
}

• 终端

DHC-APP>d ##class(PHA.TEST.SpecialVariables).PRINCIPAL()
主要设备是: |TRM|:|15356

• studio

d ##class(PHA.TEST.SpecialVariables).PRINCIPAL()
主要设备是: |TCP|1972|10100

本示例使用并写入主体设备。

   USE $PRINCIPAL 
   WRITE "output to $PRINCIPAL"

注意

$PRINCIPAL 和 USE 0

$PRINCIPAL在功能上等效于广泛使用的但非标准的USE 0。使用$PRINCIPAL而不是USE 0是因为它是标准的，并且它使代码更灵活。