ID DIVISION.PROGRAM-ID.a.DATA DIVISION.WORKING-STORAGE SECTION.
1 b PIC 9.
PROCEDURE DIVISION.ACCEPT b
EVALUATE b
WHEN 2
DISPLAY"4
ERR
5"
WHEN 5
DISPLAY"1
3125
0.5
1"
WHEN 9
DISPLAY"9.3
4.3
1084
542
226
3331
1805402
2166482.4
2166000.1"
END-EVALUATE.