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