Why can't I solve this ODE set?

*To*: mathgroup at smc.vnet.net*Subject*: [mg132735] Why can't I solve this ODE set?*From*: Neo Sherrington <sh785144557 at gmail.com>*Date*: Mon, 19 May 2014 02:04:31 -0400 (EDT)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com*Delivered-to*: l-mathgroup@wolfram.com*Delivered-to*: mathgroup-outx@smc.vnet.net*Delivered-to*: mathgroup-newsendx@smc.vnet.net

I have trouble using DSolve to solve this ODE set: DSolve[{y''[ r] + (1/r + 2 I p) y'[r] + (-2 h + 2/r - m^2/r^2 - p^2) y[r] == 2 a z[r], z''[r] + (1/r - 2 I p) z'[r] + (-2 h + 2/r - m^2/r^2 - p^2) z[r] == 2 a y[r]}, {y, z}, r] I mean, Mathematica gives me the same form as my input. But DSolve[y''[r] + (1/r + 2 I p) y'[r] + (-2 h + 2/r - m^2/r^2 - p^2) y[ r] == 2 a z[r], y, r] and DSolve[z''[r] + (1/r - 2 I p) z'[r] + (-2 h + 2/r - m^2/r^2 - p^2) z[ r] == 2 a y[r], z, r] are OK. How should I make it?