COBOL 85 Case Structure Examples

EVALUATE FUNCTION UPPER-CASE (PROPERTY-CODE)
        WHEN “R” COMMISSION_RATE = 0.060
        WHEN “M” COMMISSION_RATE = 0.050
        WHEN “C” COMMISSION_RATE = 0.045
        WHEN OTHER ERROR-FLAG = “TRUE”
END-EVALUATE