oracle存储过程报错！

CREATE OR REPLACE PROCEDURE EA_MARKET_INTERFACE.P_GetCustProductInfo_Active(
RESULT OUT SYS_REFCURSOR, --结果集临时表名描述
CUST_CODE IN VARCHAR2 --客户代码
)IS
SQLS VARCHAR2(1000);
BEGIN
SQLS:='CREATE GLOBAL TEMPORARY TABLE VT_RESULT(
PRODUCT_CODE VARCHAR(20)
,PRODUCT_NAME VARCHAR(60)
,PRODUCT_KIND VARCHAR(50)
,PRODUCT_STATUS VARCHAR(100))';
EXECUTE IMMEDIATE SQLS;
COMMIT;//建立临时表

SQLS:='INSERT INTO VT_RESULT
SELECT COALESCE(A.PRODUCT_CODE,'')
,COALESCE(B.PRODUCT_NAME,'')
,COALESCE(C.PRODUCT_CLASS_NAME,'')
,COALESCE(B.PRODUCT_STATUS,'')
FROM CUST_PROD_MATCH A
INNER JOIN PRODUCT_DEF B ON A.PRODUCT_CODE=B.PRODUCT_CODE
INNER JOIN PRODUCT_CLASS C ON B.PRODUCT_CLASS_CODE=C.PRODUCT_CLASS_CODE
LEFT JOIN (SELECT PRODUCT_CODE,COUNT(1) AS RESOURCE_COUNT
FROM EA_MARKET.MS_PRODUCT_RESOURCE
GROUP BY PRODUCT_CODE
) D ON B.PRODUCT_CODE=D.PRODUCT_CODE
WHERE A.SRC_CUST_CODE='||CUST_CODE||'AND A.PRODUCT_CLASS_CODE=01';
EXECUTE IMMEDIATE SQLS;
COMMIT;//插入新的数据到临时表

--更新产品状态
UPDATE A
FROM VT_RESULT A,(
SELECT CODE_VAL,CODE_NOTE
FROM E_MMS.V_D_CODE_NOTE
WHERE GROUP_KEY='PRODUCT_STATUS'
AND INTF_ID=1) B
SET PRODUCT_STATUS=B.CODE_NOTE
WHERE A.PRODUCT_STATUS=B.CODE_VAL;
);//这里是更新产品状态，这段更新出错。

END;


各位大侠帮忙看看我的这段存储过程错在哪里？编译的时候update那里老是出错。



另：
还有一问:下面是teredata的存储过程中的一段，对于locking不是很懂，有哪位大侠把它翻成oracle的(关键是locking的语法 没找到关于orcale的写法)？感激不禁
LOCKING TABLE CUST_INDEX FOR EXCLUSIVE
SELECT CUST_CODE INTO :SRC_CUST_CODE
FROM CUST_INDEX A
WHERE A.RESERVE_TIME<=:RESERVE_TIME
AND A.PRODUCT_CLASS_CODE='01'
SAMPLE 1;