📄 otl3_ex49.htm
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<TITLE>Example 49 (PL/SQL tables as parameters, Oracle 7)</TITLE>
<META NAME="Author" CONTENT="Sergei Kuchin">
<META NAME="GENERATOR" CONTENT="Mozilla/3.03Gold (Win95; I) [Netscape]">
<META NAME="KeyWords" CONTENT="OTL, Oracle, ODBC, DB2, CLI, database API, C++, Template Library">
</HEAD>
<BODY>
<H1 ALIGN=CENTER>OTL 4.0, Example 49 (PL/SQL tables as parameters, <BR>
Oracle 7)</H1>
<H1>Example 49 (PL/SQL tables as parameters, Oracle 7)</H1>
<P>This example demonstrates how to use OTL <A HREF="otl3_pl_tab.htm">template
& dymanic PL/SQL table containers</A> for reading/writing PL/SQL tables
from/to the otl_stream.</P>
<H2>Source Code</H2>
<PRE>#include <iostream>
using namespace std;
#include <stdio.h></PRE>
<PRE>#define OTL_ORA7 // Compile OTL 4.0/OCI7
#include <otlv4.h> // include the OTL 4.0 header file
<A HREF="otl3_connect_class.htm">otl_connect</A> db; // connect object
</PRE>
<PRE>void plsql(void)
{
otl_stream s(1, // buffer size needs to be set to 1 in this case
"begin "
" pkg_test.prc_test(:t1<int,inout[100]>,:t2<char[32],out[200]>); "
"end;",
db // connect object
);
s.set_commit(0); // Since there is no transactions, unset the stream auto-commit
<A HREF="otl3_pl_tab.htm">otl_int_tab<</A>100> t1; // PL/SQL table of int[100]
<A HREF="otl3_pl_tab.htm">otl_cstr_tab</A><200,32> t2; // PL/SQL table of char[200][32]</PRE>
<PRE> t1.v[0]=1; // assign 1 to t1[0]
t1.set_non_null(0); // specify that the value is not null
t1.v[1]=2; // assign 2 to t1[1]
t1.set_non_null(1); // specify that the value is not null
t1.set_null(2); // set t1[2]=NULL
t1.set_len(3); // set t1's length to 3</PRE>
<PRE> s<<t1; // write t1 into the stream, since it is input
s>>t1; // read t1 from the stream since it is input/output
s>>t2; // read t2 from the stream since it is output.</PRE>
<PRE> cout<<"T1_Len="<<t1.len()<<endl;
for(int i=0;i<t1.len();++i)
if(t1.is_null(i))
cout<<"T1["<<i<<"]=NULL"<<endl;
else
cout<<"T1["<<i<<"]="<<t1.v[i]<<endl;
cout<<endl<<endl<<"T2_Len="<<t2.len()<<endl;
for(int j=0;j<t2.len();++j)
if(t2.is_null(j))
cout<<"T2["<<j<<"]=NULL"<<endl;
else
cout<<"T2["<<j<<"]="<<t2.v[j]<<endl;
}
int main()
{
<A HREF="otl3_connect_class.htm">otl_connect::otl_initialize</A>(); // initialize OCI environment
try{
db.rlogon("scott/tiger"); // connect to Oracle
otl_cursor::direct_exec
(db,
"CREATE OR REPLACE PACKAGE pkg_test IS "
" TYPE my_numeric_table IS TABLE OF NUMBER INDEX BY BINARY_INTEGER; "
" TYPE my_varchar_table IS TABLE OF VARCHAR2(31) INDEX BY BINARY_INTEGER; "
" "
" PROCEDURE prc_test(v1 IN OUT my_numeric_table, v2 OUT my_varchar_table); "
" "
"END; "
);
otl_cursor::direct_exec
(db,
"CREATE OR REPLACE PACKAGE BODY pkg_test IS "
" "
" PROCEDURE prc_test(v1 IN OUT my_numeric_table, v2 OUT my_varchar_table) "
" IS "
" BEGIN "
" FOR i IN 1..v1.last LOOP "
" v1(i) := v1(i)+100; "
" END LOOP; "
" v1(v1.last+1) := 0; "
" v2(1) := 'Hello'; "
" v2(2) := 'World'; "
" v2(3) := '!!!'; "
" END; "
" "
"END; "
);
plsql();
}
catch(<A HREF="otl3_exception_class.htm">otl_exception</A>& p){ // intercept OTL exceptions
cerr<<p.msg<<endl; // print out error message
cerr<<p.stm_text<<endl; // print out SQL that caused the error
cerr<<p.var_info<<endl; // print out the variable that caused the error
}
db.logoff(); // disconnect from Oracle
return 0;
}
</PRE>
<H2>Output</H2>
<PRE>T1_Len=4
T1[0]=101
T1[1]=102
T1[2]=NULL
T1[3]=0
T2_Len=3
T2[0]=Hello
T2[1]=World
T2[2]=!!!
<HR WIDTH="100%"></PRE>
<CENTER><P><A HREF="otl3_examples.htm">Examples</A> <A HREF="otl3.htm">Contents</A>
<A HREF="home.htm">Go Home</A> </P></CENTER>
<P>Copyright © 1996, 2008, Sergei Kuchin, email: <A HREF="mailto:skuchin@aceweb.com">skuchin@aceweb.com</A>,
<A HREF="mailto:skuchin@gmail.com">skuchin@gmail.com</A> <SCRIPT Language="JavaScript"><!-- hide from oldgmailsers
var modDate = new Date(document.lastModified)
document.write("<i> Last Updated:</i> " + (modDate.getMonth()+1) + "/" +
modDate.getDate() + "/" + "0"+(modDate.getYear())%100+".");
//-->
</SCRIPT>.</P>
<P><I>Permission to use, copy, modify and redistribute this document for
any purpose is hereby granted without fee, provided that the above copyright
notice appear in all copies. </I></P>
<script type="text/javascript">
var gaJsHost = (("https:" == document.location.protocol) ? "https://ssl." : "http://www.");
document.write(unescape("%3Cscript src='" + gaJsHost + "google-analytics.com/ga.js' type='text/javascript'%3E%3C/script%3E"));
</script>
<script type="text/javascript">
var pageTracker = _gat._getTracker("UA-5456201-1");
pageTracker._trackPageview();
</script>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -