Program-id.F.Data division.Local-storage section.
1 f pic 9.9(1000).
Procedure division.Perform+100times
Display f
End-perform.