アプリケーション・プログラミング

フォーマット1

{GET|FIND} ANY {record-name-1|unique-name-1}.

フォーマット2

{GET|FIND} ANY {record-name-2|unique-name-2|RECORD} WITHIN
{extended-index-name|unique-name-3} INDEX.

検索する索引エントリ(または、ランダム・エントリ)レコード型名をrecord-name-1、unique-name-1に保存します。

フォーマット2を使用する場合は、検索するレコード型名を指定する必要はありません。明示的にレコード型名を指定しない場合は、RECORDと指定します。

record-name-2とunique-name-2には、extended-index-nameまたはunique-name-3で指定された拡張索引がインデックスするレコード型名を保存します。

検索に使用する拡張索引の名前をextended-index-nameまたはunique-name-3に指定します。

record-name-1、record-name-2、unique-name-1、unique-name-2に指定されたレコード型名は、READY時に指定されたサブスキーマに含まれている必要があります。このコマンドを実行する前に検索するレコードのエントリ・キー値をユーザー領域に設定します。

検索するレコードが保存されているレンジがサブレンジを持っている場合、このコマンドを実行する前にサブレンジを選択するためのロケーション・キー(subrange location key)値を設定します。ただし、拡張索引エントリを検索するときは、拡張索引がサブレンジに分割されている場合でなければ、ロケーション・キー値を設定する必要はありません。

ユーザー・ランダム関数を使用する場合は、このコマンドを実行する前にユーザー・ランダム関数の結果値である論理ページ番号をFCOMのPAGENO変数に設定します。

extended-index-nameまたはunique-name-3に指定された拡張索引に対し、PEDコマンドのEXTENDEDINDEX BUFFER句にNOT USED属性を指定することができません。

索引エントリまたは拡張索引エントリを検索する際に索引および拡張索引が使用されるため、保存されたレコードに対する索引および拡張索引は検索が行われる前に作成されている必要があります。

フォーマット2でextended-index-nameまたはunique-name-3のみ指定されており、レコード名が明示的に指定されていない場合でも、指定された拡張索引がインデックスするレコード型は、READY時に指定されたサブスキーマに含まれている必要があります。

SCHEMAコマンドを使用して、レコード型ごとに使用するエントリ方法(索引エントリ、ランダム・エントリ、拡張索引エントリなど)を定義します。

フォーマット1

{GET|FIND} DUPLICATE {record-name-1|unique-name-1}
          [AT END GO TO procedure-name].

フォーマット2

{GET|FIND} DUPLICATE {record-name-2|unique-name-2|RECORD}
          [WITHIN {extended-index-name|unique-name-3} INDEX]
          [AT END GO TO procedure-name].

検索する索引エントリまたはランダム・エントリ・レコード型名をrecord-name-1に指定し、検索する索引エントリまたはランダム・エントリ・レコード型名をunique-name-1に指定します。

フォーマット2を使用する場合は、検索するレコード型名を指定する必要がありません。明示的にレコード型名を指定しない場合は、RECORDと指定します。

record-name-2にはextended-index-nameまたはunique-name 3で指定された拡張索引がインデックスするレコード型名を指定し、unique-name-2にはextended-index-nameあるいはunique-name-3で指定された拡張索引がインデックスするレコード型名を保存します。

AT END文にプロシージャ名を指定すると、検索の結果、該当のレコードが存在しない場合(システム・セットにメンバー・レコードが存在しない場合を含む)に指定されたプロシージャが呼び出されます。

set-nameまたはunique-name-2に指定されたセットのすべてのメンバー・レコードを、レコード型に関係なく検索するときは、ECORDを指定します。

set-nameまたはunique-name-2に指定されたセットのメンバー・レコードの中から、特定のレコード型のレコードのみ検索する場合は、record-nameまたはunique-name-1に検索するレコード型名を指定します。

record-nameまたはunique-name-1に指定されたレコード型は、set-nameあるいはunique-name-2に指定されたセットのメンバー・レコード型として定義されている必要があります。

