我正在尝试在sqlplus中运行sql文件。这个sql文件只是将一个包和一些存储过程添加到数据库中。它是使用规范/体分离约定编写的。但是，看起来包装声明部分存在问题，导致身体部分失败。事实上，我不确定“绑定变量”部分是否相关。任何帮助将不胜感激，谢谢。
SQL*Plus: Release 11.2.0.3.0 Production on Wed Dec 20 11:41:36 2017
Copyright (c) 1982, 2011, Oracle. All rights reserved.
Connected to:
Oracle Database 11g Enterprise Edition Release 11.2.0.4.0 - 64bit Production
With the Partitioning, Automatic Storage Management, OLAP, Data Mining
and Real Application Testing options
SQL> set timing on;
SQL> set exitcommit off;
SQL>
SQL> REM Output Log
SQL> REM All script output is SPOOLed here.
SQL> REM Recommend not to change or use SPOOL in other locations
SQL> REM If you do break the spool chain, then consider using SPOOL APPEND to reestablish
SQL>
SQL> PROMPT ------------------------------------------------------------;
------------------------------------------------------------
SQL> PROMPT PROCESSING: D:\ucd-agent\var\work\devops.urbancode.db.ServerRegistry-OracleScripts\1.0.0.31-a23aaeb-workdir\IT\Create_table.sql;
PROCESSING: D:\ucd-agent\var\work\devops.urbancode.db.ServerRegistry-OracleScripts\1.0.0.31-a23aaeb-workdir\IT\Create_table.sql
SQL> PROMPT ------------------------------------------------------------;
------------------------------------------------------------
SQL> PROMPT COMMAND: @"D:\ucd-agent\var\work\devops.urbancode.db.ServerRegistry-OracleScripts\1.0.0.31-a23aaeb-workdir\IT\Create_table.sql" ;
COMMAND: @"D:\ucd-agent\var\work\devops.urbancode.db.ServerRegistry-OracleScripts\1.0.0.31-a23aaeb-workdir\IT\Create_table.sql"
SQL> TIMING START;
SQL> @"D:\ucd-agent\var\work\devops.urbancode.db.ServerRegistry-OracleScripts\1.0.0.31-a23aaeb-workdir\IT\Create_table.sql" ;
SQL> DECLARE
2 L_CNT PLS_INTEGER;
3 lv_stmt varchar2(32767);
4 BEGIN
5 --Check if the table already exists
6 SELECT COUNT(0)
7 INTO L_CNT
8 FROM ALL_TABLES T
9 WHERE T.TABLE_NAME = 'DEVOPS_UC_SERVER_REG_TABLE'
10 AND T.OWNER = 'IT';
11 IF L_CNT > 0 THEN
12 dbms_output.put_line('The table already exists');
13 RETURN;
14 END IF;
15
16 --Check if the constraint already exists
17 SELECT COUNT(0)
18 INTO L_CNT
19 FROM ALL_CONSTRAINTS C
20 WHERE C.CONSTRAINT_NAME = 'DEVOPS_UC_Server_Reg_PKEY'
21 AND C.OWNER = 'IT';
22 IF L_CNT > 0 THEN
23 dbms_output.put_line('The primary key constraint already exists');
24 RETURN;
25 END IF;
26
27 dbms_output.put_line('Creating table...');
28
29
30 /*
31 this code is auto-generated from DBMS_METADATA. It was accessed using the following query:
32
33 SELECT
34 DBMS_METADATA.GET_DDL( 'TABLE','DEVOPS_UC_SERVER_REG_TABLE','IT')
35 FROM DUAL;
36
37 so long as the tables do not exist, and the PRIMARY KEY NAME does not already exist
38 then this will create the table with the primary key constraint.
39 otherwise, you will run into ORA-0095: name already used by existing object (if table exists)
40 or ORA-02264: name already used by an existing constraint
41 TODO: make the table name and primary key constraint name variables for ease of use/robustness
42 */
43 lv_stmt:=q'[
44 CREATE TABLE "IT"."DEVOPS_UC_SERVER_REG_TABLE"
45 ( "AGENTNAME" VARCHAR2(100 CHAR) NOT NULL ENABLE,
46 "SERVERNAME" VARCHAR2(100 CHAR) NOT NULL ENABLE,
47 "DATELASTDEPLOYED" TIMESTAMP (6) WITH TIME ZONE,
48 "TECHNOLOGY" VARCHAR2(100 CHAR) NOT NULL ENABLE,
49 "ISSETUP" VARCHAR2(10 CHAR),
50 CONSTRAINT "DEVOPS_UC_Server_Reg_PKEY" PRIMARY KEY ("AGENTNAME", "SERVERNAME", "TECHNOLOGY")
51 USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 COMPUTE STATISTICS
52 STORAGE(INITIAL 65536 NEXT 1048576 MINEXTENTS 1 MAXEXTENTS 2147483645
53 PCTINCREASE 0 FREELISTS 1 FREELIST GROUPS 1
54 BUFFER_POOL DEFAULT FLASH_CACHE DEFAULT CELL_FLASH_CACHE DEFAULT)
55 TABLESPACE "IT" ENABLE
56 ) SEGMENT CREATION IMMEDIATE
57 PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255
58 NOCOMPRESS LOGGING
59 STORAGE(INITIAL 65536 NEXT 1048576 MINEXTENTS 1 MAXEXTENTS 2147483645
60 PCTINCREASE 0 FREELISTS 1 FREELIST GROUPS 1
61 BUFFER_POOL DEFAULT FLASH_CACHE DEFAULT CELL_FLASH_CACHE DEFAULT)
62 TABLESPACE "IT" ]';
63
64 execute immediate lv_stmt;
65 dbms_output.put_line('Table created successfully');
66
67 END;
68 COMMIT;
69 PROMPT ;
70 PROMPT STATUS: SUCCESS;
71 TIMING STOP;
72 PROMPT ;
73 PROMPT ------------------------------------------------------------;
74 PROMPT PROCESSING: D:\ucd-agent\var\work\devops.urbancode.db.ServerRegistry-OracleScripts\1.0.0.31-a23aaeb-workdir\IT\UC_Server_Reg.pck.sql;
75 PROMPT ------------------------------------------------------------;
我认为这个问题可能源于以下几行：
76 PROMPT COMMAND: @"D:\ucd-agent\var\work\devops.urbancode.db.ServerRegistry-OracleScripts\1.0.0.31-a23aaeb-workdir\IT\UC_Server_Reg.pck.sql" ;
77 TIMING START;
78 @"D:\ucd-agent\var\work\devops.urbancode.db.ServerRegistry-OracleScripts\1.0.0.31-a23aaeb-workdir\IT\UC_Server_Reg.pck.sql" ;
78 create or replace package it.DEVOPS_UC_SERVER_REGISTRY is
79
80
81 PROCEDURE RetrieveUCServerRegTable
82 (
83 RC1 IN OUT SYS_REFCURSOR
84 );
85
86 PROCEDURE ExtraStoredProc
87 (
88 RC2 IN OUT SYS_REFCURSOR
89 );
90
91 PROCEDURE ExtraStoredProc2
92 (
93 RC2 IN OUT SYS_REFCURSOR
94 );
95
96 PROCEDURE InsertUCServerRegistryEntry
97 (
98 inAgentName IN VARCHAR,
99 inIsSetup IN VARCHAR,
100 inServerName IN VARCHAR,
101 inTechnology IN VARCHAR
102 );
103
104 end;
105 /
SP2-0552: Bind variable "D" not declared.
Elapsed: 00:00:00.00
SQL>
SQL> show errors
No errors.
SQL>
SQL> CREATE OR REPLACE PACKAGE BODY IT.DEVOPS_UC_SERVER_REGISTRY AS
2
3 PROCEDURE RetrieveUCServerRegTable
4 (
5 RC1 IN OUT SYS_REFCURSOR
6
7 )
8 IS
9 BEGIN
10 OPEN RC1 FOR
11 SELECT *
12 FROM it.DEVOPS_UC_SERVER_REG_TABLE ;
13 END RetrieveUCServerRegTable;
14
15 PROCEDURE ExtraStoredProc
16 (
17 RC2 IN OUT SYS_REFCURSOR
18
19 )
20 IS
21 BEGIN
22 OPEN RC2 FOR
23 SELECT *
24 FROM it.DEVOPS_UC_SERVER_REG_TABLE
25 WHERE agentName='appsrvdev11.otpp.com';
26 END ExtraStoredProc;
27
28 PROCEDURE ExtraStoredProc2
29 (
30 RC2 IN OUT SYS_REFCURSOR
31
32 )
33 IS
34 BEGIN
35 OPEN RC2 FOR
36 SELECT *
37 FROM it.DEVOPS_UC_SERVER_REG_TABLE
38 WHERE agentName='ucdagentdev01.otpp.com';
39 END ExtraStoredProc2;
40
41
42 PROCEDURE InsertUCServerRegistryEntry
43 (
44 inAgentName IN VARCHAR,
45 inIsSetup IN VARCHAR,
46 inServerName IN VARCHAR,
47 inTechnology IN VARCHAR
48 )IS
49
50 BEGIN
51
52 MERGE INTO IT.DEVOPS_UC_SERVER_REG_TABLE
53 USING DUAL ON (IT.DEVOPS_UC_SERVER_REG_TABLE.agentName = inAgentName AND serverName = inServerName AND
54 technology = inTechnology)
55 WHEN MATCHED THEN
56 UPDATE SET DATELASTDEPLOYED = SYSDATE,
57 isSetup = inIsSetup
58 WHEN NOT MATCHED THEN
59 INSERT( agentName, isSetup, serverName , TechnoLOGY, DATELASTDEPLOYED)
60 VALUES( inAgentName, inIsSetup, inServerName, inTechnology, SYSDATE );
61
62
63 END InsertUCServerRegistryEntry;
64 END ;
65 /
Warning: Package Body created with compilation errors.
Elapsed: 00:00:00.45
SQL> show errors
Errors for PACKAGE BODY IT.DEVOPS_UC_SERVER_REGISTRY:
LINE/COL ERROR
-------- -----------------------------------------------------------------
0/0 PL/SQL: Compilation unit analysis terminated
1/17 PLS-00201: identifier 'DEVOPS_UC_SERVER_REGISTRY' must be
declared
1/17 PLS-00304: cannot compile body of 'DEVOPS_UC_SERVER_REGISTRY'
without its specification
SQL> COMMIT;
Commit complete.
答案 0 :(得分：5)
问题在于：
67 END;
68 COMMIT;
你需要一条线上的斜线来终止（和执行）END;（匿名块的第67行）和下一个语句之间的匿名PL / SQL块，在这种情况下COMMIT;（它不是匿名块的一部分，因此也应该在输出中得到自己的SQL>提示符。）