of_opensqlspyinspect


pfcutil.pbl   >   pfc_n_cst_sqlspy   >   of_opensqlspyinspect   

Full name pfc_n_cst_sqlspy.of_opensqlspyinspect
Access protected
Extend of integer
Return value integer
Prototype protected function integer of_opensqlspyinspect()

Name Datatype
No Data

Name Datatype
li_rc integer
li_testrc integer

protected function integer of_opensqlspyinspect ();//////////////////////////////////////////////////////////////////////////////
//
//	Function:  		of_OpenSQLSpyInspect
//
//	Access:  		protected
//
//	Arguments:		
//
//	Returns:  		integer
//						0 if it succeeds and the caller's processing should 
//							continue as normal.
//						1 if it suceeds but the caller's proccessing should stop.
//						2 if it succeeds but the caller's processing should skip 
//							this request and execute the next request (if any).
//						-1 if an error occurs.
//
//	Description:	Open the SQLSpyInspect window.
//
//////////////////////////////////////////////////////////////////////////////
//
//	Revision History
//
//	Version
//	5.0   Initial version
// 5.0.02 Prevent the SQLSpy window from being on top of the SQLSpyInspect window.
//
//////////////////////////////////////////////////////////////////////////////
//
//	Copyright © 1996-1997 Sybase, Inc. and its subsidiaries.  All rights reserved.
//	Any distribution of the PowerBuilder Foundation Classes (PFC)
//	source code by other than Sybase, Inc. and its subsidiaries is prohibited.
//
//////////////////////////////////////////////////////////////////////////////

integer li_rc, li_testrc

// If appropriate, prevent the SQLSpy window from being on top of 
// the SQLSpyInspect window.
If ib_alwaysontop Then
	If IsValid(iw_sqlspy) Then
		li_testrc = iw_sqlspy.of_SetAlwaysOnTop(False)
	End If
End If

//Wait on user inspection.
Open(iw_sqlspyinspect)

//Get the return value
li_rc = Message.DoubleParm

// If appropriate, reset the SQLSpy window to always be on top.
If ib_alwaysontop Then
	If IsValid(iw_sqlspy) Then
		li_testrc = iw_sqlspy.of_SetAlwaysOnTop(True)		
	End If
End If

Return li_rc

end function

     
Name Owner
pfc_n_cst_sqlspy.of_sqlsyntax pfc_n_cst_sqlspy

     
Name Owner
systemfunctions.isvalid systemfunctions
systemfunctions.open systemfunctions
pfc_w_sqlspy.of_SetAlwaysOnTop pfc_w_sqlspy

     
Full name
demopfc

     
Name Scope
No Data