-- clob_to_varchar1.sql
DECLARE
w_Page CLOB:= 'There was a farmer had a dog bingo was his name-o, bingo bingo was his nammobingo bingo was his nammobingo bingo was his nammobingo bingo was his nammobingo bingo was his nammo bingo bingo was his nammo';
v_char1 varchar2(50); n_num1 number;
BEGIN
n_num1 := LENGTH(w_page);
v_char1 := UPPER(SUBSTR(w_page, 1, 50));
DBMS_OUTPUT.PUT_LINE('w_Page ' ||n_num1|| ' long');
DBMS_OUTPUT.PUT_LINE(w_Page);
DBMS_OUTPUT.PUT_LINE(v_char1);
END;
/