Web サービスから呼び出された次の Web サービスプロシージャは、sa_http_header_info システムプロシージャを示します。
CREATE OR REPLACE PROCEDURE User1.HTTPHeaderExample()
RESULT ( html_string LONG VARCHAR )
BEGIN
DECLARE myname VARCHAR(255);
DECLARE myvalue LONG VARCHAR;
DECLARE err_notfound
EXCEPTION FOR SQLSTATE '02000';
DECLARE curs CURSOR FOR
SELECT Name, Value FROM sa_http_header_info();
MESSAGE '=== HTTP Headers ===' TO CONSOLE;
OPEN curs;
FetchLoop: LOOP
FETCH next curs INTO myname, myvalue;
IF SQLSTATE = err_notfound THEN
LEAVE FetchLoop;
END IF;
MESSAGE myname, '=', myvalue TO CONSOLE;
END LOOP FetchLoop;
CLOSE curs;
END;
この Web サービスプロシージャを呼び出した Web サービスを使用した場合、次のようなデータベースサーバメッセージウィンドウに出力が表示されます。