17,086
社区成员
发帖
与我相关
我的任务
分享
CREATE OR REPLACE PROCEDURE procWUGFTEST(
pName VARCHAR,
pErrCode OUT NUMBER,
pErrMsg OUT VARCHAR2
) IS
User_Return EXCEPTION;
strERR VARCHAR2(1024);
numERR NUMBER;
sqlStr VARCHAR2(1024);
BEGIN
strERR := 'OK';
numERR := 0;
BEGIN
sqlStr := 'INSERT INTO WUGFTEST(ID, NAME) VALUES (12.1,'''|| pName ||''')';
INSERT INTO WUGFTEST(ID, NAME) VALUES (12.1,pName);
EXCEPTION
WHEN OTHERS THEN
numERR := 9;
strERR := 'SQLCODE = ' || SQLCODE || ' SQLERRM = ' || SQLERRM ||' SQL = ' || sqlStr;
RAISE User_Return;
END;