record-nameまたはunique-name-1に指定されたレコード型は、READYコマンドを実行する際に指定されたサブスキーマに含まれている必要があります。

set-nameまたはunique-name-2に指定されたセット型は、READYコマンドを実行する際に指定されたサブスキーマに含まれている必要があります。

システム・セットのメンバー・レコードを保存するレンジがサブレンジに分割されている場合は、プログラムで実行される最初のシステム・エントリを検索する前に、サブレンジを選択するためのロケーション・キー値をユーザー作業領域に設定し、そのコマンドを呼び出します。

AT END文が指定された場合は、次のいずれかの条件を満たすと、指定されたプロシージャが呼び出されます。

set-nameまたはunique-name-2に指定されたセットのすべてのメンバー・レコードを、レコード型に関係なく検索するときは、RECORDを指定します。

set-nameまたはunique-name-2に指定されたセットのメンバー・レコードの中から特定のレコード型のレコードのみ検索する場合は、record-nameまたはunique-name-1に検索するレコード型名を指定します。

record-nameまたはunique-name-1に指定されたレコード型は、set-nameまたはunique-name-2に指定されたセットのメンバー・レコード型として定義されている必要があります。

record-nameまたはunique-name-1に指定されたレコード型は、READYコマンドを実行する際に指定されたサブスキーマに含まれている必要があります。

set-nameまたはunique-name-2に指定されたセット型は、READYコマンドを実行する際に指定されたサブスキーマに含まれている必要があります。

このコマンドは、STCSの値を参照するため、エントリ検索コマンドを使用してSTCS値を設定してから、コマンドを呼び出す必要があります。そのため、特定のトランザクションの最初のコマンドとして使用することはできません。この制約は、システム・セットを使用するシステム・エントリ検索コマンドには適用されないため、最初のメンバー・レコードを検索します。

指定されたセットがリング構造の場合は、SCHEMAコマンドのSET副項目のLINKED文にPRIORが指定されていなくても、そのSETに対してこのコマンドを実行するときにPRIORを指定することができます。

指定されたセットがリスト構造であり、record-nameまたはunique-name-1にレコード型名が指定された場合は、指定されたレコード型のレコードが見つかるまで検索が行われます。指定されたレコードが見つからない場合は、セットエンド(set end)が発生し、DBSCB(Database Status Control Block)の値が「11」に設定されます。

AT END文が指定されており、STCSが指すレコードが指定されたセットに接続されていない場合は、指定されたプロシージャが呼び出されます。

set-nameまたはunique-nameに指定されたセット型は、READYコマンドを実行する際に指定されたサブスキーマに含まれている必要があります。

このコマンドは、STCSが指すセットのオーナー・レコードを検索するため、呼び出す前にSTCSが特定のセット上の位置を指している必要があります。このコマンドを実行する前にエントリ検索コマンドを使用してSTCSの値を初期化する必要があるため、特定のトランザクションの最初のコマンドとして使用することはできません。この制約は、システム・セットが対象となる場合は適用されません。特定のシステム・セット型に該当するセットは一意であるためです。

SCHEMAコマンドを使用してSETを定義する際、LINKED句にOWNERを指定しなかった場合でも、リング構造セットに対するオーナー・レコードの検索が可能です。

AT END文が指定された場合は、次のいずれかの条件を満たすと、指定されたプロシージャが呼び出されます。

unique-name-1は、符号付き4桁の数値型変数で指定します。(つまり、符号付き2バイト2進項目)

record-nameまたはunique-name-2に検索するレコード型を指定します。

すべてのレコード型を取得するためには、RECORDを指定します。

record-nameまたはunique-name-2に指定されたレコード型は、スキーマに定義されている必要があります。また、そのレコード型は、set-nameまたはunique-name-3に指定されたセットのメンバー・レコードとして定義される必要があります。

record-nameまたはunique-name-2に指定されたレコード型は、READYコマンドを実行する際、指定されたサブスキーマに含まれている必要があります。

set-nameまたはunique-name-3に指定されたセット型は、READYコマンドを実行する際、指定されたサブスキーマに含まれている必要があります。

