<JOB>
<COMMENT>
************************************************************
 WEB WSH 実行スケルトン
************************************************************
</COMMENT>

<COMMENT>
************************************************************
 外部スクリプト定義
************************************************************
</COMMENT>
<SCRIPT
	language="VBScript"
	src="http://lightbox.in.coocan.jp/laylaClass.vbs">
</SCRIPT>

<SCRIPT language=VBScript>
' ***********************************************************
' 処理開始
' ***********************************************************
Call laylaFunctionTarget( "http://lightbox.in.coocan.jp/" )
Call laylaLoadFunction( "baseFunction.vbs" )

Call RunCmd( 120, "sqlplus LIGHTBOX/LIGHTBOX@//night/XE" )

</SCRIPT>
</JOB>

SET VERIFY OFF
SET SERVEROUTPUT ON
SET LINESIZE 200
SET PAGESIZE 1000
--SET AUTOCOMMIT IMM

show all

SET LINESIZE 200
SET PAGESIZE 1000
select * from 商品マスタ;
delete from 商品マスタ where 商品コード = '0000';
EXIT

sqlplus LIGHTBOX/LIGHTBOX@//localhost/XE @action > action.txt

CREATE OR REPLACE FUNCTION DISP_STRING
(
	PM_STRING IN VARCHAR2	/* 引数の定義 */
)
RETURN VARCHAR2	/* 戻り値の定義 */

/**********************************************************/
/* 変数の定義 */
/**********************************************************/
AS
	RET_VALUE	VARCHAR2(2000);
	WK_VALUE	VARCHAR2(2000);

/**********************************************************/
/* 処理開始 */
/**********************************************************/
BEGIN
	DBMS_OUTPUT.PUT_LINE('デバッグ:開始');
	DBMS_OUTPUT.PUT_LINE('デバッグ:引数:'||PM_STRING);
	RET_VALUE := PM_STRING;
	RETURN RET_VALUE;

/**********************************************************/
/* 一番外側のブロックの例外処理 */
/**********************************************************/
EXCEPTION
	WHEN OTHERS THEN
		RET_VALUE := '例外発生:'||SQLCODE||':'||SQLERRM;
		RETURN RET_VALUE;
END;
/

select DISP_STRING('A') from dual;

DECLARE
	WK_DATA VARCHAR2(2000);
BEGIN
	WK_DATA := DISP_STRING('A');
END;
/

CREATE OR REPLACE PROCEDURE SHOW_DATE
(
	PM_STRING IN VARCHAR2
)

/**********************************************************/
/* 変数の定義 */
/**********************************************************/
AS
	RET_VALUE	VARCHAR2(2000);
	WK_VALUE	VARCHAR2(2000);

/**********************************************************/
/* 処理開始 */
/**********************************************************/
BEGIN
	DBMS_OUTPUT.PUT_LINE('デバッグ:開始');
	DBMS_OUTPUT.PUT_LINE('デバッグ:引数:'||PM_STRING);

	-- *************************************************
	-- SELECT 〜 INTO 
	-- 関数の結果を変数にセットする処理
	-- この場合は、WK_VALUE := sysdate でも良い
	-- 実際は、テーブルから1行のデータを取得して
	-- 変数に代入したい場合に使用
	-- *************************************************
	SELECT sysdate INTO WK_VALUE from DUAL;

	DBMS_OUTPUT.PUT_LINE('デバッグ:結果:'||WK_VALUE);

/**********************************************************/
/* 一番外側のブロックの例外処理 */
/**********************************************************/
EXCEPTION
	WHEN OTHERS THEN
		DBMS_OUTPUT.PUT_LINE('例外発生:'||SQLCODE||':'||SQLERRM);
END;
/

EXEC SHOW_DATE('A')

BEGIN SHOW_DATE('A'); END;
/

CALL SHOW_DATE('A');

CREATE or REPLACE PROCEDURE GET_DATA
(
	PM_STRING IN VARCHAR2,
	PM_NAME OUT VARCHAR2
)

/**********************************************************/
/* 変数の定義 */
/**********************************************************/
AS
	RET_VALUE	VARCHAR2(2000);
	WK_VALUE	VARCHAR2(2000);

	CURSOR cur_main IS
		SELECT * FROM 社員マスタ
		where 社員コード = PM_STRING;

	COMMENT_REC cur_main%ROWTYPE; 

/**********************************************************/
/* 処理開始 */
/**********************************************************/
BEGIN
	DBMS_OUTPUT.PUT_LINE('デバッグ:開始');
	DBMS_OUTPUT.PUT_LINE('デバッグ:引数:'||PM_STRING);

	OPEN cur_main;

	FETCH cur_main INTO COMMENT_REC;
	DBMS_OUTPUT.PUT_LINE('デバッグ:結果:'||COMMENT_REC.氏名);
	-- 引数に戻す
	PM_NAME := COMMENT_REC.氏名;

	CLOSE cur_main;

/**********************************************************/
/* 一番外側のブロックの例外処理 */
/**********************************************************/
EXCEPTION
	WHEN OTHERS THEN
		DBMS_OUTPUT.PUT_LINE('例外発生:'||SQLCODE||':'||SQLERRM);
END;
/

-- SQL*Plusでは、コマンド内で未定義の置換変数が検出された場合、
-- 値の入力を求めるプロンプトが表示されます。
DECLARE
	WK_DATA VARCHAR2(2000);
BEGIN
	GET_DATA( '&TARGET', WK_DATA );
	DBMS_OUTPUT.PUT_LINE( 'OUT引数の内容:'||WK_DATA );
END;
/

CREATE or REPLACE PROCEDURE GET_DATA_LOOP

/**********************************************************/
/* 変数の定義 */
/**********************************************************/
AS
	RET_VALUE	VARCHAR2(2000);
	WK_VALUE	VARCHAR2(2000);

	CURSOR cur_main IS
		SELECT * FROM 社員マスタ
		order by 社員コード;

	COMMENT_REC cur_main%ROWTYPE; 

/**********************************************************/
/* 処理開始 */
/**********************************************************/
BEGIN
	DBMS_OUTPUT.PUT_LINE('デバッグ:開始');

	OPEN cur_main;

	LOOP 
		FETCH cur_main INTO COMMENT_REC;
		if cur_main%NOTFOUND then 
			EXIT; 
		end if; 

		DBMS_OUTPUT.PUT_LINE('デバッグ:結果:'||COMMENT_REC.氏名);
	 
	END LOOP; 

	CLOSE cur_main;

/**********************************************************/
/* 一番外側のブロックの例外処理 */
/**********************************************************/
EXCEPTION
	WHEN OTHERS THEN
		DBMS_OUTPUT.PUT_LINE('例外発生:'||SQLCODE||':'||SQLERRM);
END;
/

EXEC GET_DATA_LOOP