clob_locator CLOB;
charbuf VARCHAR2(2000);
read_offset INTEGER;
read_amount INTEGER;

BEGIN

SELECT clob_data INTO clob_locator FROM AHS_LOB_DATA WHERE lob_id = 1;

DBMS_OUTPUT.PUT_LINE('CLOB Size: '||DBMS_LOB.GETLENGTH(clob_locator));

-- Read LOB field contents
read_offset := 1;
read_amount := 1900;

dbms_lob.read(clob_locator,read_amount,read_offset,charbuf);

common_func.display_output('NOTWEB',s_output_text_in => 'CLOB Value: ' ||CHR(10)||charbuf);

exception
when others then
common_func.display_output('NOTWEB',s_output_text_in => 'SQLERRM : '||SQLERRM);

END;
/