PB中游标的定义与使用方法

游标是一个非常有效的记录集处理方式，在PB中游标用的地方比较广泛，下面是在PB中游标使用的整个过程，基本包括定义游标、打开游标、操作游标和关闭游标这几个步骤，具体如下代码所示：

//定义游标
DECLARE C1 CURSOR FOR
//游标的具体取值内容
select aln_cd,sum(cargo_aln_fare) from fare_daily_view
where aln_cd <> '000' and cargo_aln_fare <> 0 and act_fare_dt between :emstart and :emend
group by aln_cd;  //注意，这里的分号千万不能丢掉

//打开游标
OPEN C1;

DO WHILE sqlca.SQLCODE=0
     //将游标内的数据一条条存放到数组里
     i += 1
     FETCH C1 INTO :record,:fare_sum; //使用fetch取值到变量record和fare_sum中
     re_cd[i] = string(record)
     fr_sum[i] = string(fare_sum,"0.00")
LOOP

//关闭游标
CLOSE C1;