[RBASE-L] - RE: Getting count of rows affected by UPDATE.

[Mike Byerley]

How cool can cool be..

Thanks Razzak.
----- Original Message ----- 
From: "A. Razzak Memon" <raz...@rbase.com>
To: "RBASE-L Mailing List" <rbase-l@rbase.com>
Sent: Thursday, August 05, 2010 9:48 PM
Subject: [RBASE-L] - RE: Getting count of rows affected by UPDATE.


At 06:13 PM 8/5/2010, Mike Byerley wrote:

Well, since "feedback" gives you a result after an update is
done, it's safe to say there is a function result that feeds
that, so make an enhancement request to get a FeedBack function
that would return a count and a time, just like the internal
function in a delimited text and you could parse that with SSUB
for the desired portion or both.  That seems like a reasonable
low cost enhancement... ;-)


Mike,

Here's how:

01. Start R:BASE eXtreme 9.0 (32/64), Build: 9.1.1.11010

02. CONNECT RRBYW17

03. SET FEEDBACK ON

04. UPDATE Conf_Invitations SET +
    InvitationDate = 08/15/2010, +
    InvitationMailers = 'Y' +
    WHERE VestedInterest = 'Y'

    SET VAR vPause2Message TEXT = NULL
    SET VAR vPause2Message = +
    ((CTXT(.RBTI_RowsUpdated))&'Row(s) Updated!')
    CLS
    PAUSE 2 USING .vPause2Message CAPTION 'Update Status' +
    ICON CONFIRM +
    BUTTON 'Press any key to continue ...' +
    OPTION MESSAGE_FONT_NAME 'Tahoma' +
    |MESSAGE_FONT_COLOR 'GREEN' +
    |MESSAGE_FONT_SIZE 11 +
    |BUTTON_COLOR WHITE +
    |BUTTON_FONT_COLOR GREEN +
    |THEMENAME Vista CG

05. DELETE ROWS FROM Prod_Registrations +
    WHERE Current_Status = 'L'

    SET VAR vPause2Message = NULL
    SET VAR vPause2Message = +
    ((CTXT(.RBTI_RowsDeleted))&'Row(s) Deleted!')
    CLS
    PAUSE 2 USING .vPause2Message CAPTION 'Delete Status' +
    ICON CONFIRM +
    BUTTON 'Press any key to continue ...' +
    OPTION MESSAGE_FONT_NAME 'Tahoma' +
    |MESSAGE_FONT_COLOR 'GREEN' +
    |MESSAGE_FONT_SIZE 11 +
    |BUTTON_COLOR WHITE +
    |BUTTON_FONT_COLOR GREEN +
    |THEMENAME Vista CG

06. INSERT INTO Current_Customers +
    (WorldTourID,ContactID,RBTI_PartnerID) +
    SELECT WorldTourID,ContactID,RBTI_PartnerID +
    FROM NewContacts WHERE Authorized_Status = 'Y'

    SET VAR vPause2Message = NULL
    SET VAR vPause2Message = +
    ((CTXT(.RBTI_RowsInserted))&'Row(s) Inserted!')
    CLS
    PAUSE 2 USING .vPause2Message CAPTION 'Insert Status' +
    ICON CONFIRM +
    BUTTON 'Press any key to continue ...' +
    OPTION MESSAGE_FONT_NAME 'Tahoma' +
    |MESSAGE_FONT_COLOR 'GREEN' +
    |MESSAGE_FONT_SIZE 11 +
    |BUTTON_COLOR WHITE +
    |BUTTON_FONT_COLOR GREEN +
    |THEMENAME Vista CG

07. SET FEEDBACK OFF
    CLS
    CLEAR VARIABLES RBTI_%,vPause2Message
    RETURN

That's all there is to it!

Very Best R:egards,

Razzak.