创建游标存储过程报错，下面是我存储过程中的一部分，报错定位到CLOSE MYCUR

DECLARE CURSOR MYCUR IS SELECT B.AREANAME ,A.CHANNELNAME,A.BCCS,A.BCMS,A.PXID,B.BCZCS,B.BCZMC,B.ZPXID
FROM JB_TVFB2 A,JB_TVFB2Z B WHERE SUBSTR(A.CHANNELNO,1,2)=B.AREANO
ORDER BY BCZMC,BCMS DESC;
VAREANAME VARCHAR2(150);
VCHANNELNAME VARCHAR2(150);
VBCCS NUMBER;
VBCMS NUMBER;
VPXID NUMBER;
VBCZCS NUMBER;
VBCZMC NUMBER;
VZPXID NUMBER;
BEGIN
OPEN MYCUR;
LOOP
FETCH MYCUR INTO VAREANAME,VCHANNELNAME,VBCCS,VBCMS,VPXID,VBCZCS,VBCZMC,VZPXID;
EXIT WHEN MYCUR%NOTFOUND;  
END LOOP;
END;
CLOSE MYCUR;

把CLOSE MYCUR; 提到end; 之前

SQL code

DECLARE CURSOR MYCUR IS SELECT B.AREANAME ,A.CHANNELNAME,A.BCCS,A.BCMS,A.PXID,B.BCZCS,B.BCZMC,B.ZPXID
FROM JB_TVFB2 A,JB_TVFB2Z B WHERE SUBSTR(A.CHANNELNO,1,2)=B.AREANO
ORDER BY BCZMC,BCMS DESC;
VAREANAME VARCHAR2(150);
VCHANNELNAME VARCHAR2(150);
VBCCS NUMBER;
VBCMS NUMBER;
VPXID NUMBER;
VBCZCS NUMBER;
VBCZMC NUMBER;
VZPXID NUMBER;
BEGIN
OPEN MYCUR;
LOOP
FETCH MYCUR INTO VAREANAME,VCHANNELNAME,VBCCS,VBCMS,VPXID,VBCZCS,VBCZMC,VZPXID;
EXIT WHEN MYCUR%NOTFOUND;   
END LOOP;
CLOSE MYCUR;  --提前!
END;

是的，刚才我也找到了，可是没有查询结果，我是不是少写了什么啊