X f0 in cobol