游标的使用

 // 用游标查数据
1 Declare cs_list Cursor For
 2         select  a.pack_id,b.lot_no,b.color_no,dbo.GetLotTailored(a.ppo_no) sfdf,a.cust_qty
 3 from  prod_pack a,
 4     prod_plan_order_hdr b 
 5 where a.ppo_no = b.ppo_no 
 6         And a.check_no= :as_no;
 7     Open cs_List;
 8     Fetch cs_List Into :ll_packid,:ls_lotno,:ls_color,:li_sfdf,:ln_bz;
 9     Do While SQLCA.SQLCODE = 0    
10             jarr = create uo_json
11             ls_text = '{"HH":"' + string(ll_packid) + '","WLBH":"SCRK","WLMC":"生产入库","PCH":"'+ls_lotno+'","ZJJGZ":"'+string(li_sfdf)+'","BZ":"'+string(ln_bz)+'"}'
12             jarr.parse(ls_text)
13             
14             
15             js.Set("/list/"+string(ll_rw)+"",jarr) //在Json对象中插入数组节点
16             ll_rw += 1
17         destroy jarr
18     Fetch cs_List Into :ll_packid,:ls_lotno,:ls_color,:li_sfdf,:ln_bz;
19     Loop
20     Close cs_List;