このコマンドはSTCSの値を参照するため、エントリ検索コマンドを使用してSTCS値を設定してから、コマンドを呼び出す必要があります。したがって、特定のトランザクションの最初のコマンドとして使用することはできません。

set-nameまたはunique-name-3に指定されたセット型は、リスト構造である必要があります。

integerかunique-name-1に指定された整数値は、次に記述された値よりも大きい値を持つことはできません。

SUBRANGEが指定された場合は、サブレンジが検索対象となります。指定されていない場合は、レンジ全体が検索対象となります。

AT END文が指定された場合は、検索対象領域のすべての索引レコードが検索されます。これ以上検索するレコードがなければ、指定されたプロシージャが呼び出されます。

record-nameまたはunique-nameに指定されたレコード型は、SCHEMAコマンドを使用してレコード型を定義する際、索引エントリに指定されたレコード型である必要があります。

record-nameまたはunique-nameに指定されたレコード型は、READYコマンドを実行する際に指定されたサブスキーマに含まれている必要があります。

レンジがサブレンジに分割されていない場合は、SUBRANGEを指定することができません。

FIRSTとSUBRANGEが指定された場合は、検索するサブレンジを選択するためのロケーション・キーがユーザー作業領域に設定されている必要があります。

NEXTコマンドはIXCSを参照するため、事前に設定されている必要があります。また、特定のトランザクションの最初のコマンドとして使用することはできません。

レコードが存在しない検索対象領域に対してNEXTを実行すると、AT END例外が発生します。

SUBRANGEが指定された場合は、拡張索引のサブレンジが検索対象となります。指定されていない場合は、レンジ全体が検索対象となります。

AT END文が指定された場合は、検索対象領域のすべてのレコードが検索されます。これ以上検索するレコードがなければ、指定されたプロシージャが呼び出されます。

record-nameまたはunique-name-1に指定されたレコード型に対し、SCHEMAコマンドに拡張索引が定義されている必要があります。

record-nameまたはunique-name-1に指定されたレコード型は、READYコマンドを実行する際に指定されたサブスキーマに含まれている必要があります。

検索するレコード型を明示的に指定する必要はありません。この場合、レコード型名の代わりにRECORDと指定されます。

record-nameまたはunique-name-1が指定された場合、該当のレコード型は、extended-index-nameまたはunique-name-2に指定された拡張索引を使用してインデックスされる必要があります。

レンジがサブレンジに分割されていない場合は、SUBRANGEを指定することができません。

FIRSTとSUBRANGE文が両方とも指定された場合は、検索するサブレンジを選択するためのロケーション・キー値がユーザー作業領域に設定されている必要があります。複数のサブレンジが1つの拡張索引サブレンジによってインデックスされる場合は、拡張索引サブレンジに属するサブレンジの中から任意のサブレンジに該当するロケーション・キーを設定します。拡張索引がサブレンジに分割されていない場合は、ロケーション・キー値を設定する必要はありません。

NEXTコマンドはIXCSを参照するため、事前に設定されている必要があります。また、特定のトランザクションの最初のコマンドとして使用することはできません。

事前に拡張索引が作成されている必要があります。

レコードが存在しない検索対象領域に対してNEXTを実行すると、AT END例外が発生します。AT END例外が発生した直後にPRIORを実行すると、最大の拡張索引キー値に該当するレコードを検索します。

SUBRANGEが指定された場合は、拡張索引のサブレンジが検索対象となります。指定されていない場合は、レンジ全体が検索対象となります。

AT END文が指定された場合は、検索対象領域のすべてのレコードが検索されます。これ以上検索するレコードがなければ、指定されたプロシージャが呼び出されます。

record-nameまたはunique-name-1に指定されたレコード型に対し、SCHEMAコマンドに拡張索引が定義されている必要があります。

record-nameまたはunique-name-1に指定されたレコード型は、READYコマンドを実行する際に指定されたサブレンジに含まれている必要があります。

検索するレコード型を明示的に指定する必要はありません。この場合、レコード型名の代わりにRECORDと指定されます。

