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;

 FETCH C1 INTO :record,:fare_sum;
DO WHILE sqlca.SQLCODE=0 

//将游标内的数据一条条存放到数组里
 i += 1
 re_cd[i] = string(record)
 fr_sum[i] = string(fare_sum,"0.00")

 FETCH C1 INTO :record,:fare_sum;
LOOP

CLOSE C1;