Rounding timings

01 A binary pic s9(09)v9(04) value 1.005.
01 B pic s9(09)v9(02).
01 E pic z(09).9(02)-.

Move A to B 790
Compute B = A 830
Compute B rounded = A 860
Compute B = A + .005 980
Compute B = A + (function sign(A) * .005) 9,580
If A is negative 1320
compute E rounded = A 1410

Excemptng function sign, which is a disaster, there isn't a huge difference between the
forms. They all reflect the slowness of display numbers.
.