Oracle Rdb7

表3-7は、SQL仮パラメータに対するCOBOL宣言を示しています。

**表3-7 SQL仮パラメータのデータ型に対するCOBOL宣言**
SQL仮パラメータのデータ型	互換性のあるCOBOLのパラメータ宣言⁷
CHAR(10)	01 STR1 PICTURE X(10).
CHAR(10) CHARACTER SET KANJI	01 STR1 PICTURE X(20).⁶
NCHAR(10)	01 STR1 PICTURE X(10).⁶
VARCHAR(80)	01 STR2. 49 STR2L PICTURE S9(4) COMP. 49 STR2C PICTURE X(80).
VARCHAR(80) CHARACTER SET KANJI	01 STR2 CHARACTER SET KANJI. 49 STR2L PICTURE S9(4) COMP. 49 STR2C PICTURE X(160). ⁶
NCHAR VARYING(80)	01 STR2. 49 STR2L PICTURE S9(4) COMP. 49 STR2C PICTURE X(80). ⁶
LONG VARCHAR	01 STR3. 49 STR3L PICTURE S9(4) COMP. 49 STR3C PICTURE X(16383).
SMALLINT(2) SMALLINT	01 NUM1 PICTURE S99V99 COMP. 01 NUM1 PICTURE S9(4) COMP.
INTEGER(2) INTEGER	01 NUM2 PICTURE S9(7)V99 COMP. 01 NUM2 PICTURE S9(9) COMP.
BIGINT(2) BIGINT	01 NUM3 PIC S9(16)V99 COMP. 01 NUM3 PIC S9(18) COMP.
DECIMAL(18,2) DECIMAL(18)	01 NUM4 PIC S9(16)V99 COMP3. 01 NUM4 PIC S9(18) COMP3.
NUMERIC(18,2) NUMERIC(18)	01 NUM5 PIC S9(16)V99 SIGN LEADING SEPARATE. 01 NUM5 PIC S9(18) SIGN LEADING SEPARATE.
FLOAT(6) FLOAT(25)	01 NUM6 COMP-1.¹ 01 NUM6 COMP-2.¹
REAL	01 NUM7 COMP-1.¹
DOUBLE PRECISION	01 NUM8 COMP-2.¹
DATE	DATEの解釈に依存²
DATE ANSI	同等のOpenVMSなし³
DATE VMS	type SQL_DATE_VMS is record 10 : integer; 11 : integer; end record;
TIME	同等のOpenVMSなし³
TIMESTAMP	同等のOpenVMSなし³
INTERVAL DAY TO SECOND	同等のOpenVMSなし^3、4
LIST OF BYTE VARYING	サポートなし⁵

¹SQLモジュール・プロセッサのコマンドラインの/FLOAT修飾子または/[NO]G_FLOAT修飾子は、COBOLのコンパイルのそれと一致している必要があります。
²SQLでは、SQLモジュール・ファイル内でDEFAULT DATE FORMAT SQL92を指定して定義環境を変更しないかぎり、修飾されていないDATEデータ型はデフォルトでDATE VMSとして解釈されます。
³DATE VMS以外では、日時データ型の長さと書式はOracle Rdbで使用するために予約されています。ホスト・プログラムでは、表4-2に示されているデータ型を使用してください。
⁴INTERVALデータ型には、他に12個の修飾子の組合せがあります。表2-9を参照してください。
⁵モジュール言語では、仮パラメータのデータ型としてLIST OF BYTE VARYINGはサポートされません。ただし、クワッドワードまたは8バイトの文字列を使用して、セグメント化された文字列識別子、リストの先頭要素のポインタを取得できます。リストの個別要素の値を取得するには、CHARデータ型またはVARCHARデータ型のホスト言語変数を使用します。
⁶文字長およびモジュール言語の詳細は、第3.3節を参照してください。
⁷セッションのデフォルト・キャラクタ・セットおよび各国語キャラクタ・セットがDEC_MCSであると想定しています。

表3-8は、SQL仮パラメータに対するFORTRAN宣言を示しています。

