包含主体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
d ##class(PHA.TEST.SpecialVariables).PRINCIPAL()
主要设备是: |TCP|1972|10100
本示例使用并写入主体设备。
USE $PRINCIPAL
WRITE "output to $PRINCIPAL"
$PRINCIPAL
和 USE 0
$PRINCIPAL
在功能上等效于广泛使用的但非标准的USE 0
。使用$PRINCIPAL
而不是USE 0
是因为它是标准的,并且它使代码更灵活。
本文系转载,前往查看
如有侵权,请联系 cloudcommunity@tencent.com 删除。
本文系转载,前往查看
如有侵权,请联系 cloudcommunity@tencent.com 删除。