IDENTIFICATION DIVISION.
	PROGRAM-ID. SAMPLE.

	ENVIRONMENT DIVISION.

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

	PROCEDURE DIVISION.
		ACCEPT A

			DISPLAY A
		STOP RUN.