PL/SQLでエラー

質問

PL/SQLの使用方法を検討しており、下記のようにサンプルを作成しました。

//1. 宣言部
create or replace package Pac is
procedure Pro1(p1 in varchar2);
end;
/
パッケージが作成されました

//2. 本体
create or replace package body Pac is
procedure Pro1(p1 in varchar2) is
tempdate DATE;
begin
select to_char(sysdate, 'yyyy/mm/dd') INTO tempdate from dual;
DBMS_OUTPUT.PUT_LINE('引数は' || p1 || 'です。');
DBMS_OUTPUT.PUT_LINE('日付は' || tempdate || 'です。');
end;
end;
/
パッケージ本体が作成されました

//3. 実行
execute Pac.Pro1('a');

// エラー内容
行1でエラーが発生しました。:
ORA-00900: invalid SQL statement

SQLPlusより、上記の[1. 宣言部]でパッケージを作成し、[2. 本体]で本体部分を作成しました。

その後、[3. 実行]を実施しましたが、
エラーが出力されて実行されません。

何がいけないのかお気づきの点がございましたら、
よろしくお願いします。

回答No.1

nora1962

> tempdate DATE;
DATE型の変数に
> select to_char(sysdate, 'yyyy/mm/dd') INTO tempdate from dual;
文字列を代入しようとしています。

create or replace package body Pac is
procedure Pro1(p1 in varchar2) is
tempdate DATE;
begin
select sysdate INTO tempdate from dual;
DBMS_OUTPUT.PUT_LINE('引数は' || p1 || 'です。');
DBMS_OUTPUT.PUT_LINE('日付は' || to_char(tempdate, 'yyyy/mm/dd') || 'です。');
end;
end;
/
を試してみてください。