DECLARE VECTOR

SQL スクリプトの DECLARE VECTOR は、展開可能、順序付け、および型指定されたコレクションデータ タイプを宣言します。ベクトルには、初期化時にデータ タイプが必要です。

このセクションでは、VECTOR を宣言するための一般的な構文を示し、SQL スクリプトでのベクトルの機能について説明します。セクションの最後に例を示します。

構文

DECLARE <identifier> VECTOR (<data type>) [DEFAULT VECTOR [<value>, <value>]]

基本データ タイプ

DEFAULT 句はオプションであり、VECTOR 値の初期化に使用できます。
ベクトルを別のベクトルの基本データ タイプにすることはできないため、次の宣言は使用できません。
DECLARE vectorX VECTOR (VECTOR (CHAR) ) ) ;
ROW はベクターの受け入れ可能な基本データ タイプであり、次の例のように、コレクションの実装に必要です。
DECLARE vectorX VECTOR (ROW (a INTEGER,  
b INTEGER, c CHAR, d CHAR) ) ;
ROW にはベクトルを含めることもでき、ROW 内のフィールドには、次のようにドット表記を使用してアクセスできます。
DECLARE myRow ROW (a INTEGER, v VECTOR (INTEGER) ) ;
SET myRow = ROW (1, VECTOR[9,10,11]) ;
SET myRow.v[2] = 9;
DECLARE vecRow VECTOR (ROW (a INTEGER, b CHAR) ) ;
SET vecRow = VECTOR[ (22, 'text') ];
SET vecRow[1].a = vecRow[1].a + 15;

宣言

ベクトルを CURSOR または PIPE のフィールドとして宣言することはできないため、次の宣言は許可されません。
DECLARE myCursor CURSOR (a VECTOR (CHAR) ) ;
ベクトルは、PUBLIC 定数または非パブリック定数として宣言できます。このようなベクトルの内容は変更しないでください。
CONSTANT VECTOR の初期内容は、DEFAULT 句で定義する必要があり、リテラルまたは他の同様のタイプのベクトルへの参照である必要があります。

VECTOR エレメントへの値の割り当て

基本型のない空のベクトルは、式によって作成できます
VECTOR[]
ベクトル内のエレメントには、NULL の値を割り当てることができます。
SET vectorX[1] = NULL;
ベクトルは宣言時に NULL に設定され、次の例のように、使用する前に初期化する必要があります。初期化されていないベクトルを参照すると、エラーが発生します。
VECTOR['my text', 'your text']

この式は、次のように、SET ステートメントを使用して互換性のあるベクトルに割り当てることができます。

SET my_vector = VECTOR['my text', 'your text'];
SET your_vector = VECTOR[ROW (2,3) , ROW (4,5) ];
SET your_vector = my_vector;

上記の宣言では、ソースベクトル your_vector の内容がターゲットベクトル my_vector にコピーされ、ターゲットベクトルが初期化されます。

ベクトルはプロシージャのパラメーターとして使用でき、OUT または INOUT パラメーターを持つプロシージャは、SET ステートメントと同じ方法でベクトルを変更できます。
CALL myProcedure (vectorX) ;
ベクトルを初期化してベクトルにスペースを割り当てた後、他のプログラミング言語のアレイと同様に、角括弧を使用してベクトル内のエレメントにアクセスできます。ベクトル インデックスは 1 から始まり、1 ずつ増加します。
SET vectorX[20] = 'my text';
SET yourvector[2 + index] = vectorX[20];
ベクトル インデックスは数値に評価される必要があります。そうしないと、次の例のようにエラーが発生します。
SET yourvector[1 || 'text'] = ‘text’;
ベクトル インデックスが NULL に評価される場合、エレメント参照は NULL になります。
ターゲット参照インデックスが NULL の場合、次の例のようにエラーが発生します。
SET vectorX[NULL] = 'text';
ベクトルは現在の割り当てによってバインドされますが、再割り当てまたはシステム プロシージャによってサイズを変更できます。
ベクトルは、暗黙的に割り当て可能なデータ タイプを持つ他のベクトルに割り当てることができます。データ タイプが同じでない場合、ベクターが作成され、すべてのエレメントで自動的に CAST 関数が実行され、値がターゲット型に変換されます。

