当我们必须从一个表中获取多行时使用CURSOR。为了在COBOL-DB2程序中使用游标,涉及四个步骤。
DECLARE cursor-在这一步中,我们将定义光标的布局。我们将提供我们要使用的查询。例如-
EXEC SQL DECLARE ORDER_CUR CURSOR FOR SELECT ORDER_ID FROM ORDERS WHERE ORDER_DATE = ‘2020-07-28’ END-EXEC
打开光标-接下来我们将打开光标。该语句为数据检索准备了光标。例如-
EXEC SQL OPEN ORDER_CUR END-EXEC
FETCH cursor-在此语句中,我们开始从DB2获取数据,并且行数据存储在主机变量中。语法如下。
EXEC SQL FETCH ORDER_CUR INTO :ORDER-ID END-EXEC
关闭游标-在最后一步中,我们关闭游标,这将释放游标持有的所有资源。
EXEC SQL CLOSE ORDER_CUR END-EXEC