DSolve[Derivative[2][y][x] == -((-3 + 3*a - (3 - 2*a)*Cos[x] - a^2*Cos[x]^2)*Csc[x]^2*y[x]),y[x],x]