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...
↧