ベクトルの比較

基本タイプが同等であれば、ベクトルを相互に比較できます。= (等しい) や!= (等しくない) などの比較オペレーターのみがサポートされています。

同じ数の値があり、対応するエレメントが等しい場合、ベクトルは等しくなります。いずれかのベクトルが NULL の場合、比較の結果は不明です。エレメントのいずれかが NULL の場合、比較の結果は不明です。

ベクトルと関数

ベクトルの内容を変更するために、いくつかの関数を使用できます。次の関数がサポートされています:CARDINALITY、CAST、CONCAT、EXTEND、および TRUNCATE。基本データ タイプに関係なく、すべてのベクトルはこれらの関数の引数として受け入れられます。

CARDINALITY

この関数は、ベクトルに割り当てられたエレメントの数を返します。

CAST

この関数は、ベクトル内のすべてのエレメントを目的のターゲット データ タイプに変換します。結果ベクトルは、ソース ベクトルと同じサイズです。ベクトルに NULL エレメントがある場合、結果ベクトルには NULL が含まれます。ソース ベクトルのデータ タイプとターゲット ベクトルのデータ タイプは互換性がなければなりません。詳細については、セクション「CAST」を参照してください。

CONCAT

この関数は、同じデータ タイプを持つ 2 つのベクトルを一緒に追加します。ベクトルのいずれかが NULL の場合、結果のベクトルが NULL であることを示すエラーが発生します。NULL 以外のベクトルを連結すると、連結されたベクトルのエレメントを含む新しいベクトルになります。入力ベクトルのエレメントは連続して追加されます。つまり、最初のベクトルのエレメントが最初に結果ベクトルに入力され、次に 2番目のベクトルのエレメントが結果ベクトルに入力されます。

注: || オペレーターは CONCAT 関数と同じことを行います。

EXTEND

この関数は、指定された数のエレメントをベクトルに追加します。追加されたエレメントの数には NULL 値が割り当てられ、構文は次のとおりです。

SET vectorX = EXTEND (vectorX, 2);
追加するように指定されたエレメントの数が NULL と評価される場合、この関数は NULL を返します。
ベクトルが NULL の場合、ベクトルが NULL であることを示すエラーが発生します。
指定した数が負の数の場合、エラーが発生します。

FIND_INDEX

この関数は、指定された値が最初に出現するベクトルを検索します。2 つの引数を受け入れます。最初の引数は任意のスカラー値です。2番目の引数は、検索されるベクトルです。インデックスは 1 から始まります。

ベクトルの基本型と指定された引数のデータ タイプは、比較可能であるか、暗黙的にキャスト可能でなければなりません。
検索された値がベクトル内に見つからない場合、結果はゼロになります。
ベクトルまたは指定された引数のいずれかが NULL の場合、関数の結果は NULL になります。

次の例では、値 3 が返されます。

DECLARE v VECTOR (INT) DEFAULT VECTOR [5, 10, 50, 100];
SET i = FIND_INDEX (50, v) ;  

TRUNCATE

この関数は、指定された数のエレメント (「チョップ カウント」、chop_count) をベクトルの末尾から削除します。構文は次のとおりです。

SET vector1 = TRUNCATE (vector1, chop_count) 
チョップ カウントが NULL と評価される場合、この関数は NULL を返します。
チョップ カウントが負の場合、またはベクトルの初期サイズを超える場合、エラーが発生します。
ベクトルが NULL の場合、エラーが発生します。
TRUNCATE も TDV がサポートする SQL 関数です。説明については、「TRUNCATE」を参照してください。

このセクションには、SQL スクリプトのベクトルの機能を説明するためのいくつかの例が含まれています。

PROCEDURE vectorExampleA () 
BEGIN
	DECLARE vectorX VECTOR(ROW(a int, b char));
	DECLARE vectorY VECTOR(ROW(x int, y char));
	SET vectorX = VECTOR[(11, 'one in vectorX'), (12, 'two in vectorX')];
	SET vectorY = VECTOR[(21, 'one in vectorY'), (22, 'two in vectorY')];
	CALL print(vectorX[1].b);
	CALL print(vectorX[2].b);
	IF vectorX != vectorY THEN
	  CALL print(vectorY[1].y);
	END IF;
