USAGE 句

一般規則

1. 集団レベルに USAGE 句を書いた場合、その集団に属する各基本項目に対してその USAGE 句が適用される。

    ただし、PICTURE 句があり、データ項目の定義が文字である場合を除く。

2. USAGE 句は、コンピューターの記憶域内におけるデータ項目の表現形式を指定する。USAGE 句は、データ項目の使い方には影響を与えない。ただし、手続き部の文の中には、作用対象を特定の USAGE 句を伴う基本項目に限定するものがある。USAGE 句は項目の基数または文字表現の種類に影響することがある。各使用法の形式の詳細については、「COBOL 言語の概念」の章の「文字の表現と基数の選定」のセクションを参照。
3. USAGE IS BINARY 句は、コンピューターの記憶域内で数値項目を表現するのに基数 2 を使用することを定義する。この句は、USAGE IS COMPUTATIONAL と同義である。
4. USAGE IS PACKED-DECIMAL 句は、コンピューターの記憶域内で数値項目を表現するのに基数 10 を使用することを定義する。またこの句は、各桁位置がコンピューターの記憶域内で最小限の構成を占めるように定義する。

    この句は、USAGE IS COMPUTATIONAL-3 と同義である。

5. USAGE IS DISPLAY 句は、コンピューターの記憶域内でデータ項目を表現するのに (明示的または暗黙的に) 標準のデータ形式を使用することを定義する。データ項目は文字境界上で整列される。
6.  USAGE IS DISPLAY 句は、下記の種類の項目に適用できる。
   • アルファベット
   • 英数字
   • 英数字編集
   • 数値編集
   • 外部浮動小数点数
   • 外部 10 進数 (数値)
7. USAGE IS INDEX 句を指定した基本項目を、指標データ項目という。指標データ項目には、表の要素の出現番号に相当する値を収める。
8. MOVE 文または入出力文の中で参照される集団項目の一部に指標データ項目、

    またはポインター データ項目、

    または手続きポインター データ項目

   が含まれていてもよい。この場合、指標データ項目、

    またはポインター データ項目、

    または手続きポインター データ項目

   の変換は行われない。

9.  USAGE IS COMPUTATIONAL-4 句は、USAGE IS COMPUTATIONAL と同義である。
10.  USAGE IS POINTER 句は、データ項目のアドレスを格納するデータ項目を識別する (「SET 文」のトピックを参照)。
11.   USAGE IS PROCEDURE-POINTER 句は、データ項目が手続きのアドレスを格納する手続きポインター データ項目であることを指定する(「SET 文」のトピックを参照)。参照する対象の手続きはどんな言語で書いてあってもよい。COBOL の場合、それは入れ子になっていないポインターの手続き部を表す。下記のどちらかによって識別する。
    • プログラム名段落のプログラム名
    • ENTRY 文のエントリ名
