COBCH0671 PERFORM UNTIL EXIT