**表3-8 SQL仮パラメータのデータ型に対するFORTRAN宣言**
SQL仮パラメータのデータ型	互換性のあるFORTRANのパラメータ宣言⁹
CHAR(10)	CHARACTER*10 STR1
CHAR(10) CHARACTER SET KANJI	CHARACTER*20 STR1⁸
NCHAR(10)	CHARACTER*10 STR1⁸
VARCHAR(80)	サポートなし¹
VARCHAR(80) CHARACTER SET KANJI	サポートなし¹
NCHAR VARYING(80)	サポートなし¹
LONG VARCHAR	サポートなし¹
TINYINT(2) TINYINT	サポートなし¹ LOGICAL*1²
SMALLINT(2) SMALLINT	サポートなし¹ INTEGER*2 NUM1
INTEGER(2) INTEGER	サポートなし¹ INTEGER*4 NUM2
BIGINT(2) BIGINT	サポートなし¹ サポートなし¹
DECIMAL(18,2) DECIMAL(18)	サポートなし¹ サポートなし¹
NUMERIC(18,2) NUMERIC(18)	サポートなし¹ サポートなし¹
FLOAT(6) FLOAT(25)	REAL*4 NUM4³ DOUBLE PRECISION NUM4³
REAL	REAL*4 NUM5³
DOUBLE PRECISION	DOUBLE PRECISION NUM6³
DATE	DATEの解釈に依存⁴
DATE ANSI	同等のOpenVMSなし⁵
DATE VMS	STRUCTURE /SQL_DATE_VMS/ INTEGER4 L0 INTEGER4 L1 END STRUCTURE
TIME	同等のOpenVMSなし⁵
TIMESTAMP	同等のOpenVMSなし⁵
INTERVAL DAY TO SECOND	同等のOpenVMSなし^5、6
LIST OF BYTE VARYING	サポートなし⁷

¹FORTRANでは、可変文字、スケール付き整数または数値の各データ型はサポートされません。これらのデータ型で定義されている列をデータベースから取得するには、FORTRANでサポートされているデータ型で仮パラメータを宣言し、SQLモジュール・プロシージャ文でこれらの仮パラメータを参照します。SQLで列内のデータが仮パラメータのデータ型に変換されます。
²FORTRANでは、BYTEはLOGICAL*1のシノニムであり、Oracle RdbのSQLインタフェースによって解析されます。
³SQLモジュール・プロセッサのコマンドラインの/FLOAT修飾子または/[NO]G_FLOAT修飾子は、FORTRANのコンパイルのそれと一致している必要があります。
⁴SQLでは、SQLモジュール・ファイル内でDEFAULT DATE FORMAT SQL92を指定して定義環境を変更しないかぎり、修飾されていないDATEデータ型はデフォルトでDATE VMSとして解釈されます。
⁵DATE VMS以外では、日時データ型の長さと書式はOracle Rdbで使用するために予約されています。ホスト・プログラムでは、表4-2に示されているデータ型を使用してください。
⁶INTERVALデータ型には、他に12個の修飾子の組合せがあります。表2-9を参照してください。
⁷モジュール言語では、仮パラメータのデータ型としてLIST OF BYTE VARYINGはサポートされません。ただし、8バイトの文字列を使用して、セグメント化された文字列（リスト）識別子、リストの先頭要素のポインタを取得できます。リストの個別要素の値を取得するには、CHARデータ型のホスト言語変数を使用します。
⁸文字長およびモジュール言語の詳細は、第3.3節を参照してください。
⁹セッションのデフォルト・キャラクタ・セットおよび各国語キャラクタ・セットがDEC_MCSであると想定しています。

表3-9は、SQL仮パラメータに対するPascal宣言を示しています。

**表3-9 SQL仮パラメータのデータ型に対するPascal宣言**
SQL仮パラメータのデータ型	互換性のあるPascalのパラメータ宣言¹¹
CHAR(10)	VAR STR1 : PACKED ARRAY [1..10] OF CHAR;
CHAR(10) CHARACTER SET KANJI	VAR STR1 : PACKED ARRAY [1..20] OF CHAR;¹⁰
NCHAR(10)	VAR STR1 : PACKED ARRAY [1..10] OF CHAR;¹⁰
VARCHAR(80)	VAR STR2 : VARYING [80] OF CHAR;
VARCHAR(80) CHARACTER SET KANJI	VAR STR2 : VARYING [160] OF CHAR;¹⁰
NCHAR VARYING(80)	VAR STR2 : VARYING [80] OF CHAR;¹⁰
LONG VARCHAR	VAR STR3 : VARYING [16383] OF CHAR;
TINYINT(2) TINYINT	サポートなし¹ VAR NUM1 : [BYTE] --128..127;
SMALLINT(2) SMALLINT	サポートなし¹ VAR NUM1 : [WORD] --32768..32767;
INTEGER(2) INTEGER	サポートなし¹ VAR NUM2 : [LONG] --MAXINT..+MAXINT;
BIGINT(2) BIGINT	サポートなし¹ サポートなし¹
DECIMAL(18,2) DECIMAL(18)	サポートなし¹ サポートなし¹
NUMERIC(18,2) NUMERIC(18)	サポートなし¹ サポートなし¹
FLOAT(6)	VAR NUM4 : SINGLE² VAR NUM4 : F_FLOAT^3、4 VAR NUM4 : S_FLOAT⁵
FLOAT(25)	VAR NUM4 : DOUBLE² VAR NUM4 : G_FLOAT³ VAR NUM4 : D_FLOAT⁴ VAR NUM4 : T_FLOAT⁵
REAL	VAR NUM4 : SINGLE² VAR NUM4 : F_FLOAT^3、4 VAR NUM4 : S_FLOAT⁵
DOUBLE PRECISION	VAR NUM4 : DOUBLE² VAR NUM4 : G_FLOAT³ VAR NUM4 : D_FLOAT⁴ VAR NUM4 : T_FLOAT⁵
DATE	DATEの解釈に依存⁶
DATE ANSI	同等のOpenVMSなし⁷
DATE VMS	SQL_DATE_VMS = RECORD L0 : INTEGER; L1 : INTEGER; END;
TIME	同等のOpenVMSなし⁷
TIMESTAMP	同等のOpenVMSなし⁷
INTERVAL DAY TO SECOND	同等のOpenVMSなし^7、8
LIST OF BYTE VARYING	サポートなし⁹

