Утилита SQL*Plus. Создание и выполнение сценариев. Часть III

Команды DEFINE и UNDFEFINE

<команда DEFINE > ::=

DEF[INE] [<имя переменной> [= <текст>]]

SQL> define a=text SQL> define a DEFINE A               = "text" (CHAR) SQL> define b=5 SQL> define DEFINE _SQLPLUS_RELEASE = "801060000" (CHAR) DEFINE _EDITOR         = "Notepad" (CHAR) DEFINE _O_VERSION      = "Oracle8i Enterprise Edition Release 8.1.6.0.0 - Production With the Partitioning option JServer Release 8.1.6.0.0 - Production" (CHAR) DEFINE _O_RELEASE      = "801060000" (CHAR) DEFINE A               = "text" (CHAR) DEFINE B               = "5" (CHAR) SQL> 

<команда UNDEFINE> ::=

UNDEF[INE] <имя переменной>{ <имя переменной>}

SQL> undefine a b SQL> define a SP2-0135: символ a UNDEFINED SQL> 

Использование подставляемых переменных

SQL> select &func.(&col.) from &tab; Введите значение для func: max Введите значение для col: sal Введите значение для tab: emp прежний 1: select &func.(&col.) from &tab новый 1: select max(sal) from emp  MAX(SAL) --------- 5000 

SQL> define emp = dept SQL> select * from &tab; Введите значение для tab: &emp прежний   1: select * from &tab новый   1: select * from &emp SP2-0552: Переменная привязки "EMP" не описана. 

Подстановка без повторного запроса

SQL> select max(&col), avg(&col), min(&col) from &tab; Введите значение для col: sal Введите значение для col: sal Введите значение для col: sal Введите значение для tab: emp прежний 1: select max(&col), avg(&col), min(&col) from &tab новый 1: select max(sal), avg(sal), min(sal) from emp  MAX(SAL)   AVG(SAL)   MIN(SAL) ---------- ---------- ---------- 5000 2073,21429        800 