END
PROCEDURE vectorExampleB () 
BEGIN
	DECLARE vectorX VECTOR(ROW(a int, b char));
	DECLARE vectorY VECTOR(ROW(x int, y char));
	SET vectorX = VECTOR[(11, 'one in vectorX'), (12, 'two in vectorX')];
	SET vectorX[1].a = vectorX[1].a + 11;
	SET vectorY = VECTOR[(5, 'one in vectorY'), (10, 'two in vectorY')];
	SET vectorX = vectorY;
	CALL PRINT(TO_CHAR(vectorX[2].a));
END
PROCEDURE vectorExampleC (OUT x VECTOR (INTEGER) ) 
BEGIN
	DECLARE vectorX VECTOR(INTEGER);
	SET x = VECTOR[5, 55, 60];
	SET vectorX = x;
	CALL PRINT(TO_CHAR(x[1]));
END
PROCEDURE vectorExampleD () 
BEGIN
	DECLARE vConstM CONSTANT VECTOR(INTEGER)
	DEFAULT VECTOR[1, 2];
	DECLARE vConstN CONSTANT VECTOR(INTEGER)
	DEFAULT VECTOR[99, vConstM[2]]
	DECLARE x INTEGER;
	DECLARE y INTEGER;
	SET x = vConstM[1];
	SET y = vConstN[1];
	CALL PRINT(TO_CHAR(x));
	CALL PRINT(TO_CHAR(y));
END
PROCEDURE vectorExampleE () 
BEGIN
	DECLARE PUBLIC vConstM CONSTANT VECTOR(INTEGER)
	DEFAULT VECTOR[1, 2];
	DECLARE PUBLIC vConstN CONSTANT VECTOR(INTEGER)
	DEFAULT VECTOR[99, vConstM[2]];
	DECLARE x INTEGER;
	SET x = vConstN[2];
	CALL PRINT(TO_CHAR(x));
END
PROCEDURE vectorExampleF (OUT Name VECTOR (CHAR (255) ) ) 
BEGIN
	DECLARE firstName VECTOR(CHAR);
	DECLARE lastName VECTOR(CHAR);
	SET firstName = VECTOR['john'];
	SET lastName = VECTOR['doe'];
	SET Name = CONCAT(firstName, lastName);
END
PROCEDURE vectorExampleG (OUT card INTEGER) 
BEGIN
	DECLARE vectorX VECTOR(INTEGER);
	SET vectorX = VECTOR[5, 55, 19, 15, 23];
	SET card = CARDINALITY (vectorX);
END
PROCEDURE vectorExampleH (OUT ext VECTOR (INTEGER) ) 
BEGIN
	DECLARE vectorX VECTOR(INTEGER);
	DECLARE NEWVECTOR VECTOR(INTEGER);
	SET vectorX = VECTOR[5, 55, 19, 15, 23];
	SET vectorX = EXTEND(vectorX, 2);
	SET ext = vectorX;
END
PROCEDURE vectorExampleJ (OUT ext VECTOR (INTEGER) ) 
BEGIN
	DECLARE vectorX VECTOR(INTEGER);
	SET vectorX = VECTOR[5, 55, 19, 15, 23];
	SET vectorX = VECTOR[NULL];
	SET vectorX = EXTEND(vectorX, 2);
	SET ext = vectorX;
END
PROCEDURE vectorExampleK (OUT trunc VECTOR (INTEGER) ) 
BEGIN
	DECLARE vectorX VECTOR(INTEGER);
	DECLARE newvector VECTOR(INTEGER);
	SET vectorX = VECTOR[5, 55, 19, 15, 23];
	SET newvector = TRUNCATE(vectorX, 2);
	SET trunc = newvector;
END
PROCEDURE vectorExampleM (OUT trunc VECTOR (INTEGER) ) 
BEGIN
	DECLARE vectorX VECTOR(INTEGER);
	DECLARE newvector VECTOR(INTEGER);
	SET vectorX = VECTOR[5, 25, 30];
	SET newvector = TRUNCATE(vectorX, NULL);
	SET trunc = newvector;
END