¹Pascalでは、パック10進数、数値またはスケール付き整数の各データ型はサポートされません。これらのデータ型で定義されている列をデータベースから取得するには、Pascalでサポートされているデータ型で仮パラメータを宣言し、SQLモジュール・プロシージャ文でこれらの仮パラメータを参照します。SQLで列内のデータが仮パラメータのデータ型に変換されます。
²SQLモジュール・プロセッサのコマンドラインの/FLOAT修飾子または/[NO]G_FLOAT修飾子が、Pascalのコンパイルのそれと一致している必要がある場合。
³SQLモジュール・プロセッサのコマンドラインで/FLOAT=G_FLOATが指定されている場合。
⁴SQLモジュール・プロセッサのコマンドラインで/FLOAT=D_FLOATが指定されている場合。
⁵SQLモジュール・プロセッサのコマンドラインで/FLOAT=IEEE_FLOATが指定されている場合。
⁶SQLでは、SQLモジュール・ファイル内でDEFAULT DATE FORMAT SQL92を指定して定義環境を変更しないかぎり、修飾されていないDATEデータ型はデフォルトでDATE VMSとして解釈されます。
⁷DATE VMS以外では、日時データ型の長さと書式はOracle Rdbで使用するために予約されています。ホスト・プログラムでは、表4-2に示されているデータ型を使用してください。
⁸INTERVALデータ型には、他に12個の修飾子の組合せがあります。表2-9を参照してください。
⁹モジュール言語では、仮パラメータのデータ型としてLIST OF BYTE VARYINGはサポートされません。ただし、8バイトの文字列を使用して、セグメント化された文字列識別子、リストの先頭要素のポインタを取得できます。リストの個別要素の値を取得するには、CHARデータ型またはVARCHARデータ型のホスト言語変数を使用します。
¹⁰文字長およびモジュール言語の詳細は、第3.3節を参照してください。
¹¹セッションのデフォルト・キャラクタ・セットおよび各国語キャラクタ・セットがDEC_MCSであると想定しています。

表3-10は、SQL仮パラメータに対するPL/I宣言を示しています。

**表3-10 SQL仮パラメータのデータ型に対するPL/I宣言**
SQL仮パラメータのデータ型	互換性のあるPL/Iのパラメータ宣言⁹
CHAR(10)	DCL STR1 CHAR(10);
CHAR(10) CHARACTER SET KANJI	DCL STR1 CHAR(20);⁸
NCHAR(10)	DCL STR1 CHAR(10);⁸
VARCHAR(80)	DCL STR2 CHAR(80) VAR;
VARCHAR(80) CHARACTER SET KANJI	DCL STR2 CHAR(160) VAR;⁸
NCHAR VARYING(80)	DCL STR2 CHAR(80) VAR;⁸
LONG VARCHAR	DCL STR3 CHAR(16383) VAR;
TINYINT(2) TINYINT	サポートなし¹ FIXED BINARY(7);
SMALLINT(2) SMALLINT	サポートなし¹ DCL NUM1 BIN FIXED(15);
INTEGER(2) INTEGER	サポートなし¹ DCL NUM2 BIN FIXED(31);
BIGINT(2) BIGINT	サポートなし¹ サポートなし¹
DECIMAL(4) DECIMAL(18,2)	DCL NUM3 FIXED(4) DEC; DCL NUM3 FIXED(18,2) DEC;
NUMERIC(2) NUMERIC(18,2)	DCL NUM4 PIC 'S(4)9';² DCL NUM4 PIC 'S(16)9V99';²
FLOAT(6) FLOAT(25)	DCL NUM5 BIN FLOAT(24);³ DCL NUM5 BIN FLOAT(53);³
REAL	DCL NUM5 BIN FLOAT(24);³
DOUBLE PRECISION	DCL NUM5 BIN FLOAT(53);³
DATE	DATEの解釈に依存⁴
DATE ANSI	同等のOpenVMSなし⁵
DATE VMS	DECLARE 1 SQL_DATE_VMS, 2 L0 BIN FIXED(31); 2 L1 BIN FIXED(31);
TIME	同等のOpenVMSなし⁵
TIMESTAMP	同等のOpenVMSなし⁵
INTERVAL DAY TO SECOND	同等のOpenVMSなし^5、6
LIST OF BYTE VARYING	サポートなし⁷

