Stuck in endless loop for new line logic

Question

below code return endless output, loop didnot exit.
pls help..
DECLARE
var01 VARCHAR2(1000);
var02 VARCHAR2(1000);
var03_error VARCHAR2(1000);
cnt number(3);
CURSOR cur is
SELECT * from temp_merge01
begin
FOR i IN cur
var01 := i.action01;
LOOP
var02 := substr(replace(var01,''),1, (instr(replace(var01,''),chr(10))));
IF var02 IS NOT NULL THEN
dbms_output.put_line('var02: '|| var02);
END IF;
var01 := replace(substr(replace(var01,''),(instr(replace(var01,''),chr(10)))+1),'');
dbms_output.put_line('var01: '|| var01);
cnt := instr(var01, '<');
if cnt <> 0 then
null;
else
dbms_output.put_line('var02: '|| var02);
end if;
EXIT WHEN cnt = 0;
END LOOP;
EXCEPTION
WHEN OTHERS THEN
var03_error := SQLERRM;
dbms_output.put_line ('Error: ' || var03_error);
end;

Answer 1

Sure, just as soon as you come round to my house and do the laundry for me ;)
Alternatively, you could put a bit of effort in and fix the basic errors. You say that you are stuck in an endless loop. That is not possible from the code that you have supplied, there are therefore two possibilities.
1. You lied i.e. you are actually trying to run the above code, it errors and you want someone to fix it, but thou8ght that somehow implying a different error in the code would get someone to do your work for you.
2. You Poste d code different to that which you are actuially running and your code does indeed have an infinite loop. In which case, post the code that actually runs but drops into an endless loop.
GL