How to compare two strings in COBOL

1 Answer

0 votes
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
*>

 



answered Mar 17, 2025 by avibootz

Related questions

1 answer 92 views
1 answer 295 views
295 views asked Sep 16, 2020 by avibootz
1 answer 870 views
870 views asked Sep 16, 2020 by avibootz
...