Self-induced longitudinal current in the perpendicular ion cyclotron heating in a tokamak