Fix/folding evaluate

[ap891843]

How Has This Been Tested?

Please describe the tests that you ran to verify your changes. Provide instructions so we can reproduce. Please also list any relevant details for your test configuration

• Folding should work on below code

       IDENTIFICATION DIVISION.
       PROGRAM-ID. COPY-FOLDING.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 CHECK pic x(9).
       01 evaluate-var pic x(9).
       PROCEDURE DIVISION.
           EXEC CICS 
               ABEND abcode ('we')
           END-EXEC.
       sample1.
           display "under sample para".
       test1.
           if check not ZERO
               display "under if condition."
               display "asas"
           END-IF.
       test2.
           EVALUATE evaluate-var
               WHEN 'add'
                   DISPLAY 'ADD'
                   EXEC CICS 
                       ABEND ABCODE('9999') 
                    END-EXEC.
               WHEN 'update'
                   DISPLAY 'UPDATE'
                    if evaluate-var
                        perform XXX 
                        THRU YYYY
                        go to common-return
                    ELSE
                        perform zzz 
                        THRU uuuu
                        go to common-return
                END-IF

               WHEN OTHER
                   PERFORM SAMPLE1
           END-EVALUATE.

       common-return.
           display "exit".
       zzz.
       xxx.
       yyyy.
       uuuu.

Checklist:

• Each of my commits contains one meaningful change
• I have performed rebase of my branch on top of the development
• I have performed a self-review of my own code
• I have made corresponding changes to the documentation
• My changes generate no new warnings
• I have added tests that prove my fix is effective or that my feature works
• New and existing unit tests pass locally with my changes
• I have checked my code and corrected any misspellings