000010 IDENTIFICATION  DIVISION.
000020 PROGRAM-ID.     MAIN.
000030 ENVIRONMENT     DIVISION.
000040 DATA            DIVISION.
000050 WORKING-STORAGE  SECTION.
000060 01 R        PIC XXX.
000070 *      
000080 PROCEDURE DIVISION.
000090 *
000100 ACCEPT R.
000110 IF R(1:1) = R(3:1) THEN
000120 	DISPLAY "Yes"
000130 ELSE
000140 	DISPLAY "No"
000150 END-IF.
000160 STOP RUN.