Print clob data with htp.prn

HTP.PRN (cbuf IN VARCHAR2);

HTP.PRN (dbuf IN DATE);

HTP.PRN (nbuf IN NUMBER);

PROCEDURE HTPPRN(PCLOB IN OUT NOCOPY CLOB) 
IS
    V_TEMP VARCHAR2(32767);
    V_CLOB CLOB := PCLOB;
    V_AMOUNT NUMBER := 32000;
    V_OFFSET NUMBER := 1;
    V_LENGTH NUMBER := DBMS_LOB.GETLENGTH(PCLOB);
    V_RESULT CLOB;
BEGIN

    WHILE V_LENGTH >= V_OFFSET LOOP
        V_TEMP:= DBMS_LOB.SUBSTR(V_CLOB, V_AMOUNT, V_OFFSET);
        HTP.PRN(V_TEMP);
        V_OFFSET := V_OFFSET + LENGTH(V_TEMP);
    END LOOP;
    
END;