' OO	test program to creat eordovr30 idx

external	vloadif() dpath ipath

public	ptstr

global	x



MAIN
  	vloadif(dpath|"cust_ord.vws")
    	order change physical
	data query execute "ordovr_1.dfq" index ipath|"ordovr30.idx"
' ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
' days([Date_Of_Order])<(days(today)-30)
' and
' not (deleted)
' and
' abs([Balance_Due])>0.009
' ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
	vunloadif("cust_ord.vws")
END MAIN