LPARAMETERS oRs, cAlias

	LOCAL loCursor, lcCursor, lcAlias
	Try 
		lcCursor = Sys(2015)
		loCursor = CREATEOBJECT("CursorAdapter")
                lcAlias=IIF( Type('cAlias') = 'C', cAlias, Sys(2015) )
.....
	Catch
	Finally
		loCursor = null
		loRs=null
	EndTry

Return Iif( Used(lcAlias), 1, -1 )