PROCEDURE GET_DATA
(
PM_STRING IN 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.氏名);
CLOSE cur_main;
/**********************************************************/
/* 一番外側のブロックの例外処理 */
/**********************************************************/
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE('例外発生:'||SQLCODE||':'||SQLERRM);
END;
|