[table border="0" width="100%" cellpadding="0" cellspacing="0"> [tbody] [tr] [td align="right">[/td] [/tr] [/tbody] [/table]

[table border="0" width="100%" cellpadding="0" cellspacing="0"> [tbody] [tr] [td colspan="3"> [script][/script] [/td] [/tr] [tr] [td colspan="2"> [script][/script] [/td] [td rowspan="2">[/td] [/tr] [tr] [td colspan="2" width="100%" class="x9">[/td] [/tr] [tr] [td colspan="3"> [script][/script] [/td] [/tr] [tr] [td][/td] [/tr] [/tbody] [/table] fetch d into r.last_name; * [/pre] يوجد خطأ عند سطر 8: ORA-06550: ¿¿¿ 7 ¿ ¿¿¿¿ 6 : PL/SQL: ORA-00933: ¿¿¿ SQL ¿¿ ¿¿¿¿¿ ¿¿¿¿¿¿ ¿¿¿¿¿ ORA-06550: ¿¿¿ 6 ¿ ¿¿¿¿ 12 : PL/SQL: SQL Statement ignored ORA-06550: ¿¿¿ 12 ¿ ¿¿¿¿ 1 : PLS-00103: ¿¿ ¿¿¿¿¿¿ ¿¿¿¿¿ “CLOSE”

[table border="0" width="100%" cellpadding="0" cellspacing="0"> [tbody] [tr] [td align="right">[/td] [/tr] [/tbody] [/table]

[table border="0" width="100%" cellpadding="0" cellspacing="0"> [tbody] [tr] [td colspan="3"> [script][/script] [/td] [/tr] [tr] [td colspan="2"> [script][/script] [/td] [td rowspan="2">[/td] [/tr] [tr] [td colspan="2" width="100%" class="x9">[/td] [/tr] [tr] [td colspan="3"> [script][/script] [/td] [/tr] [tr] [td][/td] [/tr] [/tbody] [/table]

insert into config(TO_ADDRESS, SMTP_SERVER ,FROM_ADDRESS, EMAIL_SUBJECT ,EMAIL_TEXT)valueS(‘abc@ghj.com’,'xyxyxy.india.dom’,'xyz@abd.com’,'Hi’,'Hello’);

*************************************************
create table GT_TEMP
(
ID VARCHAR2(4000));
******************************************************
CREATE OR REPLACE PACKAGE PCK_EMAIL_ATTACHMENT IS
TYPE ref_cur_t IS REF CURSOR;
g_query VARCHAR2 (32000);
g_count NUMBER;
name VARCHAR2(100);
VALUE VARCHAR2(100);
g_desc_tab DBMS_SQL.DESC_TAB;
error NUMBER := 0;
success NUMBER := 1;
v_txt varchar2(4000);
v_rc NUMBER ;
varchar2_type CONSTANT PLS_INTEGER := 1;
number_type CONSTANT PLS_INTEGER := 2;
date_type CONSTANT PLS_INTEGER := 12;
rowid_type CONSTANT PLS_INTEGER := 11;
char_type CONSTANT PLS_INTEGER := 96;
l_col_name varchar2(3000) := null ;

long_type CONSTANT PLS_INTEGER := 8;
raw_type CONSTANT PLS_INTEGER := 23;
mlslabel_type CONSTANT PLS_INTEGER := 106;
clob_type CONSTANT PLS_INTEGER := 112;
blob_type CONSTANT PLS_INTEGER := 113;
bfile_type CONSTANT PLS_INTEGER := 114;

FUNCTION describe_columns(v_txt IN OUT VARCHAR2) RETURN NUMBER ;
FUNCTION send_email (p_query VARCHAR2 :=NULL ,in_col_name VARCHAR2 :=NULL , in_html_append VARCHAR2 :=NULL , file_name VARCHAR2 :=NULL , v_txt IN OUT VARCHAR2 ) RETURN NUMBER;
FUNCTION record_def(v_txt IN OUT VARCHAR2) RETURN VARCHAR2;
FUNCTION ref_cur RETURN PCK_EMAIL_ATTACHMENT.ref_cur_t;
FUNCTION process_def(v_txt IN OUT VARCHAR2) RETURN VARCHAR2 ;
END;
*************************************************
CREATE OR REPLACE PACKAGE BODY PCK_EMAIL_ATTACHMENT IS
FUNCTION describe_columns(v_txt IN OUT VARCHAR2) RETURN NUMBER IS
l_cur INTEGER;
BEGIN
dbms_output.put_line(‘inside function describe_columns ‘);
l_cur := DBMS_SQL.OPEN_CURSOR;
DBMS_SQL.PARSE (l_cur, g_query, DBMS_SQL.NATIVE);
DBMS_SQL.DESCRIBE_COLUMNS (l_cur, g_count, g_desc_tab);
DBMS_SQL.CLOSE_CURSOR (l_cur);
Return success ;
EXCEPTION
WHEN OTHERS THEN
dbms_output.put_line(‘inside function describe_columns exception’);
IF DBMS_SQL.IS_OPEN (l_cur) THEN
DBMS_SQL.CLOSE_CURSOR (l_cur);
END IF;
v_txt := ‘Error in function describe_columns :-’||SQLERRM ;
Return error;
END;

FUNCTION process_def(v_txt IN OUT VARCHAR2) RETURN VARCHAR2 IS
l_process_def VARCHAR2 (32000) := null;
BEGIN
l_process_def := ‘TO_CHAR (‘;
FOR i IN 1 .. PCK_EMAIL_ATTACHMENT.g_count LOOP
l_process_def := l_process_def || ‘ l_record.col_’ || i || ‘ ||”,” || ‘;
END LOOP;
l_process_def := RTRIM (l_process_def, ‘ || ”,” || ‘) || ‘);’;
RETURN l_process_def;
EXCEPTION
WHEN OTHERS THEN
v_txt := v_txt||’Error in during FUNCTION process_def :-’||SQLERRM;
success := error;
END;

FUNCTION ref_cur RETURN PCK_EMAIL_ATTACHMENT.ref_cur_t IS
l_ref_cur PCK_EMAIL_ATTACHMENT.ref_cur_t;
BEGIN
OPEN l_ref_cur FOR PCK_EMAIL_ATTACHMENT.g_query;
RETURN l_ref_cur;
EXCEPTION
WHEN OTHERS THEN
success := error;
END;

FUNCTION record_def(v_txt IN OUT VARCHAR2) RETURN VARCHAR2 IS
l_record_def VARCHAR2 (32000);
l_type VARCHAR2 (100);
l_col_type PLS_INTEGER;
l_col_max_len PLS_INTEGER;
l_col_precision PLS_INTEGER;
l_col_scale PLS_INTEGER;
BEGIN
l_col_name := null ;
FOR i IN 1..g_count LOOP
l_col_type := g_desc_tab(i).col_type;
l_col_max_len := g_desc_tab(i).col_max_len;
l_col_precision := g_desc_tab(i).col_precision;
l_col_scale := g_desc_tab(i).col_scale;
l_col_name := l_col_name || ‘<TD><B>’ || g_desc_tab(i).col_name || ‘</B></TD>’ ;
IF l_col_type = varchar2_type THEN
l_type := ‘VARCHAR2(‘ || l_col_max_len || ‘)’;
ELSIF l_col_type = number_type THEN
l_type := ‘NUMBER’;
ELSIF l_col_type = date_type THEN
l_type := ‘DATE’;
ELSIF l_col_type = rowid_type THEN
l_type := ‘ROWID’;
ELSIF l_col_type = char_type THEN
l_type := ‘CHAR(‘ || l_col_max_len || ‘)’;
END IF;
l_record_def := l_record_def || ‘ col_’ || i || ‘ ‘ || l_type || ‘,’;
END LOOP;
l_record_def := RTRIM (l_record_def, ‘,’);
RETURN l_record_def;
EXCEPTION
WHEN OTHERS THEN
v_txt := v_txt||’Error in during FUNCTION process_def :-’||SQLERRM;
success := error;
END;

FUNCTION send_email (p_query VARCHAR2 :=NULL ,in_col_name VARCHAR2 :=NULL , in_html_append VARCHAR2 :=NULL , file_name VARCHAR2 :=NULL , v_txt IN OUT VARCHAR2 ) RETURN NUMBER
IS
l_statement VARCHAR2 (32000);
v_email_text varchar2(1000) ;
v_email_subject varchar2(1000) ;
v_from_address varchar2(1000) ;
v_smtp_server varchar2(1000) ;
v_to_address VARCHAR2(1000);
c utl_tcp.connection;
rc integer;
v_occu_count number ;
v_file_name varchar2(4000);
v_in_col_name varchar2(4000) := null;
y varchar2(4000) := null;
v_html_append varchar2(4000) := null;
z varchar2(4000) := null;

Type recordtab is table of varchar2(3000) index by binary_integer ;
v_obj recordtab ;

BEGIN
UTL_TCP.CLOSE_ALL_CONNECTIONS;
success := 1 ;
v_file_name := file_name ;
v_in_col_name := in_col_name ;
v_html_append := in_html_append;
BEGIN
— selecting data for email notification
select VALUE into v_to_address from config2 where name = ‘TO_ADDRESS’;
select VALUE into v_smtp_server from config2 where name = ‘SMTP_SERVER’;
select VALUE into v_from_address from config2 where name = ‘FROM_ADDRESS’;
select VALUE into v_email_subject from config2 where name = ‘EMAIL_SUBJECT’;
select VALUE into v_email_text from config2 where name = ‘EMAIL_TEXT’;
EXCEPTION
WHEN OTHERS THEN
v_txt := v_txt||’Error selecting config2 value in send_email :-’||SQLERRM;
RETURN error;
END;

c := utl_tcp.open_connection(v_smtp_server, 25); —– OPEN SMTP PORT CONNECTION
rc := utl_tcp.write_line(c, ‘HELO 262.30.88.29′); —– PERFORMS HANDSHAKING WITH SMTP SERVER
dbms_output.put_line(utl_tcp.get_line(c, TRUE));
rc := utl_tcp.write_line(c, ‘HELO 262.30.88.29′); —– PERFORMS HANDSHAKING WITH SMTP SERVER, INCLUDING EXTRA INFORMATION
dbms_output.put_line(utl_tcp.get_line(c, TRUE));
rc := utl_tcp.write_line(c, ‘MAIL FROM: ‘ || v_from_address); —– MAIL BOX SENDING THE EMAIL
dbms_output.put_line(utl_tcp.get_line(c, TRUE));
rc := utl_tcp.write_line(c, ‘RCPT TO: ‘ || v_to_address); —– MAIL BOX RECIEVING THE EMAIL
dbms_output.put_line(utl_tcp.get_line(c, TRUE));
rc := utl_tcp.write_line(c, ‘DATA’); —– EMAIL MESSAGE BODY START
dbms_output.put_line(utl_tcp.get_line(c, TRUE));
rc := utl_tcp.write_line(c,
‘Date: ‘ ||
TO_CHAR(SYSDATE, ‘dd Mon yy hh24:mi:ss’));
rc := utl_tcp.write_line(c,
‘From: ‘ || v_from_address || ‘ <’ || v_from_address || ‘>’);
rc := utl_tcp.write_line(c, ‘MIME-Version: 1.0′);
rc := utl_tcp.write_line(c, ‘To: ‘ || v_to_address || ‘ <’ || v_to_address || ‘>’);
rc := utl_tcp.write_line(c, ‘Subject: ‘ || v_email_subject);
rc := utl_tcp.write_line(c, ‘Content-Type: multipart/mixed;’); —– INDICATES THAT THE BODY CONSISTS OF MORE THAN ONE PART
rc := utl_tcp.write_line(c, ‘ boundary=”—–SECBOUND”‘); —– SEPERATOR USED TO SEPERATE THE BODY PARTS
rc := utl_tcp.write_line(c, ”); —– INSERTS A BLANK LINE. PART OF THE MIME FORMAT AND NONE OF THEM SHOULD BE REMOVED.
rc := utl_tcp.write_line(c, ‘——-SECBOUND’);
rc := utl_tcp.write_line(c, ‘Content-Type: text/plain’); —– 1ST BODY PART. EMAIL TEXT MESSAGE
rc := utl_tcp.write_line(c, ‘Content-Transfer-Encoding: 7bit’);
rc := utl_tcp.write_line(c, ”);
rc := utl_tcp.write_line(c, v_email_text); —– TEXT OF EMAIL MESSAGE
rc := utl_tcp.write_line(c, ”);
rc := utl_tcp.write_line(c, ‘——-SECBOUND’);
rc := utl_tcp.write_line(c, ‘Content-Type: text/plain;’); —– 2ND BODY PART. — plain to html
rc := utl_tcp.write_line(c, ‘ name=”TEMP/emp1.html”‘);
rc := utl_tcp.write_line(c, ‘Content-Transfer_Encoding: 8bit’);
— if v_html_append is null then only attachement will be send in email
if v_html_append is null then
rc := utl_tcp.write_line(c, ‘Content-Disposition: attachment;’); —– INDICATES THAT THIS IS AN ATTACHMENT
rc := utl_tcp.write_line(c, ‘ filename=”TEMP/’|| v_file_name ||’”‘); —– SUGGESTED FILE NAME FOR ATTACHMENT
end if ;

rc := utl_tcp.write_line(c, ”);
rc := utl_tcp.write_line(c, ‘<html>’);
rc := utl_tcp.write_line(c, ‘<head>’);
rc := utl_tcp.write_line(c,
‘<meta http-equiv=”Content-Type” content=”text/html”>’);
rc := utl_tcp.write_line(c, ‘<title>Title of the HTML File</title>’);
rc := utl_tcp.write_line(c, ‘</head>’);
rc := utl_tcp.write_line(c, ‘<body TEXT=”#000000″ BGCOLOR=”#FFFFFF”>’);
rc := utl_tcp.write_line(c,
‘<TABLE border=1 bordercolor=”#808080″ cellspacing=0>’);
rc := utl_tcp.write_line(c, ‘</TR>’);

PCK_EMAIL_ATTACHMENT.g_query := p_query;

v_rc := PCK_EMAIL_ATTACHMENT.describe_columns(v_txt);
IF v_rc <> success THEN
v_txt :=v_txt||’Error in function describe_columns :-’||SQLERRM;
RETURN error;
END IF;
delete from gt_temp;
l_statement :=
‘ DECLARE’ ||
‘ TYPE record_t IS RECORD (‘ ||
PCK_EMAIL_ATTACHMENT.record_def(v_txt) || ‘);’ ||
‘ l_record record_t; l_var varchar2(4000);rc integer;’ ||

‘ l_ref_cur PCK_EMAIL_ATTACHMENT.ref_cur_t;’ ||
‘ BEGIN’ ||
‘ l_ref_cur := PCK_EMAIL_ATTACHMENT.ref_cur;’ ||
‘ LOOP’ ||
‘ FETCH l_ref_cur INTO l_record;’ ||
‘ EXIT WHEN l_ref_cur%NOTFOUND;’ ||
‘l_var:=’||PCK_EMAIL_ATTACHMENT.process_def(v_txt) ||
‘insert into gt_temp values (l_var); commit;’||
‘ END LOOP;’ ||
‘ CLOSE l_ref_cur;’ ||
‘ END;’;

— dbms_output.put_line(‘before execute imme ‘);
EXECUTE IMMEDIATE l_statement;
If success = error then
v_txt := v_txt||’Error in during EXECUTE IMMEDIATE stataement :-’||SQLERRM;
Return error;
End if;

BEGIN
rc := utl_tcp.write_line(c, ‘</TR>’);
if v_in_col_name is null then
rc := utl_tcp.write_line(c, PCK_EMAIL_ATTACHMENT.l_col_name );
else
loop
y := substr(v_in_col_name,1,instr(v_in_col_name,’,')-1) ;
v_in_col_name := substr(v_in_col_name,instr(v_in_col_name,’,')+1) ;
if y is null then
exit ;
else
z := z || ‘<TD><B>’ || y || ‘</B></TD>’ ;
end if ;
end loop;
z := z || ‘<TD><B>’ || v_in_col_name || ‘</B></TD>’ ;
rc := utl_tcp.write_line(c, z );
End if;
–pushing data into email from GTT
FOR x in ( select id from gt_temp )
loop
— this will give us the total occurrence of ‘,’ in the x.id field.
v_occu_count := 1 ;
loop
If ( ((instr(x.id,’,', 1, v_occu_count ))) = 0 ) then
exit;
End if;
v_occu_count := v_occu_count+1;
end loop ;
v_occu_count := v_occu_count – 1;
rc := utl_tcp.write_line(c, ‘</TR>’);
for i in 1..v_occu_count
loop
v_obj(i) := substr(x.id,1,instr(x.id,’,')-1) ;
rc := utl_tcp.write_line(c,’<TD><B>’ || v_obj(i) || ‘</B></TD>’);
x.id := substr(x.id,instr(x.id,’,')+1) ;
end loop;
rc := utl_tcp.write_line(c,’<TD><B>’ || x.id || ‘</B></TD>’);
End loop;
commit;
EXCEPTION
WHEN OTHERS THEN
v_txt := v_txt||’Error in during selecting data from Global temp table :-’||SQLERRM;
Return error ;
END;
— dbms_output.put_line(‘ending email’);
rc := utl_tcp.write_line(c, ‘</TR>’);
rc := utl_tcp.write_line(c, ‘</body>’);
rc := utl_tcp.write_line(c, ‘</html>’);
rc := utl_tcp.write_line(c, ‘——-SECBOUND–’);
rc := utl_tcp.write_line(c, ”);
rc := utl_tcp.write_line(c, ‘.’); —– EMAIL MESSAGE BODY END
dbms_output.put_line(utl_tcp.get_line(c, TRUE));
rc := utl_tcp.write_line(c, ‘QUIT’); —– ENDS EMAIL TRANSACTION
dbms_output.put_line(utl_tcp.get_line(c, TRUE));
utl_tcp.close_connection(c); —– CLOSE SMTP PORT CONNECTION
RETURN success;
EXCEPTION
WHEN OTHERS THEN
v_txt := v_txt||’Error in function send_email :-’||SQLERRM;
Return error ;
END;
END;
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Declare
v_txt varchar2 (2000);
Returned_value number;
Begin
Returned_value := FUNCTION send_email ( ‘select * from config;’, ‘col1′, ‘HTML APPEND’, ‘mail.xls’, ‘v_txt’);
Dbms_output.put_line (‘Returned_value is:=’ || Returned_value);
end;

ORA-06550: line 16, column 1:
PLS-00103: Encountered the symbol “C1″ when expecting one of the following:

. ( * @ % & – + / at loop mod remainder rem
<an exponent (**)> and or || multiset
The symbol “loop” was substituted for “C1″ to continue.
ORA-06550: line 17, column 1:
PLS-00103: Encountered the symbol “DBMS_OUTPUT” when expecting one of the following:

. ( * % & = – + ; < / > at in is mod remainder not rem
<an exponent (**)> <> or != or ~= >= <= <> and or like LIKE2_
LIKE4_ LIKEC_ betw

I get the following error on compiling my code -
***********************************************************
ORA-06550: line 16, column 1:
PLS-00103: Encountered the symbol “ELSE” when expecting one of the
following:

begin case declare end exit for goto if loop mod null pragma
raise return select update while with <an identifier>
<a double-quoted delimited-identifier> <a bind variable> <<
close current delete fetch lock insert open rollback
savepoint set sql execute commit forall merge
<a single-quoted SQL string> pipe
ORA-06550: line 19, column 1:
PLS-00103: Encountered the symbol “END”
06550. 00000 – “line %s, column %s:\n%s”
*Cause: Usually a PL/SQL compilation error.
*Action:
********************************************************
MyCode is
********************************************************
drop table BDTable;
/

CREATE GLOBAL TEMPORARY TABLE BDTable
(
BDGroupArea VARCHAR(1)
) ON COMMIT DELETE ROWS
/
declare
str VARCHAR(255);
BDGroupArea VARCHAR(255);
pos integer;
Begin
BDGroupArea:=’1,2,3′;
IF (instr(BDGroupArea, ‘%,%’)<>0) Then
WHILE (INSTR(BDGroupArea, ‘%,%’)<>0) LOOP BEGIN
BDGroupArea := BDGroupArea + ‘,’ ;
pos:= instr(BDGroupArea, ‘,’);
str:= SUBSTR(BDGroupArea,1,pos-1);
INSERT INTO BDTable (BDGroupArea) VALUES (str);
BDGroupArea:= SUBSTR(BDGroupArea, pos+1, LENGTH(BDGroupArea)); END LOOP; ELSE INSERT INTO BDTable (BDGroupArea) VALUES ( BDGroupArea ); End IF; End; / SELECT * FROM BDTable; /

Thanks,
Sowmya

I have defined the function custom_auth