TO_Sybase.DBParm="Async=1"

int  li_res
ib_cancel = true
li_res = dw_count.dbcancel()  
return 0

Messagebox("INFO","retrieveend")

wf_fin_retrieve( )                           /// fonction de fin de recherche

return 0

Messagebox("INFO","wf_fin_retrieve")

IF NOT ib_cancel THEN 
  Messagebox("INFO","Arret demandé par l'utilisateur ,StopSign!)  
END IF

cb_stop.enabled = false
..................

forward
global type w_test_async from window
end type
type st_status from statictext within w_test_async
end type
type cb_retrieve from commandbutton within w_test_async
end type
type cb_canceldb from commandbutton within w_test_async
end type
type cb_close from commandbutton within w_test_async
end type
type dw_1 from datawindow within w_test_async
end type
end forward

global type w_test_async from window
integer width = 2834
integer height = 1608
boolean titlebar = true
string title = "Untitled"
boolean controlmenu = true
windowtype windowtype = response!
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
st_status st_status
cb_retrieve cb_retrieve
cb_canceldb cb_canceldb
cb_close cb_close
dw_1 dw_1
end type
global w_test_async w_test_async

type variables
boolean ib_cancel = false
end variables

event open;if SQLCA.dbhandle() <> 0 then
  DISCONNECT;
end if
// Profile EAS Demo DB V105
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "ConnectString='DSN=EAS Demo DB V105;UID=dba;PWD=sql',Async=1"
CONNECT;
if sqlca.sqlcode <> 0 then
  messagebox( "SQLCA", sqlca.sqlerrtext )
  halt close
end if

string ls_error, ls_dwsyntax
ls_dwsyntax = sqlca.syntaxfromsql( "select * from exam_xref_info", "style(type=grid)", ls_error )
if ls_dwsyntax="" or ls_error <> "" then
  messagebox("syntaxfromsql failed", ls_error)
  return
end if

dw_1.create( ls_dwsyntax, ls_error )
if ls_error <> "" then
  messagebox("syntaxfromsql failed", ls_error)
  return
end if
dw_1.setTransobject( sqlca )
end event

on w_test_async.create
this.st_status=create st_status
this.cb_retrieve=create cb_retrieve
this.cb_canceldb=create cb_canceldb
this.cb_close=create cb_close
this.dw_1=create dw_1
this.Control[]={this.st_status,&
this.cb_retrieve,&
this.cb_canceldb,&
this.cb_close,&
this.dw_1}
end on

on w_test_async.destroy
destroy(this.st_status)
destroy(this.cb_retrieve)
destroy(this.cb_canceldb)
destroy(this.cb_close)
destroy(this.dw_1)
end on

type st_status from statictext within w_test_async
integer x = 901
integer y = 1416
integer width = 1477
integer height = 84
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
long textcolor = 33554432
long backcolor = 67108864
string text = "message here...."
boolean focusrectangle = false
end type

type cb_retrieve from commandbutton within w_test_async
integer x = 18
integer y = 1400
integer width = 402
integer height = 112
integer taborder = 30
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "Retrieve"
end type

event clicked;this.enabled = false
cb_canceldb.enabled = true
ib_cancel = false
dw_1.retrieve( )
end event

type cb_canceldb from commandbutton within w_test_async
integer x = 425
integer y = 1400
integer width = 448
integer height = 112
integer taborder = 20
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
boolean enabled = false
string text = "Cancel retrieve"
end type

event clicked;int r
r = dw_1.dbcancel( )
if r <> 1 then
  messagebox( "dbcancel failed", r )
  return
end if

ib_cancel = true

end event

type cb_close from commandbutton within w_test_async
integer x = 2405
integer y = 1404
integer width = 402
integer height = 112
integer taborder = 20
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "Close"
end type

event clicked;close( parent )
end event

type dw_1 from datawindow within w_test_async
integer width = 2821
integer height = 1392
integer taborder = 10
string title = "none"
boolean hscrollbar = true
boolean vscrollbar = true
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

event retrieveend;cb_canceldb.enabled = false
cb_retrieve.enabled = true

st_status.text = string(rowcount) + " row(s) retrieved (retrieveend)"
end event

event retrieverow;
st_status.text = string(row) + " row(s) retrieved (retrieverow)"

if ib_cancel then
  return 1
end if

return 0
end event

Yield()

If ib_cancel Then RETURN 1