磁気テープの入出力

OPEN コマンド

デバイスを選択し、パラメータを指定します。

構文

OPEN devicenum:(codesparam:reclenparam:blkszparam):timeout:"mnespace"

各項目の内容は次のとおりです。

引数	定義
devicenum	47 から 62 までの論理デバイス番号です。
codesparam	オプション — 第 1 位置パラメータ。形式コード。磁気テープのフォーマット・オプションを表す 1 文字以上の文字列です。文字コードの詳細は、テーブル "磁気テープ形式コード" に一覧表示されています。コードの文字列は、引用符内に置く必要があります。特定のコードの組み合わせのみ許可されています。 Windows システムでは、オプションのパラメータの既定値は “AUV” (ANSI D 形式の ASCII 文字、ラベルなし、可変長レコード) です。UNIX® システムの既定値は、“ALV” (ANSI D 形式の ASCII 文字、標準ラベル、可変長レコード) です。
reclenparam	オプション — 第 2 位置パラメータ。レコード長。codesparam が F (固定長レコード) である場合、reclenparam の論理レコード長は 1 バイトから 510 バイトです。レコードが固定長でない場合、reclenparam に 0 を指定するか reclenparam を省略してください。
blkszparam	オプション — 第 3 位置パラメータ。バイト単位のブロック・サイズ。16 バイトから 32 キロバイトまでの偶数で、reclenparam の倍数となる値を指定します。既定は 2048 バイトです。最大値は、プラットフォーム、ドライブ、文字コードによって変わります。最大値として 32KB の文字をお勧めます。環境によっては、最大 65,535 バイトのブロック・サイズが可能です。
timeout	オプション — Caché が OPEN コマンドの完了を待機する最大秒数で、正の整数です。0 を指定すると、OPEN は直ちに制御をプロセスに戻します。タイムアウト付きの OPEN は $TEST に影響します。OPEN がタイムアウト時間内に成功すると、$TEST は True (1) になります。OPEN がタイムアウトの前に失敗すると、$TEST は False (0) になります。
mnespace	オプション — WRITE /mnemonic コマンドで使用するニーモニックとその意味を示すファイル名です。詳細は、"WRITE /mnemonic 用磁気テープ・ニーモニック空間" のセクションを参照してください。

devicenum 引数のみが必須です。デバイス番号で磁気テープ・デバイスを指定する必要があります。Caché は、磁気テープ・デバイスに 47 番から 62 番のデバイス番号を使用します。これらのデバイス番号は、管理ポータルで定義します。システム, 構成, デバイス設定, デバイス を選択して、デバイス番号の割り当てを編集します。

複数の引数はコロン (:) で区切ります。引数を省略するにはコロンを指定する必要があります。コマンドまたはパラメータ・リストの末尾にはコロンを記述しないでください。

オプションのパラメータ・リストは括弧で囲みます。そのパラメータは、記述した順序による位置パラメータまたは /KEYWORD=value 構文によるキーワード・パラメータとして指定できます。キーワード・パラメータは、任意の順序で指定できます。Caché では、パラメータが左から右の順に実行されるので、パラメータ間の相互関係により優先の順序が決まる場合もあります。位置パラメータとキーワード・パラメータを同じパラメータ・リスト内で混在して使用することもできます。複数のパラメータを含む場合、それらを囲む括弧は必須です。

詳細は、"ObjectScript ランゲージ・リファレンス" の "OPEN" を参照してください。

3 つのオプション・パラメータ (codesparam、reclenparam、blkszparam) はデータ・フォーマットを制御します。パラメータを省略すると、以下の既定のパラメータが割り当てられます。

Windows システムの場合は、ASCII 文字、ラベルなし、可変長レコード、2,048 バイト・ブロックです。

("AUV":0:2048)

UNIX® システムの場合、ASCII 文字、ANSI 標準ラベル、可変長レコード、2,048 バイト・ブロックです。

("ALV":0:2048)

これらの既定の OPEN パラメータ値は、管理ポータルで定義します。システム, 構成, デバイス設定, デバイス を選択して、特定のデバイスの [編集] をクリックします (磁気テープ・デバイスの番号は 47 から 62 です)。リストされているデバイスをクリックすると、[Open パラメータ] の既定値が表示されます。

%IS ユーティリティを実行するか、OPEN コマンドを発行することでデバイスを既に開いている場合、Caché は別の OPEN で指定されたデータ形式パラメータを無視します。したがって、デバイスに CLOSE コマンドを発行した後、デバイスを再度開いて新規パラメータを割り当てる必要があります。

例

以下のコマンドは、論理デバイス 47 を既定パラメータで開きます。

   OPEN 47

以下のコマンドは、論理デバイス 48 を ANSI 標準 の D 形式で開きます。これは、可変長の ASCII レコードを持つラベル付きファイルです。

   OPEN 48:"AVL"

