16: is
17: clobvar CLOB := EMPTY_CLOB;
18: len BINARY_INTEGER;
19: begin
20: dbms_lob.createtemporary(clobvar, TRUE);
21: dbms_lob.open(clobvar, dbms_lob.lob_readwrite);
22: len := length(a_message);
23: dbms_lob.writeappend(clobvar, len, a_message);
24: dbms_lob.close(clobvar);
17: clobvar CLOB := EMPTY_CLOB;
18: len BINARY_INTEGER;
19: begin
20: dbms_lob.createtemporary(clobvar, TRUE);
21: dbms_lob.open(clobvar, dbms_lob.lob_readwrite);
22: len := length(a_message);
23: dbms_lob.writeappend(clobvar, len, a_message);
24: dbms_lob.close(clobvar);
25:
19: begin
20: dbms_lob.createtemporary(clobvar, TRUE);
21: dbms_lob.open(clobvar, dbms_lob.lob_readwrite);
22: len := length(a_message);
23: dbms_lob.writeappend(clobvar, len, a_message);
24: dbms_lob.close(clobvar);
25:
26: WF_MAIL.SEND(p_idstring => a_idstring,
27: p_module => a_module,
20: dbms_lob.createtemporary(clobvar, TRUE);
21: dbms_lob.open(clobvar, dbms_lob.lob_readwrite);
22: len := length(a_message);
23: dbms_lob.writeappend(clobvar, len, a_message);
24: dbms_lob.close(clobvar);
25:
26: WF_MAIL.SEND(p_idstring => a_idstring,
27: p_module => a_module,
28: p_recipient_list => ALR_EMAIL_TABLE,
33: exception
34: when others then
35: APP_EXCEPTION.RAISE_EXCEPTION;
36:
37: dbms_lob.freetemporary(clobvar);
38:
39: end;
40:
41: procedure Send2(a_idstring in varchar2,
48: a_message CLOB;
49: OFFSET number;
50: LEN number;
51: begin
52: DBMS_LOB.CREATETEMPORARY(a_message, FALSE);
53: DBMS_LOB.OPEN(a_message, DBMS_LOB.LOB_READWRITE);
54: OFFSET := 1;
55: LEN := LENGTH(a_chunk1);
56: DBMS_LOB.WRITE(a_message, LEN, OFFSET, a_chunk1);
49: OFFSET number;
50: LEN number;
51: begin
52: DBMS_LOB.CREATETEMPORARY(a_message, FALSE);
53: DBMS_LOB.OPEN(a_message, DBMS_LOB.LOB_READWRITE);
54: OFFSET := 1;
55: LEN := LENGTH(a_chunk1);
56: DBMS_LOB.WRITE(a_message, LEN, OFFSET, a_chunk1);
57: OFFSET := OFFSET + LEN;
52: DBMS_LOB.CREATETEMPORARY(a_message, FALSE);
53: DBMS_LOB.OPEN(a_message, DBMS_LOB.LOB_READWRITE);
54: OFFSET := 1;
55: LEN := LENGTH(a_chunk1);
56: DBMS_LOB.WRITE(a_message, LEN, OFFSET, a_chunk1);
57: OFFSET := OFFSET + LEN;
58: if (a_chunk2 is not null) then
59: LEN := LENGTH(a_chunk2);
60: DBMS_LOB.WRITE(a_message, LEN, OFFSET, a_chunk2);
56: DBMS_LOB.WRITE(a_message, LEN, OFFSET, a_chunk1);
57: OFFSET := OFFSET + LEN;
58: if (a_chunk2 is not null) then
59: LEN := LENGTH(a_chunk2);
60: DBMS_LOB.WRITE(a_message, LEN, OFFSET, a_chunk2);
61: OFFSET := OFFSET + LEN;
62: end if;
63: WF_MAIL.SEND(p_idstring => a_idstring,
64: p_module => a_module,
66: p_replyto => a_replyto,
67: p_subject => a_subject,
68: p_message => a_message);
69:
70: DBMS_LOB.FREETEMPORARY(a_message);
71:
72: exception
73: when others then
74: APP_EXCEPTION.RAISE_EXCEPTION;