Update Cobol code