COBCH1043 PERFORM may be recursive