000010 IDENTIFICATION                   DIVISION.
000020 PROGRAM-ID.                      MAIN.
000030*
000040 ENVIRONMENT                      DIVISION.
000050*
000060 DATA                             DIVISION.
000070 WORKING-STORAGE                  SECTION.
000080 77 STR                           PIC XXX.
000090*
000100 PROCEDURE                        DIVISION.
000110 MAIN.
000120     ACCEPT STR                   FROM SYSIN.
000130     IF STR(1:1) > STR(3:1) THEN
000140         DISPLAY ">"              UPON SYSOUT
000150     ELSE IF STR(1:1) < STR(3:1) THEN
000160         DISPLAY "<"              UPON SYSOUT
000170     ELSE
000180         DISPLAY "="              UPON SYSOUT
000190     END-IF.
000200     STOP RUN.