Question: write data in text file

When I am trying to write the data of the following program in a datafile
restart
with(plots)
eq := (diff(G(eta), `$`(eta, 2)))/Pr-2*n*b*eta*G(eta)+(a+(1/2)*b*eta*eta)*(diff(G(eta), eta))
BCs := G(0)-1, G(3)
pars := {Pr = 100, a = 0, b = .4696, n = 2}
Eq := subs(pars, eq)
sol := dsolve({BCs, Eq}, G(eta), type = numeric, output = array([seq((1/10)*i, i = 0 .. 30)]))
fd := fopen("subho.txt", WRITE, TEXT)
writedata(fd, sol)
Maple is showing:
Error, (in writedata) Bad data found array( 1 .. 3, [( 1 ) = eta, ( 2 ) = G(eta), ( 3 ) = diff(G(eta), eta) ] )
Please help.
Please Wait...