ファンクションでコンパイルエラーが出てしまい。
エラーが取り除けません。何が悪いのでしょうか？
ご教授願います。m(_ _)m
LINE/COL ERROR
-------- -----------------------------------------------------------------
$$913 from || multiset
記号"INTO" は無視されました。
69/4 PLS-00103: 記号"end-of-file"が見つかりました。
次のうちの1つが入るとき:
( begin case declare end exception exit for goto if loop mod
null pragma raise return select update while with
<an identifier> <a double-quoted delimited-identifier>
<a bind variable> << continue close current delete fetch lock
insert open rollback savepoint set sql execute commit forall
merge pipe purge
LINE/COL ERROR
以下
src
CREATE OR REPLACE FUNCTION ELEC_DATA_INS (
v_Date_ST IN VARCHAR,v_Date_ED IN VARCHAR ) RETURN NUMBER AS
/*------------------------------------------------------------------------------
変数
-------------------------------------------------------------------------------*/
V_VALUE NUMBER(1);
V_TELE_DATE_ST VARCHAR;
V_TELE_DATE_ED VARCHAR;
V_SUM NUMBER(7);
DECLARE
/* カーソル宣言 */
CURSOR cur01 IS
SELECT
OFFICE,STATION,SUM(TELE_VALUE) INTO V_SUM
FROM
TELEMETER_DATA
WHERE
DATETIME >= TO_DATE(V_TELE_DATE_ST,'YYYY/MM/DD HH24:MI:SS') AND
DATETIME <= TO_DATE(V_TELE_DATE_ED,'YYYY/MM/DD HH24:MI:SS')
GROUP BY OFFICE,STATION
ORDER BY OFFICE,STATION ASC;
/* カーソルデータ格納用レコード */
cur01_rec cur01%ROWTYPE;
BEGIN
--V_TELE_DATE_ST := v_Date_ST;
--V_TELE_DATE_ED := v_Date_ED;
V_TELE_DATE_ST := '2010/07/12 12:00:00';
V_TELE_DATE_ED := '2010/07/12 12:29:00';
-- カーソルのOPEN
OPEN cur01;
-- 1件目の取得
FETCH cur01 INTO cur01_rec;
-- 繰り返し処理
LOOP
-- カーソルにデータがない時は繰り返し処理を終了
IF cur01%NOTFOUND THEN
EXIT;
END IF;
-- テーブル名、表領域を表示
DBMS_OUTPUT.PUT_LINE(rec.OFFICE || ',' || rec.STATION || ',' || rec.V_SUM );
-- 2件目以降の取得
FETCH cur01 INTO cur01_rec;
END LOOP;
-- カーソルをCLOSE
CLOSE cur01;
--V_VALUE := 0;
RETURN V_VALUE;
END;
/