oracle function²¿·Ö£¬ÔËÐÐʱ±¨invalid ´í¡£

´ËfunctionʵÏÖµÄÊǽ«Ð¡Ð´Êý×Öת»»³É´óд×Öĸ,¿´µÄÊéÉϵÄÀý×Ó,Ë­ÄÜ°ïÎÒ½âÊÍÏÂÎÊÌâ³öÔÚÄÄ£¿

SQL code:

CREATE OR REPLACE FUNCTION smalltobig(smallmoney in VARCHAR2)
RETURN bigmoney IS

BigWrite VARCHAR2(54);
Bignum VARCHAR2(2);
RMB VARCHAR2(2);
moneyplace NUMBER;
dotplace NUMBER;
moneynum NUMBER;
myexception EXCEPTION;

BEGIN
dotplace := INSTR(smallmoney, '.');
IF(LENGTH(smallmoney) > 14) OR ((LENGTH(smallmoney) > 12) AND (dotplace = 0)) THEN
RAISE myexception;
END IF;
IF dotplace = 0 THEN
moneyplace := 0;
Else
moneyplace := dotplace - LENGTH(smallmoney);
END IF;
FOR moneynum IN REVERSE 1..LENGTH(smallmoney) LOOP
IF moneynum <> dotplace THEN
CASE SUBSTR(smallmoney, moneynum, 1)
WHEN '1' THEN BigWrite := 'Ò¼';
WHEN '2' THEN BIGWrite := '·¡'£»
WHEN '3' THEN BigWrite := 'Èþ';
WHEN '4' THEN BigWrite := 'ËÁ';
WHEN '5' THEN BigWrite := 'Îé';
WHEN '6' THEN BigWrite := '½';
WHEN '7' THEN BigWrite := 'Ⱦ';
WHEN '8' THEN BigWrite := '°Æ';
WHEN '9' THEN BigWrite := '¾Á';
WHEN '0' THEN BigWrite := 'Áã';
END CASE;
CASE moneyplace
WHEN '-2' THEN RMB := '·Ö';
WHEN '-1' THEN RMB := '½Ç';
WHEN '0' THEN RMB := 'Ôª';
WHEN '1' THEN RMB := 'Ê°';
WHEN '2' THEN RMB := '°Û';