PERFORM VARYING counter FROM 1 BY 1 UNTIL counter > 10 IF debug-override THEN EXIT PERFORM IF counter = 5 THEN EXIT PERFORM CYCLE PERFORM some-miracle END-PERFORM