如何将存储过程从oracle 转到db2
请帮帮忙，谢谢一下是代码PROCEDURE CALL_GET_CHILDREN(
in_topNoINVARCHAR2,
in_topLevelININTEGER,
in_custNoINVARCHAR2
)IS
CURSOR children_cursor IS--下级企业游标
SELECT
GRL_CSTNO,
GRL_LEVEL,
GRL_HASCHILD
FROM CB_GROUP_REL
WHERE
GRL_PARENTNO = in_custNo ;
BEGIN
--
FOR custinfo IN children_cursor
LOOP
--
INSERT INTO CB_GROUP_TREE
(
GRT_CSTNO,
GRT_RELCSTNO,
GRT_LEVEL
)
VALUES
(
in_topNo ,
custinfo.GRL_CSTNO,
custinfo.GRL_LEVEL - in_topLevel
);
--
IF custinfo.GRL_HASCHILD = '1' THEN
--
CALL_GET_CHILDREN(
in_topNo,
in_topLevel,
custinfo.GRL_CSTNO
);
END IF;
END LOOP;
END;
页:
[1]