COBCH1633 Procedure division too large or complex - try using performtype(mf)