The equation of the sphere is easy:
\[Rho] == 2
The equation of the cylinder is:
\[Rho] == 2 Cos[\[Phi]] Csc[\[Theta]]
See SphericalPlot3D for information about rho, theta, and phi. Theta and phi can change from one text to another.
Here is a plot:
SphericalPlot3D[{{2}, {2 Cos[\[Phi]] Csc[\[Theta]]}}, {\[Theta], 0,
Pi}, {\[Phi], 0, 2 Pi}]
Eric