Check if the word is a palindrome in COBOL : Create a program that will ask the user to enter a word. Check if the word is a palindrome.

WHEN I TYPE LOL IT SAYS IT IS NOT A PALINDROME. PLS HELP ME


       DISPLAY "Enter a word to check if it is a Palindrome: "
            ACCEPT WS-STR1

            MOVE FUNCTION REVERSE(WS-STR1)TO WS-STR2
            DISPLAY WS-STR1
            DISPLAY WS-STR2
       IF  WS-STR1(1:1) = WS-STR2(15:1)
       AND WS-STR1(2:1) = WS-STR2(14:1)
       AND WS-STR1(3:1) = WS-STR2(13:1)
       AND WS-STR1(4:1) = WS-STR2(12:1)
       AND WS-STR1(5:1) = WS-STR2(11:1)
       AND WS-STR1(6:1) = WS-STR2(10:1)
       AND WS-STR1(7:1) = WS-STR2(9:1)
       
               DISPLAY "A PALINDROME! "
       ELSE
               DISPLAY "NOT A PALINDROME "
           END-IF.