開いているカーソルでその次の結果セットを利用できるようにします。
構文:
>>---EXEC SQL---GET NEXT RESULT SET FOR ---cursor_name---END-EXEC---><
パラメーター:
cursor_name
|
以前宣言され開いたカーソル。
|
例:
exec sql declare c cursor for
call TestProc2(:hv-country)
end-exec
exec sql open c end-exec
display " "
display "First result set from proc"
display " "
perform until exit
exec sql fetch c into
:CustomerID, :Company, :City
end-exec
if sqlcode = 100 or sqlcode < 0
exit perform
end-if
display CustomerID " " City
end-perform
*> Always get SQLCODE 100 at the end of a result set
*> until you close the cursor or ask for another result set
exec sql fetch c into
:CustomerID, :Company, :City
end-exec
if sqlcode not = 100
display "FAIL: Fetch after SQLCODE 100 OK"
end-if
*> Ask for another result set, SQLCODE 100 if there isn't one
exec sql get next result set for c end-exec
display " "
display "Second result set from proc"
display " "
perform until exit
exec sql fetch c into
:CustomerID, :Company, :City
end-exec
if sqlcode = 100 or sqlcode < 0
exit perform
end-if
display CustomerID " " City
end-perform
コメント:
DIALECT=MAINFRAME を使用せずにコンパイルされたクライアント アプリケーションでは、複数の結果セットをストアド プロシージャから取得するかまたは複数の SELECT 文で定義される DECLARE CURSOR 文から取得するとき、GET NEXT RESULT SET によってその次の結果セットが利用できるようになります。
追加の結果セットがない場合は、GET NEXT RESULT SET は 100 に等しい SQLCODE を返し SQLSTATE を 02000 に設定します。