informix 4gl

foreach搭配select與into

老實說，我不太會下副標題，就是在我在實務上所使用的一種組合技(？

越說越奇怪XD，總之來看看吧。

首先想要在這個表，"逐筆"抓取client_name , order_no ,price這三個欄位的資料。

再來想要對抓取出的資料做出判斷。

以下是簡單的例子

DECLARE a1_cur CURSOR WITH HOLD FOR                  --先宣告一個游標 a1_cur 
         
         SELECT  a.client_name , b.order_no ,b.price
         FROM clientlist a , orderlist b
         WHERE a.client_id = b.client_id

 FOREACH a1_cur INTO a.client_name, v_order_no ,v_price  --INTO在這邊不要搞錯了
 
  IF v_price > 10000 THEN
  MESSAGE "VIP",v_client_name,"訂單",v_order_no,"大金額",v_price
  CONTINUE FOREACH
  END IF
  
  IF v_price < 10000 THEN
  MESSAGE "顧客",v_client_name,"訂單",v_order_no,"金額",v_price
  END IF
 
 END FOREACH                               --使用FOREACH時，在END FOREACH會同時關閉游標