Edit profile

Page History

Versions Compared

Old Version 2

changes.mady.by.user Rieko Saitoh

Saved on Mar 30, 2023

compared with

New Version Current

changes.mady.by.user Rieko Saitoh

Saved on Jun 01, 2023

Key

This line was added.
This line was removed.
Formatting was changed.

...

このストアド・プロシージャにはSQLステートメントが含まれます。この CALL コマンドは、*QUERY、*UPDATE、または*EXECUTE のいずれかのタイプを指定する CALLTYPE コマンドと共に使用されます。

構文：

コマンド	キーワード	値	開発者用メモ
EXECUTE	CALL	値	必須。ストアド・プロシージャの名前。
	CALLTYPE	*QUERY	任意。ストアド・プロシージャで使用する SQL ステートメントのタイプを指定します。ストアド・プロシージャの SQL ステートメントがクエリーの場合、CALL によって結果セットが作業リストに返されます。デフォルト。
		*UPDATE	ストアド・プロシージャの SQL ステートメントが更新、挿入または削除の場合、CALL によって (更新されたレコード数の) 行数が #JSMMSG フィールドに返されます。
		*EXECUTE	このキーワードを指定した場合、ストアド・プロシージャでは何も返されません。
	CALLSYNTAX	*JDBC	任意。標準の JDBC 構文を使用することを示します。デフォルト。
	CALLSYNTAX	*ORACLE	Oracle の JDBC 構文を使用することを示します。
	RETURN	*NONE	任意。ストアド・プロシージャ/ファンクションからの戻り値のデータ・タイプを指定します。値は何も返されません。デフォルト。
		*CHAR
		*STRING
		*SMALLINT
		*INTEGER
		*FLOAT
		*DOUBLE
		*DECIMAL
		*NUMERIC
		*ORACLECURSOR	返される値は、Oracle クエリーの結果セットにアクセスする際に代替として使用されるカーソルになります。これは、Oracle ドライバーを使用する Oracle データベースでのみ使用できます。

パラメータは、作業リストやSET PARAMETER(*LIST)コマンドを使用してリモート・プロシージャに渡すことができます。この方法の詳細については、下記「リストと変数」を参照してください。

...

****************** データ開始 *************************************
CREATE PROCEDURE JSMJDBC/CALLSELECT(IN CODE CHAR (10))
LANGUAGE SQL
READS SQL DATA
RESULT SETS 1

BEGIN
DECLARE SQLCODE INTEGER DEFAULT 0;
DECLARE SQLSTATE ＣＨＡＲCHAR (5) DEFAULT '00000';

DECLARE C1 CURSOR WITH RETURN TO CLIENT FOR

SELECT ID,NAME,AGE FROM JSMJDBC/TBLNAME WHERE ID = CODE;

OPEN C1;

END
****************** データ終了 *************************************

****************** データ開始 *************************************
CREATE PROCEDURE JSMJDBC/CALLUPDATE(IN CODE CHAR (10))
LANGUAGE SQL
MODIFIES SQL DATA

BEGIN
DECLARE SQLCODE INTEGER DEFAULT 0;
DECLARE SQLSTATE ＣＨＡＲCHAR (5) DEFAULT '00000';
DECLARE num_records INTEGER;

UPDATE JSMJDBC/TBLNAME SET SALARY=12000.43 WHERE ID = CODE;

GET DIAGNOSTICS num_records = ROW_COUNT;

RETURN num_records;

END

****************** データ終了 *************************************

****************** データ開始 *************************************
CREATE PROCEDURE JSMJDBC/CALLEXECUT(IN CODE CHAR (10))
LANGUAGE SQL
MODIFIES SQL DATA

BEGIN
DECLARE SQLCODE INTEGER DEFAULT 0;
DECLARE SQLSTATE ＣＨＡＲCHAR (5) DEFAULT '00000';
DECLARE num_flag INTEGER DEFAULT 0;

UPDATE JSMJDBC/TBLNAME SET SALARY=16000.26 WHERE ID = CODE;

RETURN num_flag;

END

...

これらのストアドプロシージャを SQLService で実行する場合は、次のような EXECUTE コマンドを使用できます。

SET PARAMETER(*LIST) #WRKLST(PARM1)EXECUTE CALL("CALLSELECT(?)") CALLTYPE(*QUERY)

SET PARAMETER(*LIST) #WRKLST(PARM1)EXECUTE CALL("CALLUPDATE(?)") CALLTYPE(*UPDATE) RETURN(*INTEGER)

SET PARAMETER(*LIST) #WRKLST(PARM1)EXECUTE CALL("CALLEXECUT(?)") CALLTYPE(*EXECUTE) RETURN(*INTEGER)

リストと変数

QUERYキーワード、SQLステートメントがSELECTの場合のPREPAREDキーワード、またはCALLTYPEに*QUERYが指定されたCALLキーワードのいずれかを使用する場合、結果セットが返されるようにするには、このコマンドで作業リストを提供します。

