[RBASE-L] - Re: Update command

[A. Razzak Memon]

At 09:28 PM 9/12/2010, John Engwer wrote:

Razzak..  I tried to use the syntax that you provided and I receive a
2511 error (Illegal Select). I am using the latest version of V8.. Is
it possible that the syntax only works with V9?

John,

Let's try the following examples and see what you get.

-- CorrelationalUpdate.RMD
-- A. Razzak Memon
-- September 12, 2010
-- R:BASE 7.6 for Windows
IF (CVAL('DATABASE')) <> 'RRBYW14' OR (CVAL('DATABASE')) IS NULL THEN
   CONNECT RRBYW14 IDENTIFIED BY NONE
ENDIF
   CLS
   SET ERROR MESSAGE 677 OFF
   DROP VIEW tDetail_Totals
   SET ERROR MESSAGE 677 ON
   CREATE TEMPORARY VIEW `tDetail_Totals` +
   (`TransID`,`Tot_ExtPrice`) +
   AS SELECT TransID,(SUM(ExtPrice)) +
   FROM InvoiceDetail GROUP BY TransID
   COMMENT ON VIEW `tDetail_Totals` IS 'Temporary View to get totals'
   SET FEEDBACK ON
   UPDATE InvoiceHeader SET NetAmount = Tot_ExtPrice +
   FROM tDetail_Totals,InvoiceHeader +
   WHERE InvoiceHeader.TransID = tDetail_Totals.TransID
   SET FEEDBACK OFF
   CLS
   RETURN

-- CorrelationalUpdate.RMD
-- A. Razzak Memon
-- September 12, 2010
-- R:BASE Turbo V-8 for Windows
IF (CVAL('DATABASE')) <> 'RRBYW15' OR (CVAL('DATABASE')) IS NULL THEN
   CONNECT RRBYW15 IDENTIFIED BY NONE
ENDIF
   CLS
   SET ERROR MESSAGE 677 OFF
   DROP VIEW tDetail_Totals
   SET ERROR MESSAGE 677 ON
   CREATE TEMPORARY VIEW `tDetail_Totals` +
   (`TransID`,`Tot_ExtPrice`) +
   AS SELECT TransID,(SUM(ExtPrice)) +
   FROM InvoiceDetail GROUP BY TransID
   COMMENT ON VIEW `tDetail_Totals` IS 'Temporary View to get totals'
   SET FEEDBACK ON
   UPDATE InvoiceHeader SET NetAmount = Tot_ExtPrice +
   FROM tDetail_Totals,InvoiceHeader +
   WHERE InvoiceHeader.TransID = tDetail_Totals.TransID
   SET FEEDBACK OFF
   CLS
   RETURN

-- CorrelationalUpdate.RMD
-- A. Razzak Memon
-- September 12, 2010
-- R:BASE eXtreme 9.0 (32/64)
IF (CVAL('DATABASE')) <> 'RRBYW16' OR (CVAL('DATABASE')) IS NULL THEN
   CONNECT RRBYW16 IDENTIFIED BY NONE
ENDIF
   CLS
   SET ERROR MESSAGE 677 OFF
   DROP VIEW tDetail_Totals
   SET ERROR MESSAGE 677 ON
   CREATE TEMPORARY VIEW `tDetail_Totals` +
   (`TransID`,`Tot_ExtPrice`) +
   AS SELECT TransID,(SUM(ExtPrice)) +
   FROM InvoiceDetail GROUP BY TransID
   COMMENT ON VIEW `tDetail_Totals` IS 'Temporary View to get totals'
   SET FEEDBACK ON
   UPDATE InvoiceHeader SET NetAmount = Tot_ExtPrice +
   FROM tDetail_Totals,InvoiceHeader +
   WHERE InvoiceHeader.TransID = tDetail_Totals.TransID
   SET FEEDBACK OFF
   CLS
   RETURN

Have fun!

Very Best R:egards,

Razzak.