Reduce[{\[ExponentialE]^(z^2)==1,Abs[z]<=3},z]