DO-EVALUATE & DO-NESTED-IF in Cobol

MAIN-LINE.
          PERFORM DO-SETUP.
          PERFORM DO-NESTED-IF.
          PERFORM DO-EVALUATE.
          STOP RUN.

      DO-SETUP.
          DISPLAY 'Enter a digit '.
          ACCEPT KBD-ENTRY.

      DO-NESTED-IF.
          IF KBD-ENTRY = '1'
             DISPLAY 'Freshman'
          ELSE IF KBD-ENTRY = '2'
                  DISPLAY 'Sophomore'
               ELSE IF KBD-ENTRY = '3'
                       DISPLAY 'Junior'
                    ELSE IF KBD-ENTRY = '4'
                            DISPLAY 'Senior'
                         ELSE IF KBD-ENTRY = '5'
                                 DISPLAY 'Graduate'
                              ELSE
                                 DISPLAY 'Undefined code'
                              END-IF
                         END-IF
                    END-IF
               END-IF
          END-IF.

      DO-EVALUATE.
          EVALUATE KBD-ENTRY
              WHEN '1'    DISPLAY 'Freshman'
              WHEN '2'    DISPLAY 'Sophomore'
              WHEN '3'    DISPLAY 'Junior'
              WHEN '4'    DISPLAY 'Senior'
              WHEN '5'    DISPLAY 'Graduate'
              WHEN OTHER  DISPLAY 'Undefined code'
          END-EVALUATE.