http://sqle.ru/index.php?action=history&feed=atom&title=Oracle_PL%2FSQL_Tutorial%2FSystem_Packages%2FDBMS_DDL
Oracle PL/SQL Tutorial/System Packages/DBMS DDL - История изменений
2026-08-04T20:01:53Z
История изменений этой страницы в вики
MediaWiki 1.30.0
http://sqle.ru/index.php?title=Oracle_PL/SQL_Tutorial/System_Packages/DBMS_DDL&diff=3328&oldid=prev
в 13:45, 26 мая 2010
2010-05-26T13:45:46Z
<p></p>
<table class="diff diff-contentalign-left" data-mw="interface">
<tr style="vertical-align: top;" lang="ru">
<td colspan="1" style="background-color: white; color:black; text-align: center;">← Предыдущая</td>
<td colspan="1" style="background-color: white; color:black; text-align: center;">Версия 13:45, 26 мая 2010</td>
</tr><tr><td colspan="2" style="text-align: center;" lang="ru"><div class="mw-diff-empty">(нет различий)</div>
</td></tr></table>
http://sqle.ru/index.php?title=Oracle_PL/SQL_Tutorial/System_Packages/DBMS_DDL&diff=3329&oldid=prev
Admin: 1 версия
2010-05-26T10:05:59Z
<p>1 версия</p>
<p><b>Новая страница</b></p><div>== Uses DBMS_DDL.CREATE_WRAPPED to obfuscate PL/SQL source==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="sql"><br />
SQL><br />
SQL><br />
SQL><br />
SQL> CREATE TABLE myTable (<br />
2 myID NUMBER(10) PRIMARY KEY,<br />
3 myCode VARCHAR2(10 CHAR) NOT NULL,<br />
4 region VARCHAR2(30 CHAR) NOT NULL,<br />
5 country VARCHAR2(30 CHAR) NOT NULL);<br />
Table created.<br />
SQL> INSERT INTO myTable (myID, myCode, region, country)<br />
2 VALUES (1, "AKL", "Auckland", "NEW ZEALAND");<br />
1 row created.<br />
SQL><br />
SQL><br />
SQL> DECLARE<br />
2 v_procedure VARCHAR2(32767);<br />
3 BEGIN<br />
4 v_procedure := "CREATE OR REPLACE PROCEDURE create_wrapped_test "<br />
5 ||"IS "<br />
6 ||" v_myCodes myTable.myCode%TYPE; "<br />
7 ||" "<br />
8 ||" CURSOR airport_cur IS "<br />
9 ||" SELECT myCode"<br />
10 ||" FROM myTable"<br />
11 ||" ORDER BY myCode;"<br />
12 ||" "<br />
13 ||"BEGIN "<br />
14 ||" FOR y IN airport_cur LOOP "<br />
15 ||" DBMS_OUTPUT.PUT_LINE(""Airport Code: ""||y.myCode);"<br />
16 ||" END LOOP;"<br />
17 || "END;";<br />
18<br />
19 SYS.DBMS_DDL.CREATE_WRAPPED(v_procedure);<br />
20<br />
21 END;<br />
22 /<br />
PL/SQL procedure successfully completed.<br />
SQL><br />
SQL><br />
SQL><br />
SQL> SELECT text<br />
2 FROM user_source<br />
3 WHERE name = "CREATE_WRAPPED_TEST";<br />
TEXT<br />
------------------------------------------------------------------------------------------------------------------------<br />
PROCEDURE create_wrapped_test wrapped<br />
a000000<br />
b2<br />
abcd<br />
abcd<br />
abcd<br />
abcd<br />
abcd<br />
abcd<br />
abcd<br />
abcd<br />
abcd<br />
abcd<br />
abcd<br />
abcd<br />
abcd<br />
abcd<br />
abcd<br />
7<br />
130 10b<br />
14sbBa4nRvMfcC4CwQzOuLJOzQMwg1zQr54VfHRAEIlxkSMxHbResWCIfgyhXmOwh9KP3mV6<br />
ue7N1Bu6yshPJJosBnV0g93nQMyZ6Fv2wVAbNZZpEoUyrkXJgFb6yOkoCicnlkM8e/L1TRs2<br />
WXCu5A/XwL3ZQy0170tsH1viWc3RqirjYmXDUoA+TaUrv4J10OmFTjPghF1vGSs7ro7bRD7H<br />
wYrLrgI/KE8/zqwpT2SZjoYEv7VusA9LA8fIl9Z75KbcK2nt<br />
<br />
SQL><br />
SQL><br />
SQL> SET SERVEROUTPUT ON<br />
SQL><br />
SQL> EXEC create_wrapped_test<br />
Airport Code: AKL<br />
PL/SQL procedure successfully completed.<br />
SQL><br />
SQL><br />
SQL><br />
SQL> drop table myTable;<br />
Table dropped.</source></div>
Admin