リンク: OTN Japan – 掲示板.
>エラーが発生するときに、PL/SQLで戻る値をセットしましたが、起動バッチ >（例えばA.BAT）に渡す方法を教えてもらいませんか？ちなみにSQL*PLUSを >使って、PL/SQLを実行します。（別の方法がありますか？） >よろしくお願いします。 こんばんは。 ちょうど似たような要件があったので、SCOTT.EMPを使って簡単なサンプルを作っ てみました。 PL/SQLプロシジャからの戻り値をコマンドプロンプトで取得する方法です。 ご参考になれば幸いです。 ＜概略＞ １．SQLスクリプトにバインド変数を定義し、その変数プロシジャの戻り値として 実行します。 ２．プロシジャでは、戻り値に値をセットします。 ３．SQLスクリプトでは、プロシジャからの戻り値（バインド変数）をリターン・ コードとして OSに戻します。 ４．DOS（OS)では、ERRORLEVELでリターン・コードを取得します。 以下にサンプルを記述します。（Windows2003ServerSP1：Oracle10gSE (10.1.0.4)にて動作確認） ※入力値チェックなどはしていません(^^;;) ●EMPsample.bat <—— 起動するバッチファイル :RUNSTART SQLPLUS SCOTT/TIGER@xxxx @D:sampleempcount.sql if %ERRORLEVEL% == 999999 goto RUNEND echo ************************************ echo ** %ERRORLEVEL% 人在籍しています echo ** （↑ がプロシジャでセットした戻り値です） echo ************************************ echo off pause :RUNEND rem exit 0 ●EMPCOUNT.sql <—— プロシジャを起動するSQLファイル SET HEADING OFF SET ECHO OFF SET TERMOUT ON SET SERVEROUTPUT ON var intPara number ACCEPT DEPTNO PROMPT “EMP表を参照します。部署コードを入力して下さい （999999で終了）: “ EXEC PRO_EMPCOUNT( &DEPTNO,:intPara ) ; SET ECHO OFF SET TERMOUT ON SET SERVEROUTPUT ON EXIT :intPara ●EMPCOUNTPRO.sql <—— プロシジャ作成用SQLファイル CREATE OR REPLACE PROCEDURE SCOTT.PRO_EMPCOUNT( intDEPTNO IN INTEGER DEFAULT 99, intPara OUT INTEGER ) IS TYPE CUTYPE IS REF CURSOR; C1 CUTYPE; REC VARCHAR2(1000); TYPE RECORDSET IS RECORD(COUNT01 INTEGER); C1_REC RECORDSET; strSql VARCHAR(32767) DEFAULT NULL; intError INTEGER ; BEGIN IF intDEPTNO = 999999 THEN intPara := intDEPTNO; RETURN; END IF; intError := 0; intPara := 0; strSql := strSql||’SELECT COUNT(ROWID) FROM SCOTT.EMP WHERE EMP.DEPTNO = ‘||intDEPTNO; OPEN C1 FOR strSql; FETCH C1 INTO C1_REC; IF C1%NOTFOUND THEN /* 抽出データ無し */ intError := 999; GOTO PROC_END; ELSE intPara := C1_REC.COUNT01; END IF; <<PROC_END>> CLOSE C1; RETURN; EXCEPTION WHEN OTHERS THEN intError := SQLCODE; END; /