14.18.2 場合分け文の作成 |
 |
場合分け文を作成するには，次の手順に従ってください。
| 1
|
INQUIRE コマンドを使用して場合分け変数の値を得る。
|
| 2
|
IF コマンドと一緒にF$LOCATE と F$LENGTH を使用して，場合分け変数の値が有効かどうかを判別する。
|
| 3
|
場合分け変数が有効な場合には，場合分け文 (GOTO コマンド ) を実行して，該当するコード・ブロックに制御を渡す。
場合分け変数が有効でない場合は，メッセージを表示して処理を終了するか，別の場合分け値を要求する。
|
次の例では，ラベルが完全なコマンド名に定義されています。したがって，F$LOCATE は，コマンド名の検索文字列の中に区切り文字を含めて，コマンドが短縮されないようにしています。
$GET_COMMAND:
$ INQUIRE COMMAND -
"Command (EXIT,PURGE,DELETE)"
$ IF F$LOCATE ("/"+COMMAND+"/",COMMAND_LIST) .EQ. -
F$LENGTH (COMMAND_LIST) THEN GOTO ERROR_1
$ GOTO 'COMMAND'
.
.
.
$ERROR_1:
$ WRITE SYS$OUTPUT "No such command as ''COMMAND'."
$ GOTO GET_COMMAND
|
それぞれのコマンド・ブロックには，1 つ以上のコマンドを指定できます。コマンド・ブロックの先頭には固有のラベルを付けます。それぞれのコマンド・ブロックを終わるときには，コマンド・ブロックのリストにないラベルに制御を渡します。
コマンド・ブロックの作成
次の例では，それぞれのコマンド・ブロックに，1つ以上のコマンドを指定しています。コマンド・ブロックの先頭には固有のラベルを付けます (PURGE:, DELETE:)。それぞれのコマンド・ブロックを終わるときには，コマンド・ブロックのリストにないラベル(GOTO GET_COMMAND) に制御を渡します。
$GET_COMMAND:
.
.
.
$PURGE:
$ INQUIRE FILE
$ PURGE 'FILE'
$ GOTO GET_COMMAND
$ !
$DELETE:
$ INQUIRE FILE
$ DELETE 'FILE'
$ GOTO GET_COMMAND
$ !
$EXIT:
|
コマンド・ブロックの先頭に，変数をテストするループを作成できます (
第 13 章 を参照 )。しかし，次の操作を実行すれば，ループの最後に終了変数をテストするループを作成することもできます。
| 1
|
ループを開始する。
|
| 2
|
ループ本体の中のコマンドを実行する。
|
| 3
|
終了変数を変更する。
|
| 4
|
終了変数をテストする。
条件が満足されない場合は，ループの始めに戻る。
|
| 5
|
ループを終了する。
|
ループの終わりにある終了変数をテストする場合は，終了変数の中の値にかかわらず，ループ本体のコマンドが少なくとも 1 回は実行されます。
次の 2 つの例は， COMMAND が "EX" (EXIT) に定義されたときに終了するループを実行します。 F$EXTRACT は COMMAND を最初の 2 文字に切り捨てます。最初の例では，終了変数の COMMAND がループの始めにテストされ， 2 番目の例では，ループの終わりでテストされます。
$ ! EXAMPLE 1
$ !
$GET_COMMAND:
$ INQUIRE COMMAND-
"Command (EXIT,DIRECTORY,TYPE,PURGE,DELETE,COPY)"
$ COMMAND = F$EXTRACT(0,2,COMMAND)
$ IF COMMAND .EQS. "EX" THEN GOTO END_LOOP
.
.
.
$ GOTO GET_COMMAND
$END_LOOP:
|
$ ! EXAMPLE 2
$ !
$GET_COMMAND:
$ INQUIRE COMMAND-
"Command (EXIT,DIRECTORY,TYPE,PURGE,DELETE,COPY)"
$ COMMAND = F$EXTRACT(0,2,COMMAND)
.
.
.
$ IF COMMAND .NES. "EX" THEN GOTO GET_COMMAND
$ ! End of loop
|
ループを一定回数実行するには，終了変数としてカウンタを使用します。次の例では，ユーザによって入力された 10 個のファイル名がローカル・シンボル FIL1，FIL2，...，FIL10 に収められます。
$ NUM = 1 ! Set counter
$LOOP: ! Begin loop
$ INQUIRE FIL'NUM' "File" ! Get file name
$ NUM = NUM + 1 ! Update counter
$ IF NUM .LT. 11 THEN GOTO LOOP ! Test for termination
$END_LOOP: ! End loop
.
.
.
|
次の例は，カウンタを使用してループの実行回数を制御します。この例では，ループは 10 回実行されます。終了変数はループの終わりにテストされます。
$! Obtain 10 file names and store them in the
$! symbols FILE_1 to FILE_10
$!
$ COUNT = 0
$ LOOP:
$ COUNT = COUNT + 1
$ INQUIRE FILE_'COUNT' "File"
$ IF COUNT .LT. 10 THEN GOTO LOOP
$!
$ PROCESS_FILES:
.
.
.
|
COUNT シンボルを使用してループの中のコマンドの実行回数を記録します。また，シンボル名 FILE_1，FILE_2 から FILE_10 までを作成するのにも COUNT を使用しています。COUNT の値が増分されるのはループの始めですが，テストされるのはループの終わりであることに注意してください。したがって，COUNT が 9 から 10 に増分されると，IF 文が偽の結果を検出する前にループがもう 1 回だけ実行されます ( FILE_10 の値を得ます ) 。
一連の値に対してループを実行するには，F$ELEMENT レキシカル関数を使用します。 F$ELEMENT 関数は，区切り文字によって区切られた項目リストから項目を取り出します。 F$ELEMENT の引数として項目番号，項目区切り文字，リストを指定しなければなりません。
F$ELEMENT レキシカル関数の使用方法についての詳細は，『OpenVMS DCL ディクショナリ』を参照してください。
次の例では，ファイル CHAP1，CHAP2，CHAP3，CHAPA，CHAPB，CHAPC が順に処理されます。
$ FILE_LIST = "1,2,3,A,B,C"
$ INDEX = 0
$PROCESS:
$ NUM = F$ELEMENT(INDEX,",",FILE_LIST)
$ IF NUM .EQS. "," THEN GOTO END_LOOP
$ FILE = "CHAP''NUM'"
$ ! process file named by FILE
.
.
.
$ INDEX = INDEX + 1
$ GOTO PROCESS
$END_LOOP:
$ EXIT
|
次のコマンド・プロシージャは，ループを使用して，FILE_LIST シンボルにリストされたファイルを別のノードのディレクトリにコピーします。
$ FILE_LIST = "CHAP1/CHAP2/CHAP3/CHAP4/CHAP5"
$ NUM = 0
$!
$! Process each file listed in FILE_LIST
$ PROCESS_LOOP:
$ FILE = F$ELEMENT(NUM,"/",FILE_LIST)
$ IF FILE .EQS. "/" THEN GOTO DONE
$ COPY 'FILE'.MEM MORRIS::DISK3:[DOCSET]*.*
$ NUM = NUM + 1
$ GOTO PROCESS_LOOP
$!
$ DONE:
$ WRITE SYS$OUTPUT "Finished copying files."
$ EXIT
|
F$ELEMENT レキシカル関数から戻される最初のファイルは CHAP1 であり，次のファイルは CHAP2 です。以下も同様です。ループを実行するたびに，NUM の値が増分されるため，次のファイル名が入手されます。F$ELEMENT がスラッシュを戻した場合には， FILE_LIST のすべての項目が処理されたため，ループは終了します。
PIPE コマンドを使用すると，同一コマンド行から 1 つまたは複数の DCL コマンドを実行できます。これにより，コマンドのパイプライン処理，入出力のリダイレクト，条件実行，バックグラウンド処理など，UNIX 形式のコマンドを処理できるようになります。
このようなコマンド処理の形式は，インターネット・ソフトウェアの開発や使用をサポートします。インターネット・ソフトウェアでは，ホスト・システムとターゲット・システムの両方で存在を解析する，パイプライン・コマンドの使用を前提にしています。
これ以降の節では，PIPE コマンドへの割り込み方法，サブプロセスの性能を向上させる方法など， DCL コマンドの実行以外の目的で PIPE コマンドを使用する方法を説明します。
PIPE コマンドについての詳細は，『OpenVMS DCL ディクショナリ: N--Z』を参照してください。
1 つの PIPE コマンドに，複数の DCL コマンドを指定できます。指定した DCL コマンドは，順番に実行されます。次の形式を使用します。
PIPE command-sequence ; command-sequence [; command-sequences]...
|
