DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  aaa PIC 9(5).
       PROCEDURE DIVISION.
       A0-MAIN
           MOVE 00001 TO aaa.
	   DISPLAY aaa.
	   STOP RUN.