以下のコマンドは、長さ 80 バイトのラベルのない固定ブロック・レコード EBCDIC を使用して、8,000 バイト・ブロックで論理デバイス 47 を開きます。

   OPEN 47:("EUF":80:8000)

USE コマンド

事前に開いた磁気テープ・ドライブを現在のデバイスに設定します。

USE devicenum

例

以下のコマンドは、デバイス 47 を現在のデバイスにします。

   USE 47

READ コマンド

指定したコマンド形式にしたがって、現在のデバイスから読み取ります。READ コマンドの実行後、変数はテープの現在位置にあるレコードの内容を保持します。

次のセクションで説明しているように、テープ・ヘッドの位置を WRITE * 制御コード・オプションで制御します。

READ variable
READ *variable
READ variable#length

WRITE コマンド

現在の磁気テープ・デバイスの現在の位置にデータを書き込みます。

WRITE *-n
WRITE /mnemonic

WRITE *-n による磁気テープ機能の制御

WRITE * コマンドの後に負の整数の制御コードを指定し、テープ・ヘッドの位置変更や特殊記号とラベルの書き込みができます。以下はその例です。

   WRITE *-5

以下の表は、制御コードの説明です。

WRITE *-n の制御コード

コード	機能	結果
-1	後退	テープを 1 ブロック後退させます。(カートリッジ・テープではサポートされていません。)
-2	前送り	テープを 1 ブロック進めます (ラベルはスキップします)。テープの最初 (BOT) で WRITE *-2 を実行すると、ボリューム・ラベル、ヘッダ・ラベル、最初のデータ・ブロックがスキップされます。 OPEN で U 形式コードを指定してもテープがラベル付きの場合、テープの先頭 (BOT) で WRITE *-2 を実行すると、ボリューム・ラベルがスキップされます。(カートリッジ・テープではサポートされていません。)
-3	テープ・マークの書き込み	テープ・マークを書き込みます。バッファに書き込まれていないデータがある場合、そのデータが最初に書き込まれます。
-4	ブロックの書き込み	現在のバッファをすべて書き込みます。ラベル形式が指定され、テープの位置が BOT である場合、適切な形式のヘッダ・ラベルがデータ・ブロックの前に書き込まれます。
-5	巻き戻し	テープを巻き戻します。まだ書き込まれていないデータ (およびその形式で必要なトレーラ・ラベルとテープ・マーク) は、巻き戻しの前に書き込まれます。
-6	ブロックの読み取り	次のブロックを読み取ります。テープの位置が BOT である場合、読み取りの前にヘッダ・ラベルをスキップします。
-7	ラベルの読み取り	次のブロックを読み取ります。ラベルであっても同様に読み取ります。(カートリッジ・テープではサポートされていません。)
-8	ヘッダ・ラベルの書き込み	ラベル形式が指定されている場合は、ヘッダ・ラベルを書き込みます。テープの位置が BOT である場合、ヘッダ・ラベルの前にボリューム・ラベルを書き込みます。UNIX® システムの場合、カートリッジ・テープではサポートされていません。
-9	EOF ラベルの書き込み	書き込まれていないデータを書き込みます。ラベル形式が指定されている場合は、適切なトレーラ・ラベルを書き込みます。テープ・マークを 2 つ書き込み、2 番目のテープ・マークまで戻ります。(カートリッジ・テープではサポートされていません。)

以下の例は、テープ・デバイス 47 番を開き、現在のデバイスに設定します。その後、テープを巻き戻します。

   OPEN 47
   USE 47
   WRITE *-5

Note:

ニーモニック・パラメータを使用し、WRITE *-n で可能な多くの機能を実行できます。

CLOSE コマンド

磁気テープ・デバイスを閉じ、他のユーザがそのデバイスを使用できるようにします。テープは巻き戻しません。

CLOSE devicenum

DOS ラベル

DOS ラベル付きのテープに書き込む場合、単一のヘッダ・ラベルが各ファイルの前に付けられ、各ファイルはテープ・マークで終了します。ヘッダ・ラベルは、基数 50 表記法のファイル名 “CACHE 001” で構成され、その後に、値 1、1、23 の 3 バイトが続きます。残りの 80 バイトのラベルには、ASCII の NULL が埋め込まれます。

レコード構造

ASCII 可変長データ形式では、レコード長に 4 を加算した値を持つ 4 文字の数値が各レコードの先頭に置かれます。ブロックの最終レコードの後にはキャレット文字 (^) が続きます。それぞれの WRITE や READ の引数は、特定の論理レコードに対応します。

EBCDIC 可変長データも ASCII 可変長と同じ形式ですが、各ブロックは、ブロック長を示す 4 文字の数値で始まる点が異なります。

