Just a few more details... We have a program that has a counter defined as:
RECORDS-READ PIC 9(5).
In the procedure division the counter gets added to for each record read :
READ INPUTFILE NEXT RECORD AT END GO TO CLOSE-UP.
ADD 1 TO RECORDS-READ.
DISPLAY RECORDS-READ AT 1230.
We are seeing the counter as follows:
1
2
3
4
5
6
7
8
9
!0
!1
!2
!3
etc...