この作業リストには、クエリーから返されると予想されるフィールドが含まれます。リストはフィールドの順序で埋められます。SELECTステートメントは、このリストに示されるよりも多くのフィールドを実際に返すことができますが、列よりも多いリスト・フィールドは返されません。列の値は、resultSet.getString (列インデックス)メソッドを使用して結果セットから受け取ります。リスト・エントリー・フィールドはこの文字列値で設定され、Javaデータ・タイプからネイティブ・データ・タイプへの変換が行われます。

非常に大きなリストが返されると予想される場合、この作業リストを省略し、READコマンドを使用して結果セットにアクセスできます。

UPDATEキーワードは結果セットを返さないため、この状況で作業リストを指定する必要はありません。

CALLでCALLTYPEに*UPDATEを指定した場合、行数(更新されたレコードの数)が返されるため、この値を取得するには1列のリストを指定できます。

呼び出したプロシージャ(CALLコマンドを使用)にパラメータを渡す必要がある場合、パラメータを含む作業リストを指定する必要があります。この作業リストには、渡す必要があるパラメータと同じだけの列があります。作業リストの最初の行のみが使用されます。リストは、SET PARAMETER(*LIST)コマンドを使用して準備する必要があります。この仕組みについての詳細は、以下の例と5

この仕組みについての詳細は、以下の例と 5.31.12 SQLServiceの例の例を参照してください。 SQLServiceの例を参照してください。

例:

SQLServiceサービスのSET、EXECUTE、READの各コマンドは、それぞれ緊密に関連しています。

RDML

* JSM コマンドおよびメッセージ・フィールドの定義
DEFINE FIELD(#JSMSTS) TYPE(*CHAR) LENGTH(020)
DEFINE FIELD(#JSMMSG) TYPE(*CHAR) LENGTH(256)
DEFINE FIELD(#JSMCMD) TYPE(*CHAR) LENGTH(256)

* クエリから返される結果セットを含むフィールドとリストを定義
DEFINE FIELD(#COL1) TYPE(*CHAR) LENGTH(010)
DEFINE FIELD(#COL2) TYPE(*CHAR) LENGTH(020)
DEFINE FIELD(#COL3) TYPE(*DEC) LENGTH(008) DECIMALS(0)
DEF_LIST NAME(#WRKLST) FIELDS(#COL1 #COL2 #COL3) TYPE(*WORKING)

* リモート・プロシージャに渡すフィールトとリストを定義し、クエリ値を示す
DEFINE FIELD(#PARAM1) TYPE(*CHAR) LENGTH(010)
DEF_LIST NAME(#PARAMLST) FIELDS(#PARAM1) TYPE(*WORKING)
CHANGE FIELD(#PARAM1) TO(A1001)
ADD_ENTRY TO_LIST(#PARAMLST)

*

...

EXECUTE の実行時にリモートプロシージャに渡されるようにリストを設定する
CHANGE FIELD(#JSMCMD) TO('SET PARAMETER(*LIST) SERVICE_LIST(PARAM1)')
USE BUILTIN(JSM_COMMAND) WITH_ARGS(#JSMCMD) TO_GET(#JSMSTS #JSMMSG #PARAMLST)

* プロシージャ呼び出し

CHANGE FIELD(#JSMCMD) TO('EXECUTE CALL("CALLSELECT

...

(?)") CALLTYPE(*QUERY) SERVICE_LIST(COL1,COL2,COL3)')
USE BUILTIN(JSM_COMMAND) WITH_ARGS(#JSMCMD) TO_GET(#JSMSTS #JSMMSG #WRKLST)

RDMLX

* JSM コマンドおよびメッセージ・フィールドの定義
Define Field(#JSMSTS) Type(*CHAR) Length(020)
Define Field(#JSMMSG) Type(*CHAR) Length(256)
Define Field(#JSMCMD) Type(*CHAR) Length(256)
Define Field(#JSMHND) Type(*Char) Length(4)

* クエリから返される結果セットを含むフィールドとリストを定義
Define Field(#COL1) Type(*CHAR) Length(010)
Define Field(#COL2) Type(*CHAR) Length(020)
Define Field(#COL3) Type(*DEC) Length(008) Decimals(0)
Def_List Name(#WRKLST) Fields(#COL1 #COL2 #COL3) Type(*WORKING)

* リモート・プロシージャに渡すフィールトとリストを定義し、クエリ値を示す
Define Field(#PARAM1) Type(*CHAR) Length(010)
Def_List Name(#PARAMLST) Fields(#PARAM1) Type(*WORKING)
#PARAM1 := A1001
Add_Entry To_List(#PARAMLST)

...

* EXECUTE 実行時、リモート・プロシージャに渡すフィールトとリストを設定する
#JSMCMD := 'Set Parameter(*LIST) Service_List(PARAM1)'
Use Builtin(JSMX_COMMAND) With_Args(#JSMHND #JSMCMD) To_Get(#JSMSTS #JSMMSG #PARAMLST)

* プロシージャ呼び出し

#JSMCMD := 'Execute("CallSelect

...

(?)") CallType(*QUERY)'

...

Use Builtin (JSM_COMMAND)

...

With_Args(

...

#JSMHND #JSMCMD)

...

To_Get(

...

#JSMSTS #JSMMSG #WRKLST)

...

Content

Space Tools