SQL> c /(&col/(&&col 1* select max(&&col), avg(&col), min(&col) from &tab SQL> c /(&col/(&&col 1* select max(&&col), avg(&&col), min(&col) from &tab SQL> c /(&col/(&&col 1* select max(&&col), avg(&&col), min(&&col) from &tab SQL> / Введите значение для col: sal Введите значение для tab: emp прежний 1: select max(&&col), avg(&&col), min(&&col) from &tab новый 1: select max(sal), avg(sal), min(sal) from emp  MAX(SAL)   AVG(SAL)   MIN(SAL) ---------- ---------- ---------- 5000 2073,21429        800 

Подстановка параметров командных файлов

SQL> clear buffer buffer очищена SQL> input 1 select &1 from &2 2 . SQL> save f:\subst.sql Создано файл f:\subst.sql SQL> @f:\subst max(sal) emp прежний   1: select &1 from &2 новый   1: select max(sal) from emp  MAX(SAL) ---------- 5000 SQL> @f:\subst прежний 1: select &1 from &2 новый 1: select max(sal) from emp  MAX(SAL) ---------- 5000 SQL> undef 1 2 SQL> @f:\subst Введите значение для 1: min(sal) Введите значение для 2: emp прежний   1: select &1 from &2 новый   1: select min(sal) from emp  MIN(SAL) ---------- 800 

Ограничения

Системные переменные, влияющие на подстановку

Взаимодействие с пользователем

Команда PROMPT

<команда PROMPT> ::=

PRO[MPT] [<текст>]

Команда ACCEPT

<команда ACCEPT> ::=

ACC[EPT] <имя переменной> [<тип переменной>]
  [FOR[MAT] <формат>] [DEF[AULT] <стандартное значение>]
  [<приглашение>] [HIDE]

<тип переменной> ::=

NUM[BER] / CHAR / DATE

<приглашение> ::=

PROMPT <текст> / NOPR[OMPT]

REM splus1.sql - пример диалога с пользователем prompt prompt Input department number (10, 20, 30) accept dept_number number prompt 'Dept. #: '  select * from dept where deptno = &dept_number; 

SQL> @f:\usr\doc\orasdev\splus1  Input department number (10, 20, 30) Dept. #: q SP2-0425: "q" не является допустимым числом Dept. #: 10 прежний 2: where deptno = &dept_number новый 2: where deptno = 10  DEPTNO DNAME          LOC ---------- -------------- ------------- 10 ACCOUNTING     NEW YORK  

Команда PAUSE

<команда PAUSE> ::=

PAU[SE] [<текст>]

set verify off prompt Input department number (10, 20, 30) accept dept_number number prompt 'Dept. #: ' pause Press Enter to view results  select * from dept where deptno = &dept_number; 

SQL> @f:\splus1 Input department number (10, 20, 30) Dept. #: 30 Press Enter to view results   DEPTNO DNAME          LOC ---------- -------------- ------------- 30 SALES          CHICAGO 

Команда VARIABLE

<команда VARIABLE> ::=

VAR[IABLE] [<имя переменной> [<тип данных>]]

<тип данных> ::=

NUMBER
  / CHAR [(<количество> [<единица измерения>])]
  / NCHAR [(<количество>)]
  / VARCHAR2 (<количество> [<единица измерения>])
  / NVARCHAR2 (<количество>)   / CLOB
  / NCLOB
  / REFCURSOR

<единица измерения> ::=

CHAR / BYTE

SQL> var SP2-0568: Не объявлены переменные привязки. SQL> var dep number SQL> begin 2  select deptno into :dep from emp 3  where sal = (select max(sal) from emp); 4  end; SQL> /  Процедура PL/SQL успешно завершена.  SQL> select * from dept where deptno = :dep;  DEPTNO DNAME          LOC ---------- -------------- ------------- 10 ACCOUNTING     NEW YORK  SQL> var dep2 number SQL> c /:dep/:dep2 1* select * from dept where deptno = :dep2 SQL> /  строки не выбраны  SQL> var переменная   dep тип данных   NUMBER  переменная   dep2 тип данных   NUMBER 

SQL> set autoprint on SQL> var a refcursor; SQL> begin 2  open :a for select * from dept; 3  end; 4  /  Процедура PL/SQL успешно завершена.   DEPTNO DNAME          LOC ---------- -------------- ------------- 10 ACCOUNTING     NEW YORK 20 RESEARCH       DALLAS 30 SALES          CHICAGO 40 OPERATIONS     BOSTON 50 TRAINING       KIEV  SQL> exec open :a for select ename, sal from emp where deptno = :dep;  Процедура PL/SQL успешно завершена.   DEP ---------- 10     ENAME             SAL ---------- ---------- CLARK            2450 KING             5000 MILLER           1300 

Команда PRINT

<команда PRINT> ::=

PRI[NT] { <имя переменной>}

SQL> print a SP2-0625: Ошибка печати переменной "a" SQL> print  DEP ---------- 10   DEP2 ----------   SP2-0625: Ошибка печати переменной "a" SQL> set autoprint off SQL> exec open :a for select ename,sal,comm from emp where deptno=:dep;  Процедура PL/SQL успешно завершена.  SQL> print dep a  DEP ---------- 10  ENAME             SAL       COMM ---------- ---------- ---------- CLARK            2450 KING             5000 MILLER           1300 

SQL> set autotrace on SP2-0613: Невозможно проверить формат или существование PLAN_TABLE SP2-0611: Ошибка разблокирования EXPLAIN report SP2-0618: Невозможно найти Идентификатор Сеанса.        Проверьте, разрешена ли роль PLUSTRACE SP2-0611: Ошибка разблокирования STATISTICS report 

SQL> @g:\oracle\ora81\rdbms\admin\utlxplan  Таблица создана. 

SQL> connect system/manager as sysdba Соединено. SQL> @g:\oracle\ora81\sqlplus\admin\plustrce SQL> SQL> drop role plustrace; drop role plustrace * ошибка в строке 1: ORA-01919: роль 'PLUSTRACE' не существует   SQL> create role plustrace;  Роль создана.  SQL> SQL> grant select on v_$sesstat to plustrace;  Привилегии предоставлены.  SQL> grant select on v_$statname to plustrace;  Привилегии предоставлены.  SQL> grant select on v_$session to plustrace;  Привилегии предоставлены.  SQL> grant plustrace to dba with admin option;  Привилегии предоставлены.  SQL> set echo off 

SQL> grant plustrace to scott;  Привилегии предоставлены. 

SQL> connect scott/tiger Соединено. SQL> set autotrace on SQL> set pagesize 25 SQL> select ename, dname, sal 2  from emp, dept 3  where emp.deptno = dept.deptno;  ENAME      DNAME                 SAL ---------- -------------- ---------- SMITH      RESEARCH              800 ALLEN      SALES                1600 WARD       SALES                1250 JONES      RESEARCH             2975 MARTIN     SALES                1250 BLAKE      SALES                2850 CLARK      ACCOUNTING           2450 SCOTT      RESEARCH             3000 KING       ACCOUNTING           5000 TURNER     SALES                1500 ADAMS      RESEARCH             1100 JAMES      SALES                 950 FORD       RESEARCH             3000 MILLER     ACCOUNTING           1300  14 строк выбрано.   План выполнения ---------------------------------------------------------- 0      SELECT STATEMENT Optimizer=CHOOSE (Cost=3 Card=2 Bytes=88) 1    0   HASH JOIN (Cost=3 Card=2 Bytes=88) 2    1     TABLE ACCESS (FULL) OF 'DEPT' (Cost=1 Card=4 Bytes=44) 3    1     TABLE ACCESS (FULL) OF 'EMP' (Cost=1 Card=41 Bytes=1353)   Статистика ---------------------------------------------------------- 62  recursive calls 8  db block gets 6  consistent gets 0  physical reads 0  redo size 1267  bytes sent via SQL*Net to client 424  bytes received via SQL*Net from client 2  SQL*Net roundtrips to/from client 2  sorts (memory) 0  sorts (disk) 14  rows processed 

Команда SET

<команда SET> ::=

SET <системная переменная> <значение>

SQL> set time on 16:43:39 SQL> set timing on 16:43:43 SQL> set underline off 16:43:55 SQL> set pagesize 1000 16:44:02 SQL> set linesize 128 16:44:12 SQL> select * from dept 16:44:18   2  ;  DEPTNO DNAME          LOC 10 ACCOUNTING     NEW YORK 20 RESEARCH       DALLAS 30 SALES          CHICAGO 40 OPERATIONS     BOSTON 50 TRAINING       KIEV  Затрач.время: 00:00:00.80 16:44:20 SQL>