COBOL EVALUATE TRUE ALSO TRUE

 

EVALUATE TRUE ALSO TRUE
 
The following COBOL program depicts the use of 
EVALUATE TRUE ALSO TRUE
 
 
       IDENTIFICATION DIVISION.
       PROGRAM-ID. PGM026.
       AUTHOR. MAINFRAMEWIZARD.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 SALARY PIC 9(9)  VALUE ZEROS.
       01 TAX    PIC 9(9)  VALUE ZEROS.
       01 SEX    PIC X     VALUE SPACES.
       PROCEDURE DIVISION.
       10000-MAIN-PARA.
             MOVE 10000  TO SALARY.
             MOVE 'M' TO SEX.
             EVALUATE TRUE ALSO TRUE
                 WHEN SALARY <=10000  ALSO SEX='M'
                  DISPLAY 'MALE WORKER'
                  COMPUTE TAX= SALARY*20/100
                  DISPLAY 'TAX APPLICABLE IS = ' TAX
                 WHEN SALARY >10000   ALSO SEX='M'
                  DISPLAY 'MALE SUPERVISOR'
                  COMPUTE TAX= SALARY*30/100
                  DISPLAY 'TAX APPLICABLE IS = ' TAX
                 WHEN SALARY <=10000  ALSO SEX='F'
                  DISPLAY 'FEMALE WORKDER'
                  COMPUTE TAX= SALARY*05/100
                  DISPLAY 'TAX APPLICABLE IS = ' TAX
                 WHEN SALARY >10000   ALSO SEX='F'
                  DISPLAY 'FEMALE SUPERVISOR'
                  COMPUTE TAX= SALARY*10/100
                  DISPLAY 'TAX APPLICABLE IS = ' TAX
             END-EVALUATE
             STOP RUN.
 
 
The output of the program is 
 
 
MALE WORKER                                                                                                              
TAX APPLICABLE IS = 000002000