Fixed COBOL case