PL/SQL Бесконечная петля

Question

Мои навыки PL/SQL очень ограничены, поэтому я приношу свои извинения, если это не проблема. В принципе, у меня есть цикл, который повторяется через клоб. Цикл дал мне проблемы в прошлом (бесконечный цикл), когда значение clob равно null. Я попытался выполнить некоторые проверки кода для этого цикла, однако мои попытки предотвратить бесконечный цикл не удались.

Вот соответствующие фрагменты кода:

 v_offset  NUMBER DEFAULT 1; 
     v_response  CLOB; 

     SELECT VALUE 
     INTO v_response 
     FROM json_cache 
     WHERE json_key = 'EMPLOYEES'; 

     --infinite loop occurs when v_response = '' 
     LOOP 
      EXIT WHEN v_offset > DBMS_LOB.getlength (v_response) 
       or DBMS_LOB.getlength (v_response) = 0 
       or v_offset = 400000; 
      HTP.prn (DBMS_LOB.SUBSTR (v_response, 20000, v_offset)); 
      v_offset := v_offset + 20000; 
     END LOOP; 

не должны дополнительные условия в EXIT WHEN заявлении предотвратить зацикливание возникновения? Как завершить или предотвратить этот цикл, когда v_response пуст? Я хотел бы избежать обертывания этого цикла в выражении if и предпочел бы охрану в цикле.

Answer 1

Вы всегда можете проверить на нулевое значение:

loop 
    exit when v_offset > dbms_lob.getlength (v_response) 
     or dbms_lob.getlength (v_response) = 0 
     or v_offset = 400000 
     or dbms_lob.getlength (v_response) is null; 
    v_offset := v_offset + 20000; 
end loop; 

Answer 2

Вы можете добавить дополнительный контроль в конце, как это;

DECLARE 
    v_offset  NUMBER DEFAULT 1; 
    v_response  CLOB; 
BEGIN 
    SELECT VALUE 
    INTO v_response 
    FROM json_cache 
    WHERE json_key = 'EMPLOYEES'; 

    --infinite loop occurs when v_response = '' 
    LOOP 
     EXIT WHEN v_offset > DBMS_LOB.getlength (v_response) 
      or DBMS_LOB.getlength (v_response) = 0 
      or v_offset = 400000; 
     HTP.prn (DBMS_LOB.SUBSTR (v_response, 20000, v_offset)); 
     v_offset := v_offset + 20000; 

     if v_response is null then 
     exit; 
     end if; 
    END LOOP; 
END;