COBOL里的CURSOR怎么用，举个例子最好。
2个回答
展开全部
首先要声明
EXEC SQL
DECLARE CUR FOR
SELECT
AA
FROM ABC
EXEC-END.
然后要打开游标
EXEC SQL
OPEN CUR
EXEC-END.
然后写一个循环来做fectch，具体做法如下
一开始先fetch一条
EXEC SQL
FETCH CUR
INTO :WK-AA
EXEC-END
然后做循环
PERFORM UNTIL FLG-FETCH=CNS-END
...........（这里写你要进行的处理）
然后这边再做fetch处理（每次fetch以后要判断sqlcode是不是not found即为最后一条，具体的sqlcode我忘记了，8好意思，只记得normal 是全0）
END-PERFORM
最后要close游标
EXEC SQL
CLOSE CUR
EXEC-END
就好了
EXEC SQL
DECLARE CUR FOR
SELECT
AA
FROM ABC
EXEC-END.
然后要打开游标
EXEC SQL
OPEN CUR
EXEC-END.
然后写一个循环来做fectch，具体做法如下
一开始先fetch一条
EXEC SQL
FETCH CUR
INTO :WK-AA
EXEC-END
然后做循环
PERFORM UNTIL FLG-FETCH=CNS-END
...........（这里写你要进行的处理）
然后这边再做fetch处理（每次fetch以后要判断sqlcode是不是not found即为最后一条，具体的sqlcode我忘记了，8好意思，只记得normal 是全0）
END-PERFORM
最后要close游标
EXEC SQL
CLOSE CUR
EXEC-END
就好了
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
舒仕福
2023-07-11 广告
eor有以下两种含义：1. eor是计算机术语，表示二进制异或运算。在计算机逻辑运算中，算术逻辑执行二进制按位异或运算，两数执行异或后相同位结果为0，不同位结果为1。2. eor也表示在任何时期，向地层中注入流体、能量，以提高产量或采收率的...
点击进入详情页
本回答由舒仕福提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
