

proc test_data test_file as file

	var i numeric

	i = 0

	repeat while i < 100

		new_rec rec1 cust_id = i, cust_name = "xx"

		append rec1 to test_file

		calc i = i + 1

	end rep

end proc






	


