IDENTIFICATION DIVISION.
	PROGRAM-ID. SAMPLE.

	ENVIRONMENT DIVISION.

	DATA DIVISION.
	WORKING-STORAGE SECTION.
	77 n PIC 9(2) value 10 .

	PROCEDURE DIVISION.
	     display n.
             stop run.