12.  typedef-name-1 を基本項目として指定した場合、「USAGE typedef-name-1」句は、typedef-name-1 によって参照されるプログラマー定義の使用法と同じ属性を持つ基本項目を指定することになる。
13.  typedef-name-1 を集団項目として指定した場合、「USAGE typedef-name-1」句は、同一の構造を持つ集団項目を指定することになる。その効果は、typedef-name-1 によって識別されるデータ記述項の下位にあるデータ宣言が、「USAGE typedef-name-1」句で宣言された項目の下位に、まったく同様に指定されたかのようになる。下位のデータ項目のデータ名は、typedef-name-1 によって参照されるプログラマー定義の構造体の中に宣言されているものと同じになる。それらを一意に参照するには、データ名の修飾を行う。
14.  USAGE OBJECT REFERENCE 句を用いて記述したデータ項目をオブジェクト参照と呼ぶ。オブジェクト参照は字類がオブジェクトであり項類がオブジェクト参照であるデータ項目である。オブジェクト参照の内容は null またはオブジェクトへの参照である。ただし、下記の規則に従う。
    1. オブジェクト参照データ項目に割り当てられる記憶域のサイズは 4 バイトである。
    2. オプションの指定を何も書かないと、そのデータ項目は一般的オブジェクト参照となる。その内容は任意のオブジェクトの参照先であってよい。
    3. interface-name-1 を指定した場合、そのデータ項目によって参照されるオブジェクトは interface-name-1 を実装しなければならない。
    4. class-name-1 を指定した場合、そのデータ項目によって参照されるオブジェクトは、class-name-1 のオブジェクトまたは class-name-1 のサブクラスのオブジェクトでなければならない。ただし、下記の規則に従う。
       1. ONLY 指定を書かなかった場合：
          1. FACTORY 指定を書いた場合、そのデータ項目によって参照されるオブジェクトは、指定したクラスのファクトリ オブジェクトまたは指定したクラスのサブクラスのファクトリ オブジェクトでなければならない。
          2. FACTORY 指定を書かなかった場合、そのデータ項目によって参照されるオブジェクトは、指定したクラスのオブジェクトまたは指定したクラスのサブクラスのオブジェクトでなければならない。
       2. ONLY 指定を書いた場合：
          1. FACTORY 指定を書いた場合、そのデータ項目によって参照されるオブジェクトは、指定したクラスのファクトリ オブジェクトでなければならない。
          2. FACTORY 指定を書かなかった場合、そのデータ項目によって参照されるオブジェクトは、指定したクラスのオブジェクトでなければならない。
    5. ACTIVE-CLASS を指定した場合、そのデータ項目によって参照されるオブジェクトは、その参照されるオブジェクトが指定されているメソッドを呼び出すのに使用されたオブジェクトが属するクラスのオブジェクトでなければならない。ただし、下記の規則に従う。
       1. FACTORY 指定を書いた場合、そのデータ項目によって参照されるオブジェクトは、そのクラスのファクトリ オブジェクトでなければならない。
       2. FACTORY 指定を書かなかった場合、そのデータ項目によって参照されるオブジェクトは、そのクラスのオブジェクトでなければならない。
15.  USAGE IS EVENT-POINTER 句は、ソフトウェア イベントの発生時にフラグを設定する同期データ項目を識別する。イベント データ項目の値は、TRUE または FALSE である。
16.  USAGE IS MONITOR-POINTER 句は、モニターと呼ばれる同期データ項目を識別する。このデータ項目について、読み取りロック、参照ロック、書き込みロックを要求することができる。
    注: モニターは、通常、複数のスレッドが読み取りまたは書き込みを行う可能性のあるデータ構造を保護するために使用される。
17.  USAGE IS MUTEX-POINTER 句は、ミューテックスと呼ばれる同期データ項目を識別する。このデータ項目を使用して、マルチスレッド アプリケーションの重要な節を保護することができる。ミューテックス データ項目の値は、ON または OFF である。ON 状態のミューテックス データ項目を持つことができるのは、一度に 1 つのスレッドのみである。
18.  USAGE IS SEMAPHORE-POINTER 句は、数を数える同期データ項目を識別する。このデータ項目が負の値になることはない。
19.  USAGE IS THREAD-POINTER 句は、スレッドのハンドルを格納するデータ項目を識別する。
20.  明示的または暗黙的な USAGE IS NATIONAL 句は、各国文字符号化文字でコンピューターに格納されて文字境界上に配置されるデータ項目を識別する。各国文字は、コンピューターの記憶域で同一サイズの文字として表される。詳細については、各国文字データ (UNICODE) に関する COBOL システムのドキュメントを参照。
21.  USAGE IS BINARY-CHAR、USAGE IS BINARY-SHORT、USAGE IS BINARY-LONG、USAGE IS BINARY-DOUBLE の各句は、コンピューターの記憶域で 2 の基数を持つ数値データ項目を識別する。これらの使用法は、以下に示す PICTURE 文字列で USAGE IS COMP-5 を指定することと同等である。USAGE 句で UNSIGNED 指定が記述されている場合を除き、同等の PICTURE　文字列には S が含まれる。

    USAGE	同等の PICTURE 文字列
    BINARY-CHAR	[S]9(2)
    BINARY-SHORT	[S]9(4)
    BINARY-LONG	[S]9(9)
    BINARY-DOUBLE	[S] 9(18)

