技術標籤：Caché 變數大全CachéCacheprincipal系統變數基礎變數

文章目錄

• 第十一章 Caché 變數大全 $PRINCIPAL 變數
• 大綱
• 描述
• 示例
• 注意

第十一章 Caché 變數大全 $PRINCIPAL 變數

包含主體I / O裝置的ID。

大綱

$PRINCIPAL
$P

描述

$PRINCIPAL包含當前程序的主要I / O裝置的ID。 $PRINCIPAL的運作方式類似於$IO。

如果關閉主裝置，則$PRINCIPAL不會更改。如果主要輸入和輸出裝置不同，則$PRINCIPAL反映主要輸入裝置的ID。

不能使用SET

示例

本示例使用$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是因為它是標準的，並且它使程式碼更靈活。