home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #18 / NN_1992_18.iso / spool / comp / database / informix / 1718 < prev    next >
Encoding:
Internet Message Format  |  1992-08-13  |  1.8 KB
  1. Path: sparky!uunet!caen!sol.ctr.columbia.edu!emory!bnr.co.uk
  2. From: A.Heskett@bnr.co.uk (Tony Heskett)
  3. Newsgroups: comp.databases.informix
  4. Subject: Re: conditional select sum() based on field question
  5. Message-ID: <9305@emory.mathcs.emory.edu>
  6. Date: 13 Aug 92 19:48:08 GMT
  7. Sender: walt@mathcs.emory.edu
  8. Reply-To: A.Heskett@bnr.co.uk (Tony Heskett)
  9. Lines: 49
  10. X-Informix-List-ID: <list.1377>
  11.  
  12.  
  13. Pete Frehner writes:
  14.  
  15. > [ ... add or subtract according to record type, only scan table once ... ]
  16.  
  17. >    select sum(amount) into total_credits
  18. >        from orders where order_type = "CREDIT"
  19. > 
  20. >    select sum(amount) into total_normal_orders 
  21. >        from orders where order_type = "REG"
  22. > 
  23. >    let net_amount = total_normal_orders - total_credits 
  24.  
  25. Call me stupid (go on, I'm waiting  :-)  but why don't you just
  26. do this ?    Is a cursor *much* slower ?
  27.  
  28.       declare a_curs cursor for
  29.          select amount, order_type
  30.             from orders
  31.             where order_type = "CREDIT"
  32.                or order_type = "REG"
  33.     
  34.       fetch a_curs into amt, ord
  35.     
  36.       while status = 0
  37.      
  38.          if ord = "CREDIT"
  39.             net_amount = net_amount + amt
  40.          else
  41.             net_amount = net_amount - amt
  42.     
  43.          fetch a_curs into amt, ord
  44.     
  45.       end while
  46.     
  47.       close a_curs
  48.  
  49. Incidentally, does anyone else miss not having += -= and friends ?
  50. COBOL-fingers, here we come ...
  51.  
  52. > Pete Frehner                 Voice (519) 673-3350
  53. > Praeda Management Systems                Fax   (519) 667-1968
  54. > 371 Dufferin Ave.                        uucp: .....uunet!praeda!pfrehner
  55. > London, Ontario CANADA N6B 1Z5           
  56.  
  57. Cheers - Tony.
  58. _________________________________________________________________________
  59. Tony Heskett                 th@bnr.co.uk       Phone: (+44) 279 402637
  60. BNR, London Road, Harlow, Essex  CM17 9NA       Fax:   (+44) 279 451434
  61.