22.  USAGE IS FLOAT-SHORT 句は、USAGE IS COMPUTATIONAL-1 と同義である。
23.  USAGE IS FLOAT-LONG 句は、USAGE IS COMPUTATIONAL-2 と同義である。
24.  USAGE PROGRAM-POINTER 句を指定するデータ記述項は、手続きポインター データ項目を指定する。このデータ項目は、プログラム ポインターおよび手続きポインターとも呼ばれ、プログラムのアドレスを含むことができる(「SET 文」のトピックを参照)。参照する対象の手続きはどんな言語で書いてあってもよい。COBOL の場合、それは入れ子になっていないポインターの手続き部を表す。下記のどちらかによって識別する。
    • プログラム名段落のプログラム名
    • ENTRY 文のエントリ名
25.  program-prototype-name-1 を指定した場合、そのデータ項目は制限されたプログラム ポインターとなる。制限されたプログラム ポインターは、定義済みのアドレス、NULL、または指定された program-prototype-name で識別されたものと同じシグネチャのプログラムのアドレス以外を含むことはできない。
26.  USAGE IS CONDITION-VALUE 句は、TRUE または FALSE の値を持つことができるブール値データ項目を指定する。CONDITION-VALUE ブール値データ項目は、.NET フレームワークの System.Boolean 型に対応する。そのため、真または偽を表す値を格納するデータ項目を、System.Boolean パラメーターを受け付けるメソッドに渡すことができる。
27.  USAGE IS OBJECT REFERENCE クラス名句の中で指定されたクラス名が値型の場合は、コンパイラ警告が出力される。その項目は値型として扱われることになる。つまり、いかなる参照も生成されない。
28.  USAGE IS クラス名句は、以下のように指定する。
    • クラス名が参照型を参照する場合、この句は USAGE OBJECT REFERENCE class-name-1 とまったく同等である。そのデータ項目は、ヒープ上で割り当てられたオブジェクトへの参照または NULL 値を表す。
    • クラス名が値型を参照する場合、この句は値型であるデータ項目を指定する。
29.  EVENT 指定を記述した場合、add_ChangeEvent および remove_ChangeEvent という 2 つのメソッドが自動的に作成される。これらのメソッドを使用して、それぞれ、デリゲートへの新しいメソッドのフック、およびそのメソッドの削除を行うことができる。
30.  USAGE BIT 句は、ブール値データ項目を表現するのにビットを使用することを指定する。USAGE BIT を使用して記述されたデータ項目は、ビット データ項目となる。ブール値データ項目の整列方法については、「ビット データ項目の整列」のトピックを参照。
31. integer-1 は、バイナリ (基数 2) データ項目に割り当てられるバイト数を指定する。IBMCOMP 指令を指定した場合、必要に応じて、指定したバイト数以上である次の語の記憶域のバイト数に値が調整される。長さ指定では、PICTURE 文字列中の 9 記号の数に基づいてバイナリ データ項目に割り当てられるバイト数よりも小さい値、等しい値、または大きい値を指定できる。
32. integer-1 の長さ指定が集団レベルの USAGE 句で記述されている場合、長さ指定は、その集団に従属する各バイナリ データ項目に適用される。ただし、異なる長さ指定を指定する別の集団にデータ項目が従属している場合、または基本データ項目自体が特定の長さ指定を使用して記述されている場合を除く。つまり、長さ指定がある最も近い包含集団が、独自の長さ指定がない集団内のバイナリ データ項目に適用される。