Hello Claudine: It would be really nice if you could post the equivalent code in R:Base... Javier,
Javier Valencia, PE President Valencia Technology Group, L.L.C. 14315 S. Twilight Ln, Suite #14 Olathe, Kansas 66062-4578 Office (913)829-0888 Fax (913)649-2904 Cell (913)915-3137 ================================================ Attention: The information contained in this message and or attachments is intended only for the person or entity to which it is addressed and may contain confidential and/or privileged material. Any review, retransmission, dissemination or other use of, or taking of any action in reliance upon, this information by persons or entities other than the intended recipient is prohibited. If you received this in error, please contact the sender and delete the material from all system and destroy all copies. ====================================================== -----Original Message----- From: [email protected] [mailto:[EMAIL PROTECTED] Behalf Of Claudine Robbins Sent: Thursday, May 19, 2005 8:52 PM To: RBG7-L Mailing List Subject: [RBG7-L] - RE: off topic James, No one on earth (and that's no exaggeration...) can speak about R:Base as comprehensively and eloquently as Razzak Memon! I've never used Access and don't ever plan to, but I have been converting an Oracle database into R:Base and just for grins, some simple Oracle code follows so that you can compare the readability with what you are accustomed to in R:Base: CREATE OR REPLACE FUNCTION DA_GET_TOTAL_BILLING_AMOUNT(PARM_CARRIER NUMBER, PARM_INBOX_STATE NUMBER) RETURN NUMBER IS FOUND BOOLEAN; WK_TOTAL DA_BILLING_ALLOCATION.BILLING_AMT%TYPE; WK_BILLING_COUNT DA_BILLING_ALLOCATION.BILLING_AMT%TYPE; WK_DA_FEE DA_BILLING_ALLOCATION.DA_FEE%TYPE; CURSOR C_GET_AMOUNT(VAR_CARRIER NUMBER, VAR_INBOX_STATE NUMBER) IS SELECT SUM(A.BILLING_AMT), COUNT(A.BILLING_AMT) FROM DA_INVOICE_HEADER B, DA_BILLING_ALLOCATION A, DA_INBOX C WHERE C.INVOICE_ID = B.INVOICE_ID AND B.INVOICE_ID = A.INVOICE_ID AND B.CARRIER = VAR_CARRIER AND C.INBOX_STATE = VAR_INBOX_STATE; CURSOR C_GET_FRONTED_AMOUNT(VAR_CARRIER NUMBER) IS SELECT SUM(A.FRONTED_AMT) FROM DA_INVOICE_HEADER B, DA_BILLING_ALLOCATION A, DA_INBOX C WHERE C.INVOICE_ID = B.INVOICE_ID AND B.INVOICE_ID = A.INVOICE_ID AND B.CARRIER = VAR_CARRIER AND C.INBOX_STATE = 6 AND A.FRONTED_AMT > 0; CURSOR C_GET_DA_FEE(VAR_CARRIER NUMBER, VAR_INBOX_STATE NUMBER) IS SELECT DA_FEE FROM DA_INVOICE_HEADER B, DA_BILLING_ALLOCATION A, DA_INBOX C WHERE C.INVOICE_ID = B.INVOICE_ID AND B.INVOICE_ID = A.INVOICE_ID AND B.CARRIER = VAR_CARRIER AND C.INBOX_STATE = VAR_INBOX_STATE; BEGIN IF PARM_INBOX_STATE = 9 THEN OPEN C_GET_FRONTED_AMOUNT(PARM_CARRIER); FETCH C_GET_FRONTED_AMOUNT INTO WK_TOTAL; FOUND := C_GET_FRONTED_AMOUNT%FOUND; CLOSE C_GET_FRONTED_AMOUNT; IF NOT FOUND THEN WK_TOTAL := 0; END IF; ELSE OPEN C_GET_DA_FEE(PARM_CARRIER,PARM_INBOX_STATE); FETCH C_GET_DA_FEE INTO WK_DA_FEE; CLOSE C_GET_DA_FEE; OPEN C_GET_AMOUNT(PARM_CARRIER, PARM_INBOX_STATE); FETCH C_GET_AMOUNT INTO WK_TOTAL, WK_BILLING_COUNT; FOUND := C_GET_AMOUNT%FOUND; CLOSE C_GET_AMOUNT; IF NOT FOUND THEN WK_TOTAL := 0; ELSE WK_TOTAL := WK_TOTAL - (WK_BILLING_COUNT * WK_DA_FEE); END IF; END IF; RETURN WK_TOTAL; END DA_GET_TOTAL_BILLING_AMOUNT; / > -----Original Message----- > From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of james > hageman > Sent: Thursday, May 19, 2005 1:58 PM > To: RBG7-L Mailing List > Subject: [RBG7-L] - off topic > > I am finding myself being required to justify the use of Rbase instead > of Access at this Univ. Apparently just saying it's way better, see for > yourself doesn't cut it. > > I am looking for some help in examples of why Rbase is better and that > is does use a real programming language and a list of major > organizations that are using rbase. I know Razzak is doing work for the > FBI and believe the US Navy. Others? > > Thanks much. > > > > James Hageman, CITA I > University of Delaware Archives > 002 Pearson Hall > Newark ,DE 19716 > 302-831-3127 > [EMAIL PROTECTED]
