sybase与oracle存储过程的写法对比

在oracle中创建存储过程和sybase及sql server下的语法有些不一致之处。
下面就此用不同的数据库下存储过程的例子来演示之。
－－－－－－－－－－－－－－－－－－－－－－－－－－－
oracle下： 

CREATE OR REPLACE FUNCTION MY_FUNC
(
P1 IN MY_TABLE.YY%TYPE,
P2 IN MY_TABLE.NN%TYPE,
P3 VARCHAR(100)
)
RETURN VARCHAR2 AS
/**//*定义有参数的游标和无参数的游标*/
CURSOR MY_CURSOR1 IS
    SELECT YY,NN,DECODE(FYYSDM,0,'合计',1,'加工费','其他费用要素')
    FROM MY_TABLE
    WHERE YY=P1
    GROUP BY YY,NN
    ORDER BY YY,NN;
/**//*定义游标变量，存储游标数据集中的记录*/
V_CURSOR1 MY_CURSOR1%ROWTYPE; 

CURSOR MY_CURSOR2(V_ZYDM MY_TABLE.ZYDM%TYPE,V_FYYSDM NUMBER) AS
    SELECT YY,NN,ZYDM,NVL(ZYCB,0) /**//*NVL函数转换空值为指定值*/
    FROM MY_TABLE
    WHERE YY=P1 AND NN=P2 AND ZYDM=V_ZYDM AND FYYSDM=V_FYYSDM
    GROUP BY YY,NN;
/**//*定义游标变量，存储游标数据集中的记录*/
V_CURSOR2 MY_CURSOR2%ROWTYPE; 

V_CPDM  MY_TABLE.CPDM%TYPE;
V_COUNT NUMBER;
V_BZ    VARCHAR2(2);
V_CPCB  NUMBER(22,2);

BEGIN
    V_BZ:=1;
    SELECT CPDM INTO V_CPDM FROM MY_TABLE;
    SELECT CPCB INTO V_CPCB FROM MY_TABLE WHERE ROWNUM=1;
    
    IF MY_CURSOR1%ISOPEN THEN /**//*判断游标是否已经打开*/
        CLOSE MY_CURSOR1;
    END IF;
    OPEN MY_CURSOR1;
    FETCH MY_CURSOR1 INTO V_CURSOR1;
    IF MY_CURSOR1%NOTFOUND THEN /**//*游标返回结果为空*/
        CLOSE MY_CURSOR1;
           RETURN(V_BZ);
    END IF;
    WHILE MY_CURSOR1%FOUND LOOP /**//*游标返回结果不为空*/
        V_CPDM:=V_CURSOR1.CPDM;
        V_CPCB:=V_CURSOR1.CPCB;
        V_COUNT:=100;
        IF V_COUNT=100 THEN
            V_COUNT:=99;
        END IF;
            FETCH MY_CURSOR1 INTO V_CURSOR1;
    END LOOP;
    CLOSE MY_CURSOR1;

    /**//*显式打开带参游标*/
    SELECT CPDM INTO V_CPDM FROM MY_TABLE;
    OPEN MY_CURSOR2;
    FETCH MY_CURSOR2 INTO V_CURSOR2;
    WHILE MY_CURSOR2%FOUND LOOP /**//*游标返回结果不为空*/
        V_CPDM:=V_CURSOR2.CPDM;
        V_CPCB:=V_CURSOR2.CPCB;
        V_COUNT:=100;
        IF V_COUNT=100 THEN
            V_COUNT:=99;
        ELSE
            V_COUNT:=88;
        END IF;
            FETCH MY_CURSOR2 INTO V_CURSOR2;
    END LOOP;
    CLOSE MYCURSOR2;

    /**//*隐式打开游标*/
    FOR V_CURSOR2 IN MY_CURSOR2(V_CPDM,V_CURSOR1.FYYSDM) LOOP
        IF V_CURSOR2.CPCB IS NULL THEN
           PRINT '非法!';
           ROLLBACK;
        END IF;

        UPDATE MY_TABLE
        SET CPCB=V_CPCB
        WHERE YY=P1 AND NN=P2 AND CPDM=V_CURSOR2.CPDM;
        IF SQL%NOTFOUND THEN /**//*判断前句是否有执行结果*/
           /**//*程序段*/
        END IF;
    END LOOP;
    
    V_BZ:=MY_DELETE_CB(P_YY,P_NN);
    IF V_BZ<>0 THEN
        PRINT '失败!';
    END IF;
    FOR I INT 1..V_COUNT LOOP
        /**//**/
    END LOOP;

    COMMIT;/**//*提交事务*/
    RETURN(0);/**//*要有返回值*/
