Try
Plot[N[J0J1Y0Y1[z],500],{z,0,10^15},WorkingPrecision->50]
The default is WorkingPrecision->MachinePrecision, which is about 16 on my computer (the variable $MachinePrecision).
WorkingPrecision->MachinePrecision
$MachinePrecision