IDENTIFICATION DIVISION.
	PROGRAM-ID. SAMPLE.

	ENVIRONMENT DIVISION.

	DATA DIVISION.
	WORKING-STORAGE SECTION.
	77 m PIC Z9 .

	PROCEDURE DIVISION.
		ACCEPT m
		
		DISPLAY m
		DISPLAY m

		STOP RUN.