IDENTIFICATION DIVISION.
PROGRAM-ID. COMPARESTRINGS.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 STRING1 PIC X(20) VALUE 'COBOL'.
01 STRING2 PIC X(20) VALUE 'FORTRAN'.
01 RESULT PIC X(25).
PROCEDURE DIVISION.
IF STRING1 = STRING2 THEN
MOVE 'STRINGS ARE EQUAL' TO RESULT
ELSE
MOVE 'STRINGS ARE NOT EQUAL' TO RESULT
END-IF.
DISPLAY RESULT.
STOP RUN.
*> run:
*>
*> STRINGS ARE NOT EQUAL
*>