1
sqlplusでsqlファイルを実行しようとしています。このSQLファイルは、パッケージといくつかのストアドプロシージャをデータベースに追加するだけです。これは、仕様/本体分離規約を使用して記述されています。しかし、パッケージ宣言部には問題があり、ボディ部が故障することがあります。実際、「結合変数」の部分も関連性があるかどうかはわかりません。どんな助けでも感謝します、ありがとう。バインド変数 "D"が宣言されていません
私は、問題はおそらく以下のこれらの行から茎と信じて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.
両方のエラーは、78行目、つまり私たちに表示されていないコードで起きているようです...正しく終了しない別のPL/SQLブロックですか？ –
確かに、私はそれが関係しているとは思わなかったが、今の場合に追加する。私はライン78の前に他のコードが正しくフォーマットされていることを確信しています（独立してテストしました） –