Oracle FAQ Your Portal to the Oracle Knowledge Grid
HOME | ASK QUESTION | ADD INFO | SEARCH | E-MAIL US
 

Home -> Community -> Mailing Lists -> Oracle-L -> RE: Mean/Median - how to be wrong multiple times

RE: Mean/Median - how to be wrong multiple times

From: Dawn White <DXWhite_at_darden.com>
Date: Tue, 15 May 2001 12:24:50 -0700
Message-ID: <F001.00304184.20010515122527@fatcity.com>

If you don't like the last one I sent try this one 1: #include <stdio.h>

  2: exec sql include sqlca;                          /*  communication area

*/
  4: main()
  5: {
  6:     exec sql begin declare section;
  7:         VARCHAR cid[5], user_name[20], user_pwd[10];
  8:         double dollars;
  9:         int cnt;
 10:     exec sql end declare section;
 11:     exec sql declare dollars_cursor cursor for   /*  to calculate media

*/
12: select dollars from orders 13: where cid=:cid order by dollars desc; /* ... order important
*/
14: exec sql whenever sqlerror stop; 15: strcpy(user_name.arr,"poneilsql"); 16: user_name.len=strlen(user_name.arr); 17: strcpy(user_pwd.arr,"XXXX"); 18: user_pwd.len=strlen(user_pwd.arr); 19: exec sql connect :user_name 20: identified by :user_pwd; /* ORACLE: connect

*/
 22:     while (prompt("Please enter a cutomer ID: ", cid.arr) >0 ) 
 23:                                                  /* main loop: get cid

*/
24: { 25: cid.len=strlen(cid.arr) /* set cid length
*/
26: exec sql select cound(cid) into :cnt /* count orders by cid
*/
27: from order where cid=:cid; 28: if (cnt==0) 29: { 30: printf("No orders retrieved for cid value %s\n",cid); 31: continue; /* go loop again
*/
32: } 33: exec sql open dollars_cursor; 35: /* open cursor and loop until midpoint of ordered list */ 36: do /* loop at least once
*/
37: exec sql fetch dollars_cursor into :dollars; 38: while ((cnt-=2)>0); /* fetch thru midpoint
*/
39: exec sql close dollars_cursor; /* loop completed
*/
40: exec sql commit work; /* release locks
*/
41: printf("Median dollar amount = %f\n",dollars); 42: } /* end main loop
*/
43: 44: exec sql disconnect;

 45: }
-- 
Please see the official ORACLE-L FAQ: http://www.orafaq.com
-- 
Author: Dawn White
  INET: DXWhite_at_darden.com

Fat City Network Services    -- (858) 538-5051  FAX: (858) 538-5051
San Diego, California        -- Public Internet access / Mailing Lists
--------------------------------------------------------------------
To REMOVE yourself from this mailing list, send an E-Mail message
to: ListGuru_at_fatcity.com (note EXACT spelling of 'ListGuru') and in
the message BODY, include a line containing: UNSUB ORACLE-L
(or the name of mailing list you want to be removed from).  You may
also send the HELP command for other information (like subscribing).
Received on Tue May 15 2001 - 14:24:50 CDT

Original text of this message

HOME | ASK QUESTION | ADD INFO | SEARCH | E-MAIL US