次のコードを、whileやifを抜いたりしていろいろ試してみたのですが、両方を一緒にすると(ifとwhile)、いつも最後にエラーが出てしまいます...。
undefine numero
set serveroutput on
accept numero prompt 'Type # between 100 and 999: '
declare
i number:=1;
a char(25);
b char(1);
c varchar2(10);
d number;
begin
c := №
d := length(c);
b := substr(c, i, 1);
while i <= d loop
if b = '1' then
a:= a||'one ';
end if;
i := i+1;
end loop;
dbms_output.put_line('The number is '||a);
end;
/
ERROR:
ORA-06502: PL/SQL: numeric or value error: character string buffer too small
ORA-06512: at line 13
06502. 00000 - "PL/SQL: numeric or value error%s"
変数"a"の宣言方法を次のように変更することで FIXED
a varchar2(2000);
*ここでは、CHARの代わりにVARCHAR2を使用することが重要な変更であることに注意してください(大きな長さではありません)。user272735 'さんの回答によると、これがポイントだそうです。
CHARは固定長のデータ型で、可能な限り多くのスペースを使用します。 そのため、
a:= a||'one ';` は利用可能なスペースよりも多くのスペースを必要とします。 この問題は次のような例に還元できます。
declare
v_foo char(50);
begin
v_foo := 'A';
dbms_output.put_line('length of v_foo(A) = ' || length(v_foo));
-- next line will raise:
-- ORA-06502: PL/SQL: numeric or value error: character string buffer too small
v_foo := v_foo || 'B';
dbms_output.put_line('length of v_foo(AB) = ' || length(v_foo));
end;
/
決して char
を使ってはいけません。根拠は次の質問をチェックしてください(リンク先も読んでください)。