record-nameまたはunique-name-1が指定された場合、該当のレコード型は、extended-index-nameまたはunique-name-2に指定された拡張索引によってインデックスされる必要があります。

レンジがサブレンジに分割されていない場合は、SUBRANGEを指定することができません。

LASTとSUBRANGE文が両方とも指定された場合は、検索するサブレンジを選択するためのロケーション・キー値がユーザー作業領域に設定されている必要があります。複数のサブレンジが1つの拡張索引サブレンジによってインデックスされる場合は、拡張索引サブレンジに属するサブレンジの中から任意のサブレンジに該当するロケーション・キーを設定します。拡張索引がサブレンジに分割されていない場合は、ロケーション・キー値を設定する必要はありません。

PRIORコマンドはXICSを参照するため、事前に設定されている必要があります。また、特定のトランザクションの最初のコマンドとして使用することはできません。

事前に拡張索引が作成されている必要があります。

レコードが存在しない検索対象領域に対してPRIORを実行すると、AT END例外が発生します。AT END例外が発生した直後にNEXTを実行すると、最小の拡張索引キー値に該当するレコードを検索します。

SUBRANGEが指定された場合は、サブレンジが検索対象となります。

RANGEが指定された場合は、レンジ全体が検索対象となります。

AT END文が指定された場合は、検索対象領域のすべてのレコードが検索対象となります。これ以上検索するレコードがなければ、指定されたプロシージャが呼び出されます。

record-nameまたはunique-nameに指定されたレコード型は、READYコマンドを実行する際に指定されたサブスキーマに含まれている必要があります。

検索するレコード型を明示的に指定する必要はありません。この場合、レコード型名の代わりにRECORDと指定されます。

レンジがサブレンジに分割されていない場合は、SUBRANGEを指定することができません。

FIRSTとSUBRANGE文が両方とも指定された場合は、検索するサブレンジを選択するためのロケーション・キー値がユーザー作業領域に設定されている必要があります。

NEXTコマンドはRDCSかRGCSを参照するため、事前に設定されている必要があります。た、特定のトランザクションの最初のコマンドとして使用することはできません。

レコードが存在しない検索対象領域に対してNEXTを実行すると、AT END例外が発生します。

SUBRANGEが指定された場合は、サブレンジが検索対象となります。RANGEが指定された場合は、レンジ全体が検索対象となります。

AT END文が指定された場合は、検索対象領域のすべてのレコードが検索されます。これ以上検索するレコードがなければ、指定されたプロシージャが呼び出されます。

USING CRP文が指定されると、検索領域を制御する情報であるCRP値が変更されます。指定されていない場合、CRP値は変更されません。

record-nameまたはunique-nameに指定されたレコード型は、READYコマンドを実行する際に指定されたサブスキーマに含まれている必要があります。

検索するレコード型を明示的に指定する必要はありません。この場合、レコード型名の代わりにRECORDと指定されます。

レンジがサブレンジに分割されていない場合は、SUBRANGEを指定することができません。

FIRSTとSUBRANGE文が両方とも指定された場合は、検索するサブレンジを選択するためのロケーション・キー値がユーザー作業領域に設定されている必要があります。

range-nameまたはunique-name-2に指定されたレンジは、SCHEMAコマンドのRANGE項目によってCRP属性を持つように定義されている必要があります。

USING CRP文とrecord-nameまたはunique-name-2にレコード型を同時に指定することができます。この場合、指定されたレコード型は、SCHEMAコマンドのRANGE項目の最上位オーナー・レコードとして定義されている必要があります。(range recordまたはrepresentative recordといいます)

NEXTコマンドはRDCSまたはRGCSを参照するため、事前に設定されている必要があります。また、特定のトランザクションの最初のコマンドとして使用することはできません。

USING CRP文が指定された場合は、RDCSまたはRGCSを参照せずにCRPが指すレコードが検索されます。NEXTが指定されている場合でも、USING CRP文が指定されていると、検索されるレコードはCRPによって決まります。

PGCSに以前レコードを検索したときの戻り値を設定した後、このコマンドを実行します。