¹PL/Iでは、スケール付き整数またはBIGINTの各データ型はサポートされません。これらのデータ型で定義されている列をデータベースから取得するには、PL/Iでサポートされているデータ型で仮パラメータを宣言し、SQLモジュール・プロシージャ文でこれらの仮パラメータを参照します。SQLで列内のデータが仮パラメータのデータ型に変換されます。
²このデータ型は記述子で渡さないでください。
³SQLモジュール・プロセッサのコマンドラインの/FLOAT修飾子または/[NO]G_FLOAT修飾子は、PL/Iのコンパイルのそれと一致している必要があります。
⁴SQLでは、SQLモジュール・ファイル内でDEFAULT DATE FORMAT SQL92を指定して定義環境を変更しないかぎり、修飾されていないDATEデータ型はデフォルトでDATE VMSとして解釈されます。
⁵DATE VMS以外では、日時データ型の長さと書式はOracle Rdbで使用するために予約されています。ホスト・プログラムでは、表4-2に示されているデータ型を使用してください。
⁶INTERVALデータ型には、他に12個の修飾子の組合せがあります。表2-9を参照してください。
⁷モジュール言語では、仮パラメータのデータ型としてLIST OF BYTE VARYINGはサポートされません。ただし、8バイトの文字列を使用して、セグメント化された文字列（リスト）識別子、リストの先頭要素のポインタを取得できます。リストの個別要素の値を取得するには、CHARデータ型またはVARCHARデータ型のホスト言語変数を使用します。
⁸文字長およびモジュール言語の詳細は、第3.3節を参照してください。
⁹セッションのデフォルト・キャラクタ・セットおよび各国語キャラクタ・セットがDEC_MCSであると想定しています。

使用方法

SQLモジュール言語では、次の3種類のAdaパッケージがサポートされています。

SQL_STANDARD
SQL_SQLCODE
SQL_SQLCA

SQL_SQLCAパッケージでは、SQLCA構造体が定義されています。また、SQL_SQLCODEパッケージでは、SQLCODE値のリテラル定義が含まれています。

注意
Adaのリテラルには、ASCII文字のみが含まれている必要があります。

ホスト言語変数は、直接宣言したり、SQL_STANDARD Adaパッケージをコールして宣言できます。
ANSI/ISO SQL規格に準拠する必要がある場合は、SQL_STANDARD Adaパッケージを使用する必要があります。このパッケージにより、ANSI規格でサポートされているデータ型が定義されます。このパッケージを使用するには、最初にSYS$LIBRARY:SQL$STANDARD.ADAファイルを独自のAdaライブラリにコピーし、次にパッケージをコンパイルします。
SQL_STANDARDパッケージにより、次のANSI規格のデータ型が宣言されます。

CHAR
SMALLINT
INT
REAL
DOUBLE_PRECISION
SQLCODE_TYPE

SQLCODE_TYPEデータ型には、3つのサブタイプNOT_FOUND、INDICATOR_TYPEおよびSQL_ERRORが含まれます。
Adaをソース言語として使用してSQLモジュールをコンパイルすると、Oracle RdbではSQLモジュール内のすべてのプロシージャに対するAda宣言を含むAdaパッケージが生成されます。各ルーチンの宣言の一部は、各パラメータの宣言です。これらのパラメータは、SQL_STANDARDパッケージ内のデータ型を使用して宣言されます。
生成されたパッケージを利用するには、ホスト言語プログラムでAdaのWITH句を使用する必要があります。生成されたパッケージは、SQLモジュールと同じ名前です。
生成されたパッケージを利用するには、ホスト言語プログラムをコンパイルする前にSQLモジュールをコンパイルする必要があります。ACS LINKを使用するときは、まずAdaソース・プログラムのオブジェクト・ファイル、次にSQLモジュールによって作成されたオブジェクト・ファイル、その後にSQL$USERなど、他に必要なライブラリを指定します。

例

例1: 生成されたAdaパッケージを使用したSQLモジュール・ファイルのコンパイル

MODULE MY_MODULE (1)
LANGUAGE ADA
AUTHORIZATION RDB$DBHANDLE

DECLARE ONE SCHEMA FILENAME personnel_one
DECLARE TWO SCHEMA FILENAME personnel_two
   .
   .
   .
PROCEDURE COUNT
    SQLCODE
    THE_COUNT INT;

    SELECT COUNT(DISTINCT EMPLOYEE_ID)
        INTO THE_COUNT
        FROM ONE.EMPLOYEES;