/////////////////////////////////////////////////////////////////////////////////////////
// Method : of_CountStar
// Author : <AUTH>PowerObject! (Shekar Reddy)</AUTH>
// Date   : 12/26/2001
//////////////////////////////////////////////////////////////////////////////////////////
// Arg    : <ARGS>dw</ARGS>
// Return : <RETURN>long</RETURN>
/////////////////////////////////////////////////////////////////////////////////////////
// Desc   : <DESC>Can be used for any dw to get the potential/pro-active rowcount QUICKLY!</DESC>
// Usage  : <USAGE>of_CountStar( ls_SQL )</USAGE>
// Ref    : <ALSO>of_CountStar( dw )</ALSO>
//<VERSION>
/////////////////////////////////////////////////////////////////////////////////////////
// Modifications:
// Date     Author         Comments
// 4/27/3   PowerObject!   Added n_cst_String.of_GlobalReplace() for removing ~" s
/////////////////////////////////////////////////////////////////////////////////////////
//<LI>	
/////////////////////////////////////////////////////////////////////////////////////////</VERSION>
// Get the row-count that is "going" to be retrieved
////////////////////////////////////////////////////
long   ll_Count
n_cst_String   lnv_String
/////////////////////////
//
IF IsNull( dw ) OR NOT IsValid( dw ) THEN
   RETURN -1
ELSEIF Trim( dw.DataObject ) = "" THEN
   RETURN -1
END IF
//
ls_SQL = Trim( String( This.Object.Datawindow.Table.Select ))
//
// Validate the SELECT-statement
IF IsNull( as_SQL ) OR as_SQL = "" THEN
   RETURN -1
END IF
//
// Remove the ~" chars if SQLCA.dBParm was not set to "DelimitIdentifier='No'"
ls_SQL = lnv_String.of_GlobalReplace( ls_SQL, '~~"' , "" )      // They are actually ~" s
//
// Strip the SELECT clause
as_SQL = Mid( as_SQL, Pos( as_SQL, "FROM " ))
//
// Prepend the SELECT Count(*)
as_SQL = "SELECT COUNT(*) " + as_SQL
//
// Dynamic SQL
PREPARE SQLSA FROM :as_SQL USING SQLCA;
//
// Do some error-check here, if required...
IF SQLCA.SQLCode <> 0 THEN
   RETURN -1
END IF
//
// Fetch the row-count for Progress-bar
DECLARE lc_Cursor DYNAMIC CURSOR FOR SQLSA;
OPEN DYNAMIC lc_Cursor;
// Do some error-check here if required...
//
FETCH lc_Cursor INTO :ll_Count;
// Do some error-check here if required...
//
CLOSE lc_Cursor;      // Protected!
// Do some error-check here if required...
//
RETURN ( ll_Count )