[ Pobierz całość w formacie PDF ]
.p('All input fields must be entered for the Add operation.');RETURN;END IF;insertOrg (ip_hrc_code,ip_org_id,ip_org_short_name,ip_org_long_name);ELSIF (ip_op ='Modify')THENIF ((ip_hrc_code IS NULL)or (ip_org_id IS NULL)or(ip_org_short_name IS NULL)or (ip_org_long_name IS NULL))THENhtp.p('All input fields must be entered for the Modify operation.');RETURN;END IF;updateOrg(ip_org_id,ip_org_short_name,ip_org_long_name);ELSIF (ip_op ='Delete')THENIF (ip_org_id IS NULL)THENhtp.p('Org Id must be entered for the Delete operation.');RETURN;END IF;deleteOrg(ip_org_id);END IF;END run;END WebAppOrg;/-- Procedure p_send_emailCREATE OR REPLACE PROCEDURE p_send_email(p_mailhost VARCHAR2,p_from_address VARCHAR2,p_to_address VARCHAR2,p_message_text VARCHAR2,p_retcd OUT NUMBER,p_err_msg OUT VARCHAR2)ISmail_conn utl_smtp.connection;BEGINmail_conn :=utl_smtp.open_connection(p_mailhost,25);utl_smtp.helo(mail_conn,p_mailhost);utl_smtp.mail(mail_conn,p_from_address);utl_smtp.rcpt(mail_conn,p_to_address);utl_smtp.open_data(mail_conn);utl_smtp.write_data(mail_conn,p_message_text);utl_smtp.close_data(mail_conn);utl_smtp.quit(mail_conn);p_retcd :=0;EXCEPTIONWHEN OTHERS THENp_retcd :=SQLCODE;p_err_msg :=SQLERRM;END;/-- Sample code to execute p_send_emaildeclareretcd number;err_msg varchar2(1000);beginp_send_email('mail.compunnel.com','blakshman@compunnel.com','blakshman@compunnel.com','From:'||'Bulusu'||CHR(13)||CHR(10)||'Subject:'||'Message from Bulusu'||CHR(13)||CHR(10)||CHR(13)||CHR(10)||'This is a test message.',retcd,err_msg);IF (retcd <>0)THENdbms_output.put_line('ERR:'||err_msg);END IF;end;/R15.ALTER SESSION SET PLSQL_COMPILER_FLAGS ='NATIVE';select uo.object_name,uo.object_type,uss.param_valuefrom user_stored_settings uss,user_objects uowhere uss.object_id =uo.object_idand uss.param_name ='plsql_compiler_flags'and uo.object_type in ('PROCEDURE','FUNCTION');CREATE OR REPLACE FUNCTION f_nocopy(ip_1 IN NUMBER,op_2 OUT NOCOPY VARCHAR2)ISBEGINNULL;END;/1 [ Pobierz całość w formacie PDF ]
zanotowane.pl doc.pisz.pl pdf.pisz.pl trzylatki.xlx.pl
.p('All input fields must be entered for the Add operation.');RETURN;END IF;insertOrg (ip_hrc_code,ip_org_id,ip_org_short_name,ip_org_long_name);ELSIF (ip_op ='Modify')THENIF ((ip_hrc_code IS NULL)or (ip_org_id IS NULL)or(ip_org_short_name IS NULL)or (ip_org_long_name IS NULL))THENhtp.p('All input fields must be entered for the Modify operation.');RETURN;END IF;updateOrg(ip_org_id,ip_org_short_name,ip_org_long_name);ELSIF (ip_op ='Delete')THENIF (ip_org_id IS NULL)THENhtp.p('Org Id must be entered for the Delete operation.');RETURN;END IF;deleteOrg(ip_org_id);END IF;END run;END WebAppOrg;/-- Procedure p_send_emailCREATE OR REPLACE PROCEDURE p_send_email(p_mailhost VARCHAR2,p_from_address VARCHAR2,p_to_address VARCHAR2,p_message_text VARCHAR2,p_retcd OUT NUMBER,p_err_msg OUT VARCHAR2)ISmail_conn utl_smtp.connection;BEGINmail_conn :=utl_smtp.open_connection(p_mailhost,25);utl_smtp.helo(mail_conn,p_mailhost);utl_smtp.mail(mail_conn,p_from_address);utl_smtp.rcpt(mail_conn,p_to_address);utl_smtp.open_data(mail_conn);utl_smtp.write_data(mail_conn,p_message_text);utl_smtp.close_data(mail_conn);utl_smtp.quit(mail_conn);p_retcd :=0;EXCEPTIONWHEN OTHERS THENp_retcd :=SQLCODE;p_err_msg :=SQLERRM;END;/-- Sample code to execute p_send_emaildeclareretcd number;err_msg varchar2(1000);beginp_send_email('mail.compunnel.com','blakshman@compunnel.com','blakshman@compunnel.com','From:'||'Bulusu'||CHR(13)||CHR(10)||'Subject:'||'Message from Bulusu'||CHR(13)||CHR(10)||CHR(13)||CHR(10)||'This is a test message.',retcd,err_msg);IF (retcd <>0)THENdbms_output.put_line('ERR:'||err_msg);END IF;end;/R15.ALTER SESSION SET PLSQL_COMPILER_FLAGS ='NATIVE';select uo.object_name,uo.object_type,uss.param_valuefrom user_stored_settings uss,user_objects uowhere uss.object_id =uo.object_idand uss.param_name ='plsql_compiler_flags'and uo.object_type in ('PROCEDURE','FUNCTION');CREATE OR REPLACE FUNCTION f_nocopy(ip_1 IN NUMBER,op_2 OUT NOCOPY VARCHAR2)ISBEGINNULL;END;/1 [ Pobierz całość w formacie PDF ]