ファイル構造

テープに複数のファイルを書き込むには、2 番目以降のファイルのラベル位置を指定します。ボリューム・ラベルは、テープの先頭にのみ置かれます。各ファイルの前には 2 つのヘッダ・ラベル・ブロックとテープ・マークが置かれ、最後のファイルを除く各ファイルの後には 2 つのトレーラ・ラベル・ブロックと単一のテープ・マークが置かれます。最後のファイルの後には、テープ・マークを 2 つ書き込みます。

磁気テープ制御コード WRITE *-8 (ヘッダ・ラベルの書き込み) と WRITE *-9 (EOF ラベルの書き込み) を使用して、追加するラベルの場所を制御できます。

ラベル付きテープでのファイル生成

以下のテーブルは、Caché テープ・ハンドラを使用して、ラベル付きテープに 3 つのファイルを生成する手順を示しています。

磁気テープのステータスを保持する $ZA

磁気テープのエラーと特別な状態は、特殊変数 $ZA に収められます。Caché は、磁気テープ・デバイスを参照する ObjectScript コマンドを実行するたびに、$ZA を更新します。

以下のテーブルは、$ZA のビットの意味を示しています。トラップ列の Y は、<MAGTAPE> エラーが発生する条件であることを意味します。$ZTRAP を設定しておくと、これらの条件下では $ZTRAP で参照するエラー・コードが呼び出されます。"ObjectScript ランゲージ・リファレンス" の "$ZA" 特殊変数と "$ZTRAP" 特殊変数を参照してください。

これらのビットには、エラー状況を示すものと、必ずしもエラーを生成するとは限らない状況を示すものがあります。エラーではない状況をプログラムで認識するには、磁気テープを処理するたびに $ZA の該当ビットを検証する必要があります。例えば、プログラムがテープの最後を消去しないように、ビット 10 (EOT) を確認する必要があります。

ビットをテストするには、テーブルのビットにリストされている値で $ZA を割り、モジュロ 2 演算を実行します。例えば、ビット 14 のテープ・マークが設定されているかどうかをチェックするには、以下を入力します。

   USE 47 
   IF $ZA\16384#2 {
      DO Endfile }
   ELSE { QUIT }

16384 は 2 の 14 乗を、#2 はモジュロ 2 演算を示しています。数字の 0 乗は 1 と同じであるため、ビット 0 (論理エラー) を検査するための除数は必要ありません。以下のように入力します。

   USE 47 
   GOTO LogErr:$ZA#2

ドライバ・バッファの情報を保持する $ZB

$ZB には、磁気テープ・ドライバの内部バッファに残っているデータのバイト数が収められています。ブロックの読み取り直後、この数はブロック・サイズになります。READ コマンドは、バッファにある論理レコード数を ObjectScript 変数に転送するので、$ZB の数値は、次のブロックがバッファに入力されるまで減少した状態になります。

テープに書き込む場合、$ZB はドライバの内部バッファに残っている未使用バイト数を表示します。ブロックの読み取り直後、この数は OPEN コマンドが指定したバッファ・サイズになります。WRITE コマンドは、ObjectScript 変数にある論理レコード数をバッファに転送するので、$ZB の数値は、Caché が次のブロックのバッファ・コンテンツを書き込むまで減少した状態になります。

大半の磁気テープ・プログラムは、$ZB を考慮する必要はありません。$ZB は、特殊な形式や可変長ブロックを処理するプログラム用に使用すると便利です。詳細は、"ObjectScript ランゲージ・リファレンス" の "$ZB" を参照してください。

例

この例は、各磁気テープの読み取りの後で $ZA と $ZB をチェックして、変数のいずれかにエラーの発生が示されていると MTERR を設定します。また、磁気テープ・エラーの発生時に $ZTRAP を設定します。

  ; $$MTIN(MTDEV) = the next logical record read from
  ; magtape device MTDEV.
  ; Also returns ZA=$ZA and ZB=$ZB 
  ; On a magtape error, MTERR=1 and $$MTIN(MTDEV)="" 
  ; Expects the caller to have set $ZTRAP to trap other
  ; errors. 
  ;
MTIN(IO) 
     NEW REC,CURDEV 
     SET MTERR=0,CURDEV=$IO,$ZTRAP="MTIERR" 
     USE IO
     READ REC
MTIEXIT
     SET ZA=$ZA,ZB=$ZB
     USE CURDEV 
     QUIT REC 
  ;
MTIERR 
      IF $ZE'["<MAGTAPE>" { 
          USE CURDEV 
          ZQUIT 1 
          GOTO @$ZT }
  ; Use caller's error trap. 
     SET $ZT="",MTERR=1,REC="" 
     GOTO MTIEXIT