OpenVMS マニュアル

12.11.2 シンボルの有効範囲

シンボルの有効範囲 は，ローカル・シンボルとグローバル・シンボルとでは異なります。プロシージャ・レベルを終了して，前のプロシージャに戻ると，ローカル・シンボルとグローバル・シンボルの両方で，前のレベルのシンボル有効範囲コンテキストが復元されます。

現在の汎用シンボルの有効範囲状態を表示するには，レキシカル関数 F$ENVIRONMENT("SYMBOL_SCOPE") を使用します。現在の動詞の有効範囲状態を表示するには，レキシカル関数 F$ENVIRONMENT("VERB_SCOPE") を使用します。

ローカル・シンボルの有効範囲

ローカル・シンボルはプロシージャ・レベルによって左右されます。ローカル・シンボルを外側のプロシージャ・レベルで定義すると，内側のどのプロシージャ・レベルでもシンボルを読み込むことができます (ただし，シンボルへの書き込みはできません)。外側のプロシージャ・レベルにローカルなシンボルに値を割り当てると，現在のプロシージャ・レベルで新しいシンボルが作成されます。ただし，外側のプロシージャ・レベルのシンボルは変更されます。

SET SYMBOL/SCOPE=NOLOCAL コマンドを使用すると，外側のプロシージャ・レベルで定義されたすべてのローカル・シンボルが現在のプロシージャ・レベルとその内側のプロシージャ・レベルではアクセスできなくなります。たとえば，プロシージャ・レベル 2 と 4 で SET SYMBOL/SCOPE=NOLOCAL を指定すると，次のようになります。

• プロシージャ・レベル 2 では，レベル 2 のローカル・シンボルのみの読み書きが可能。

• プロシージャ・レベル 3 では，レベル 2 のローカル・シンボルを読み込める ( 書き込みは不可 )。また，レベル 3 のローカル・シンボルの読み書きが可能。

• プロシージャ・レベル 4 では，レベル 4 のローカル・シンボルのみの読み書きが可能。

グローバル・シンボルの有効範囲

グローバル・シンボルはプロシージャ・レベルに左右されません。現在のグローバル・シンボルの有効範囲コンテキストがそれ以降のすべてのプロシージャ・レベルに適用されます。

/SCOPE=NOGLOBAL 修飾子を使用すると，/SCOPE=GLOBAL 修飾子を指定するか，プロシージャを終了して，グローバル・シンボルがアクセス可能であった前のレベルに戻るまで，すべてのグローバル・シンボルはそれ以降のすべてのコマンドにアクセスできません。また，/SCOPE=NOGLOBAL 修飾子を指定すると， /SCOPE=GLOBAL 修飾子指定するまで，新しいグローバル・シンボルを作成できなくなります。

12.12 シンボルの置換

コンテキストによっては，英字で始まる文字列がシンボル名またはレキシカル関数として使用されることがあります。このような場合，DCL はシンボルまたはレキシカル関数をその値と置き換えようとします。シンボルをその現在の値で置き換えることをシンボル置換といいます。これ以外のコンテキストでシンボルまたはレキシカル関数を使用する場合には，置換演算子を使用してシンボル置換を要求しなければなりません。

シンボルの自動評価

シンボルやレキシカル関数が次のように使用された場合， DCL はシンボルやレキシカル関数を自動的に評価します。

• 割り当て (=) 文の右辺

• レキシカル関数の引数の中

• DEPOSIT，EXAMINE，IF，または WRITE コマンドの中

• 文字列の後に等号またはコロンが付かない場合，コマンド行の先頭

• 部分文字列置換または数値オーバレイを実行している場合の，割り当て文の左辺にある大括弧の中 ( 第 12.6.5 項 を参照)

次の例では，コマンド・インタプリタは，英字で始まる文字列をシンボル名として，数値または基数演算子(%) で始まる文字列をリテラル数値として使用します。

• 次の例では，COUNT が自動的に認識され，シンボルとして評価されます。

  $ TOTAL = COUNT + 1

• この例では，2 行目で，QUERY シンボルが F$LENGTH 関数と一緒に使用されているため， QUERY は自動的に評価されます。また，F$LENGTH 関数は割り当て文の右辺にあるため，自動的に評価されます。

  $ QUERY = "Have we met before?" $ LEN = F$LENGTH(QUERY) + 5 $ SHOW SYMBOL LEN LEN = 27 Hex = 0000001B Octal = 000033

• 次の例では，IF コマンドは A と B の両方をシンボル名として使用し，その現在の値を使用します。

  $ IF A .EQ. B THEN WRITE SYS$OUTPUT "DONE"

• この例では，2 行目で，コマンド・インタプリタは， PDEL をその現在の値と自動的に置き換え，その結果得られたコマンドを実行します。

  $ PDEL = "DELETE SYS$PRINT/ENTRY=" $ PDEL 181

• 次の例では，DCL はシンボル BELL を 7 という値として自動的に定義し，代入文の左辺の大括弧で囲まれた値をもとに，新しい値を割り当てます。

  $ BELL = 7 $ BELL[5,1] = 1 $ SHOW SYMBOL BELL BELL = 39 Hex = 00000027 Octal = 00000000047

12.12.1 シンボル置換の強制

上記の場所にないシンボルの置換を強制するには，次にようにシンボルを一重引用符 (') で囲みます。

$ TYPE 'B'

引用符で囲まれた文字列の中のシンボルの置換を強制するには，そのシンボルの前に 2 つの一重引用符 (') を付け，シンボルの後に 1 つの一重引用符 (') を付けます。

$ T = "TYPE ''B'"

コマンド行を処理する場合，DCL は次の順序でシンボルをその値に置換します。

• 強制置換
  一重引用符 (二重引用符で囲まれた文字列の場合には，2 つの一重引用符) で区切られたすべての文字列を左から右に置換します。前に 1 つの一重引用符が付いたシンボルは反復変換されますが，前に 2 つの一重引用符が付いたシンボルは反復変換されません。

• 自動置換
  コマンド行の中のそれぞれの値を左から右に評価して，値がコマンドの場合は実行し，式の場合には評価します。式の中のシンボルは割り当てられた値と置き換えられますが，この置換は反復されません。

次の例は，DCL がシンボルを置換する順序がどのように影響するかを示しています。シンボル PN，FILE1，および NUM は，次のように定義します。

$ PN = "PRINT/NOTIFY" $ FILE1 = "[BOLIVAR]TEST_CASE.TXT" $ NUM = 1

このシンボル定義の場合，次のコマンドは，[BOLIVAR]TEST_CASE.TXT というファイルを印刷します。

$ FILE = "'FILE''NUM''" $ PN 'FILE'

最初のコマンドでは，強制置換によって NUM が 1 になり， FILE''NUM' は FILE1 になります。 SHOW SYMBOL FILE コマンドを入力すると， FILE="'FILE1'" になります。

2 番目のコマンドは 2 つの置換を行います。最初に，'FILE' は 'FILE1' に置換されます。一重引用符 (') で囲まれているため， 'FILE1' も置換が必要です。自動置換によって FILE1 は [BOLIVAR]TEST_CASE.TXT になります。このファイル名は次に，PN の値である PRINT/NOTIFY に渡されます。結果は，次のような文字列になります。

$ PRINT/NOTIFY [BOLIVAR]TEST_CASE.TXT

---

目次

索引