embedding single quotes

[ssmith]

I have been trying to put the following line into a spool file:
execute send_mail('sheryl@acme.com','sheryl@test.com','TEST SUBJECT','PROD:USERS is 75% used');

by the following sql:
dbms_output.put_line('execute send_mail('''||send_address||''','''||rec_address||''','''TSA Alert''','''||dbname||''': '''||tbsname||''' is '''||bytes_pct||'''% used''');');

(where :
send_address := 'sheryl@acme.com'
rec_address := 'sheryl@test.com'
dbname := 'PROD'
tbsname := 'USERS'
bytes_pct := '75')

But I get the following error:
ORA-01756: quoted string not properly terminated

I have now been working on this all day, by adding or removing the single quotes, even using chr(39), but still can't seem to crack this. Can anyone please help?

[ales]

dbms_output.put_line('execute send_mail('''||send_address||''','''||rec_address||''',''TSA Alert'','''||dbname||':'||tbsname||' is '||bytes_pct||'''% used'');');

[ssmith]

Thanks.

[kris109]

Write a small function add_quotes:

FUNCTION add_quotes(txt_in IN VARCHAR2) RETURN VARCHAR2 IS
sq VARCHAR2(1) := '''';
BEGIN
RETURN (sq || txt_in || sq);
END;

And whenever you need to supply quotes, do this:

show_message('Device '||add_quotes(:EQUIPMENT_CTRL.serial_number)||' '||'not found, Register manually');