END MY_FUNC;

CREATE OR REPLACE PROCEDURE SP_MY 
(
P_YY IN MY_TABLE.YY%TYPE;
P_NN NUMBER;
)
IS

CURSOR MY_CURSOR IS
    SELECT CPCB 
    FROM MY_TABLE 
    WHERE YY=P_YY AND NN=P_NN;

V_ZYCB NUMBER(22,2);

BEGIN
    /**//**/
    /**//*无返回值*/
END;

附oracle下函数：
NVL(AAA,BBB)  空值判断函数，AAA是待判断变量,BBB为为空时要替换值
DECODE(ID,P1,S1,P2,S2,S3) 条件判断函数，假如ID是P1则返回S1,假如ID是P2则返回S2,否则返回S3。
RPAD(AAA,COUNT,'0') 字符补空函数，在AAA变量后补零，共字符串长COUNT。
SUBSTR(AAA,M,N) 取子串函数，取AAA从第M个字符开始，取N个字符。
LENGTH(STR)  取字符长度。
LENGTHB(STR) 取字符字节长度。
TO_CHAR()
TO_NUMBER()类型转换函数
--------------------------------------------------
SYBASE下:

CREATE PROCEDURE PRO_MY
(
@P_YY CHAR(4),
@P_NN CHAR(2)='01',
@P_OUT VARCHAR(255)=NULL OUTPUT
)
AS
BEGIN
    DECLARE @V_CPDM NUMERIC(9,0),
            @V_CPCB NUMERIC(22,2),
            @V_ID   INT,
            @V_JE   FLOAT

    DECLARE CUR_TEST CURSOR FOR
        SELECT CPCB,JE
        FROM TEST
        WHERE YY=@P_YY AND NN=@P_NN AND CPDM=@V_CPDM
    FOR READ ONLY

    SELECT @V_CPCB=CPCB 
    FROM TEST 
    WHERE YY=@P_YY AND NN=@P_NN AND CPDM=@V_CPDM
    IF @@ROWCOUNT=0
        PRINT '未找到'
    ELSE
            PRINT '找到'

    OPEN CUR_TEST
    FETCH CUR_TEST INTO @V_CPCB,@V_JE
    IF @@SQLSTATUS=2 --返回结果集为空
    IF @@SQLSTATUS=1 --游标执行出错
    BEGIN
        RAISERROR 20000 --返回自定义错误号
        --RAISERROR 20000,'错误信息' --返回自定义错误号
        ROLLBACK
        RETURN 10
    END
    WHILE @@SQLSTATUS=0 --结果集返回正常结果
    BEGIN
        /**//*Exception*/
        FETCH CUR_TEST INTO @V_CPCB,@V_JE
    END
    
    SELECT @V_ID=@V_ID+1

    IF (@V_STR NOT LIKE "[0-9]")
        SELECT @@V_ID=1

    EXECUTE @V_ID=DELETE_CB @P_YY,@P_NN  

    UPDATE TEST SET CPCB=100 WHERE YY=@P_YY AND NN=@P_NN
    IF @@ERROR!=0
             PRINT '更新失败'  

    RETURN 0

END

附录：
CONVERT(INT,@V_JE) --类型转换函数
LTRIM(@V_STR) --去掉左空格
RTRIM(@V_STR) --去掉右空格
ROUND(@V_JE,2) --数值小数位数设定
SUBSTRING(@V_STR,M,N) --取子字符串
STR(@V_JE,M,N) --设置数值的显示位数和小数位数
CHAR_LENGTH(@V_STR) --字符串长度
PATINDEX("%[0-9]%",@V_STR) --取前边字符在后面字符串中的起始位置
patindex("%[kKmMgGpP]%", @v_str)
--case语句
CASE @V_ID WHEN 0 THEN 'NO' WHEN 1 THEN 'YES' ELSE 'OTHER' END
ISNULL(@V_JE,0) --非空值判断
－－－－－－－－－－－－－－－－－－－－－－－－－
另外：
关于事务处理：
ORACLE下不用显式打开事务，直接提交即可，而且可以分步提交，多次提交，不用成对出现。
SYBASE必须显式打开和提交事务，且必须成对出现，平时我们单条更新语句的执行被sybase默认为隐式事务来提交。