WORKING-STORAGE SECTION.

05  SOME-VARIABLE       PIC 9(10) USAGE COMP VALUE 0.