How to pass empty PL/SQL collection?

I can pass an array as PL/SQL associative array into PL/SQL procedure/block.
It works perfectly.
But i can't pass empty array (e.g. new decimal[] {} ) as value - exception raised:
System.InvalidOperationException:
"OracleParameter.Value is invalid"
I can receive empty collection FROM pl/sql, but can i pass empty collection TO pl/sql?

Unfortunately, there are no any suitable workaround for this problem in thread mentioned above.
Workaround given by Greg in the thread:
You can get around it in the meantime by using
Param1.Value = new string[1]{null};
Param1.Size=0;Why is that not suitable?
- Mark

Similar Messages

How to pass arguments to .sql file.......

Hello,
I want to pass arguments to .sql file which is being called from within a shell (.sh).
suppose this is the line in shell -
${ORACLE_HOME}/bin/sqlplus -s abcuser/abcuser@abc < ${ABCDB_DIR}/A.sql $val >>${LOG}
- now I want to pass '123456' to A.sql
Please suggest how to do that.
Thanks and regards,

You can pass parameters to a shell script executing sql commands just like you would any other shell script.
I have a script called test_os_variables.sh:
sqlplus -s "/ as sysdba" << EOF
select '$1' from dual;
EOF
Now I execute my script passing SHAWN as a parameter.
./test_os_variables.sh SHAWN
SQL*Plus: Release 10.2.0.2.0 - Production on Tue Jan 9 08:09:46 2007
Copyright (c) 1982, 2005, Oracle. All Rights Reserved.
Connected to:
Oracle Database 10g Enterprise Edition Release 10.2.0.2.0 - 64bit Production
With the Partitioning, OLAP and Data Mining options
SQL>
'SHAW
SHAWN

Reg: How to Filter from PL/SQL Collection

like SQL queries ...any otherway is there to filter from the PL/SQL collection ( PL/SQL table )...
Edited by: user12159093 on Nov 28, 2010 7:24 PM

LOOP
   IF
   THEN
   END IF
END LOOP
when all else fails Read The Fine Manual
http://download.oracle.com/docs/cd/B19306_01/appdev.102/b14261/toc.htm
http://asktom.oracle.com contains many fine coding examples
Edited by: sb92075 on Nov 28, 2010 7:26 PM

How to pass parameter into sql block?

example code
@script.sql a b c d
Inside script
DECLARE
cursor cur is select col1 from table where col1 in ('a','b','c','d','e');
BEGIN
END;
Not sure 1) The the total number of parameters will be passed at run time
2) Not sure of case, could be lower upper or both....
Please help...

do you have different queries which are defined to use different numbers of parameters, OR (more likely) sometimes you just want to pass less parameters?
sqlplus / @file1 "a" "b" "" "" ""
now I only passed 2 "real" params, and 3 blanks. that way, sqlplus still has the values of &3 - &5 defined, and everything works fine. you'lll need either single or double quotes (or perhaps single quotes within double quotes) depending on your os, version, etc.

How to unit test pl/sql collection in the unit test ?

There is a function SPLIT_LIST (see below) to split a string list to a collection type .
I'm trying to use the SQLP DEVELOPER to do the unit test on this fucntion. The idea is to use lookups to give multiple string list for different inputs such as 'A,B,C' 'D', '', 'EF,,GH'. for multiple tests a time.
the expected result (function returns) are SPLIT_TBL('A','B',C'), SPLIT_TBL('D'), SPLIT_TBL(), SPLIT_TBL('EF','','GH')
But I have problem to use unit test to verify the result based on the lookups as the out put is the collection. anyone has a good idea to do those ?
create or replace TYPE SPLIT_TBL AS TABLE OF VARCHAR2(32767) ;
create or replace
FUNCTION SPLIT_LIST (
P_LIST VARCHAR2,
P_DEL VARCHAR2 DEFAULT ' ' )
RETURN SPLIT_TBL PIPELINED DETERMINISTIC
IS
lv_idx PLS_INTEGER;
lv_list VARCHAR2(32767) := P_LIST;
lv_value VARCHAR2(32767);
BEGIN
LOOP
lv_idx := instr(lv_list,p_del);
IF lv_idx > 0 THEN
PIPE ROW(SUBSTR(lv_list,1,lv_idx-1));
lv_list := SUBSTR(lv_list,lv_idx+LENGTH(p_del));
ELSE
PIPE ROW(lv_list);
EXIT;
END IF;
END LOOP;
RETURN;
END;
/

I'm having a similar problem - have you solved yours yet?
As for me, when I return a collection as an output parameter from a procedure, I can't test the result.
Example: I'm testing a procedure defined like this: Procedure check_this (p_id number, p_result out CompResult)
where CompResult is defined as: create or replace type CompResult is varray(100) of CompObj;
Unit Test understands that the data type of out parameter p_result is CompResult.
It fills in schemaName.CompResult() as the result (empty varray).
Editing of the result does not appear to be allowed - it's read only.
So, when the proc returns a varray that isn't empty, the test fails.

How to pass date in SQL Report

Hi All,
I am trying to create a SQL report which contains the following in the where clause:
and A.RESP_DATE >= to_date('01/01/2010','MM/DD/YYYY')
BIP does not seem to like this and is not processing the report. If I remove this clause the report is running but I want to limit the number of records that are being returned.
I wanted to find out which date format should be used to pass the SQL query.
TIA,
Ramkumar

Hi ,
where clause with date will wrk in bip.
Check the same query in sql..if it is wrking means it will wrk here also.
(A.RESP_DATE) whats ur actuall format of this column.
Thanks,
Ananth

How to pass values to SQL server Agent Job which internally calls SSIS

Hi,
I have a requirement where i need to call remotely SSIS package from ASPX. After following MSDN form, I have creaed one SQL server agent job and calling that job from ASPX. I am ablt call SQL server agent job from ASPX. Only issue i am facing is: I need
to pass 2 variables from ASPX to SQL Agent job so that from Job i can map the same to SSIS Package.
I am using system SP (sp_start_job) for calling SQL server agent job as mentioned in MSDN forum.
below is the code , which i am using to call SQL serve agent job.
Code:
SqlConnection
jobConnection;
SqlCommand jobCommand;
SqlParameter jobReturnValue;
SqlParameter jobParameter;
int jobResult;
                jobConnection =
new
SqlConnection("Server=ServerName;Initial
Catalog=msdb;Integrated Security=SSPI;user id=username;Password=password");
                jobCommand =
new
SqlCommand("sp_start_job",
jobConnection);
                jobCommand.CommandType =
CommandType.StoredProcedure;
                jobReturnValue =
new
SqlParameter("@RETURN_VALUE",
SqlDbType.Int);
                jobReturnValue.Direction =
ParameterDirection.ReturnValue;
                jobCommand.Parameters.Add(jobReturnValue);
                jobParameter =
new
SqlParameter("@job_name",
SqlDbType.VarChar);
                jobParameter.Direction =
ParameterDirection.Input;
                jobCommand.Parameters.Add(jobParameter);
                jobParameter.Value =
"ImportCMTData";
                jobConnection.Open();
                jobCommand.ExecuteNonQuery();
                jobResult = (
Int32)jobCommand.Parameters["@RETURN_VALUE"].Value;
                jobConnection.Close();
switch (jobResult)
case 0:
Console.WriteLine("SQL
Server Agent job, RunSISSPackage, started successfully.");
break;
default:
Console.WriteLine("SQL
Server Agent job, RunSISSPackage, failed to start.");
break;
Console.Read();
Thanks
Pankaj

"3-4 concurrent users are calling the SSIS package from ASPX page" this is not a proper design
If the data is being ingested than it is likely that this concurrency will lead to one of the packages die
What you shell do is to just queue the data ingress/processing.
In general, again, packages should not be called from ASP web pages, SSIS is ETL-server side technology there is nothing signalling back to the user whether it was successful. The proper way is to write a REST service or alike.
Arthur
MyBlog
Twitter

How to pass parameter in sql developer for debubing record type

DECLARE
IB_BP_BANK_ACCOUNT_BUF PL/SQL RECORD; ---record type
IP_BP_ID NUMBER;
IOP_ACC_SEQ_NO NUMBER;
OP_ERROR VARCHAR2(200);
BEGIN
IB_BP_BANK_ACCOUNT_BUF := NULL;
IP_BP_ID := NULL;
IOP_ACC_SEQ_NO := NULL;
ORAGTW11.MAINTAIN_BP_BANK(
    IB_BP_BANK_ACCOUNT_BUF => IB_BP_BANK_ACCOUNT_BUF,
    IP_BP_ID => IP_BP_ID,
    IOP_ACC_SEQ_NO => IOP_ACC_SEQ_NO,
    OP_ERROR => OP_ERROR
/* Legacy output:
DBMS_OUTPUT.PUT_LINE('IOP_ACC_SEQ_NO = ' || IOP_ACC_SEQ_NO);
:IOP_ACC_SEQ_NO := IOP_ACC_SEQ_NO;
/* Legacy output:
DBMS_OUTPUT.PUT_LINE('OP_ERROR = ' || OP_ERROR);
:OP_ERROR := OP_ERROR;
END;

Something like this:
Assuming you have a procedure like this:
CREATE OR REPLACE PROCEDURE abc (p_emp emp%ROWTYPE)
IS
BEGIN
   DBMS_OUTPUT.put_line (p_emp.empno);
END;
Then you have to call it from a PL/SQL Block in this way i.e.:
DECLARE
v_emp emp%ROWTYPE;
BEGIN
SELECT *
    INTO v_emp
    FROM emp
   WHERE ROWNUM<=1;
   abc(v_emp);
END;
Regards.
Al

How to pass parameters to sql agent job run configured ssis package

Hi all,
I have a big problem at my small project.
I build my SSIS package that get its variables values from a configuration file..
and when i build a SQL agent job to run this package in a schedule i set the values of variables in it .. but in run-time the package still get its parameters from the configuration file !??
any help please ?

>SQL agent job to run this package in a schedule i set the values of variables in it
One way, setup a configuration table for the package. Let the package read the values for the variables from there.
Kalman Toth Database & OLAP Architect
SQL Server 2014 Design & Programming
New Book / Kindle: Exam 70-461 Bootcamp: Querying Microsoft SQL Server 2012

How to pass an array of values to a view criteria

Hi all,
How to pass mutiple values as array into a view criteria.I want to search
based on mutiple values.
Please help.
Thanks

Swapna wrote:
I have a search panel with mutilselect combobox for attributes "a","b", & "c".
Based on selction"a" ,I need to filter the comboboxes "b" and "c".
This's the requirement.I'm not sure that I understand your question. Are you saying that you have three different controls in your UI? Or one control that has three possible values?
Assuming that you have one control with three possible values, if "a" is selected, does that mean that you want all rows where some column has a value of "a"? Or does that mean that you want all rows where that column does not have a value of "a"? Or does that mean that you want all rows where that column has a value of "b" or "c" (note that the last two may be different if the column allows NULL values).
What language is your application written in? What framework/ library are you using to access the database? Are you passing a PL/SQL collection of selected values?
Justin

Passing Parameter in SQL

How to Passing parameter in SQL.For Example,Table name=&From_Clause.It will asking table name at runtime.How to assign table name based on user.

Hi,
796776 wrote:
It will returm error.what problem in this
Select * From Emp a,
(SELECT CASE
WHEN USER = :UserType
THEN 'scott.Dept'
ELSE 'scott.order'
END AS b
FROM dual)
Where a.DeptNo= b.DeptNo &WhereClauseIt's hard to guess, from an example like this with so many errors, exactly what you're trying to do.
Please post a description of the problem, including CREATE TABLE and INSERT statments for any tables you need (unless you can state the problem using commonly available tables, such as those in the data dictionary or the scott schema), a few values of a parameter (or examples of different user names, if USER acts like a parameter) and the results you want from the same data for each value.
For example
"In addition to the scott.dept table, I have a table called my_dept: CREATE TABLE my_dept ...
which has this data: INSERT INTO my_dept ...
I need a script such that, when user scott runs it, the results are ...
but when any other user runs it, the results are ..
As you can see, the difference is ..."
Table names must be explicitly given when a SQL statement is compiled. That's why I usggested a preliminary query; so by the time you compiled the main query, the table name would be known and could be passed in a substitution variable.
If you really want to do it in one query, you can do a UNION of two queries, one of which returns nothing because of the parameter. It's not very efficient.

How to pass a parameter into a select statement using a bulk collect

Using a cursors I can use execute immediate to pass a parameter to specify a table name.
I have modified the procedure not to use the cursor. I am using a collection using a bulk insert into a nested table. How can I specify the table the table name as a parameter without using the execute immediate statement.
Thank you

Hi Donald,
The functionality of using a parameter in a function is only available in the formula editor and not in SQL Expression. Parameters cannot be passed to the SQL Expression, the main purpose of the SQL Expression is to make use of Database functions to make calculations at the database level but the current functionality of the product only allows you to use Database fields.
There is an article that talks on SQL Expressions and can be useful http://technicalsupport.businessobjects.com/KanisaSupportSite/search.do?cmd=displayKC&docType=kc&externalId=c2016184&sliceId=&dialogID=6018612&stateId=1%200%206020316
Regards,
Vinay

How to Pass String array from Java to PL/SQL and this use in CURSOR

hi,
I cant understand how to pass Array String as Input Parameter to the Procedure and this array use in Cursor for where condition like where SYMPTOM in( ** Array String **).
This array containing like (SYMPTOM ) to be returned from the java to the
pl/sql (I am not querying the database to retrieve the information).
I cannot find an example on this. I will give the PL/SQL block
create or replace procedure DISEASE_DTL<*** String Array ***> as
v_SYMPTOM number(5);
CURSOR C1 is
select distinct a.DISEASE_NAME from SYMPTOM_DISEASE_RD a
where ltrim(rtrim(a.SYMPTOM)) in ('Fever','COUGH','Headache','Rash') ------- ***** Here use this array element(like n1,n2,n3,n4,n5..) ******
group by a.DISEASE_NAME having count(a.DISEASE_NAME) > 3 ----------- ***** 3 is no of array element - 1 (i.e( n - 1))*****
order by a.DISEASE_NAME ;
begin
for C1rec IN C1 loop
select count(distinct(A.SYMPTOM)) into v_SYMPTOM from SYMPTOM_DISEASE_RD a where A.DISEASE_NAME = C1rec.DISEASE_NAME;
insert into TEMP_DISEASE_DTLS_SYMPTOM_RD
values (SL_ID_SEQ.nextval,
C1rec.DISEASE_NAME,
(4/v_SYMPTOM), --------**** 4 is no of array element (n)************
(1-(4/v_SYMPTOM)));
end loop;
commit;
end DISEASE_DTL;
Please give the proper solution and step ..
Thanking you,
Asish

I've haven't properly read through your code but here's an artificial example based on a sql collection of object types - you don't need that, you just need a type table of varchar2 rather than a type table of oracle object type:
http://orastory.wordpress.com/2007/05/01/upscaling-your-jdbc-app/

How to pass a structure in PL/SQL external proc.

This is for educational purpose only. I am trying to implement kernel32.dll and shell32.dll in PL/SQL using external proc. Everything is working fine, except When there is a structure in OUT parameter.
My database version.
SQL> SELECT * FROM v$version;
BANNER
Oracle Database 10g Enterprise Edition Release 10.2.0.3.0 - Prod
PL/SQL Release 10.2.0.3.0 - Production
CORE    10.2.0.3.0      Production
TNS for 32-bit Windows: Version 10.2.0.3.0 - Production
NLSRTL Version 10.2.0.3.0 - ProductionI have set up the listner.ora and tnsnames.ora and written a package called dbms_kernel32sb.
There are 9 program units.
1. CreateFile -- working fine
2. CloseFile -- working fine
3. GetSize -- working fine
4. FindFirstFile -- NOT working, because one OUT parameter has the structure type WIN32_FIND_DATA.
5. GetFileTime -- NOT working, because one OUT parameter has the structure type FILETIME
6. GetDiskFreeSpace -- working fine
7. GetDriveType -- working fine.
8. GetLastError -- working fine
9. ExecuteCommand -- working fine.
Here is the package specification:
CREATE OR REPLACE PACKAGE dbms_kernel32sb AS
    Name: dbms_kernel32sb.pks
    Author: Saubhik Banerjee
    Date: 24th Jan 2011
    Version: 1.0
    Comment: This package is to implement some functionality from kernel32.dll.
             Usng extproc
OPEN_EXISTING_FILE CONSTANT PLS_INTEGER :=3;
FILE_ATTRIBUTE_NORMAL CONSTANT PLS_INTEGER :=128;
DISABLE_FILE_SHARE_MODE CONSTANT PLS_INTEGER :=0;
NO_FILE_SECURITY_ATTRIBUTE CONSTANT PLS_INTEGER :=0;
NO_TEMPLATE_FILE CONSTANT PLS_INTEGER :=0;
GENERIC_FILE_ACCESS CONSTANT PLS_INTEGER :=0;
FILE_SIZE_HIGH CONSTANT PLS_INTEGER :=400000000;
EXECUTE_FILE CONSTANT VARCHAR2(4):='open';
PRINT_FILE CONSTANT VARCHAR2(5):='print';
NO_PARAMATER CONSTANT VARCHAR2(2):=' ';
FUNCTION CreateFile(pi_FileName VARCHAR2 --1, File name
            ,pi_DesiredAccess BINARY_INTEGER --2, Type of access required (read/write ect)
            ,pi_ShareMode BINARY_INTEGER --3, share mode
            ,pi_SecurityAttributes BINARY_INTEGER --4, securoty attribute
            ,pi_CreationDisposition BINARY_INTEGER --5, open existing, create new etc
            ,pi_FlagsAndAttributes BINARY_INTEGER --6, File attribute- normal
            ,pi_TemplateFile BINARY_INTEGER) --Not required.
    Return BINARY_INTEGER;
FUNCTION CloseFile (pi_FileHandle BINARY_INTEGER)
                     Return BINARY_INTEGER;
FUNCTION GetSize (pi_FileHandle BINARY_INTEGER,
                   pio_FileSizeHigh IN OUT BINARY_INTEGER)
               RETURN BINARY_INTEGER;
FUNCTION FindFirstFile ( pi_FileName VARCHAR2
                         ,pio_Win32_Find_data OUT
                             WIN32_FIND_DATA
RETURN BINARY_INTEGER;
FUNCTION GetFileTime ( pi_FileHandle BINARY_INTEGER
                       ,pio_FileCreationTime IN OUT FILETIME
                       ,pio_LastAccessTime   IN OUT FILETIME
                       ,pio_LastWriteTime    IN OUT FILETIME
RETURN BINARY_INTEGER;
FUNCTION GetDiskFreeSpace ( pi_RootPathName VARCHAR2
                            ,pio_SectorsPerCluster OUT BINARY_INTEGER
                            ,pio_BytesPerSector   OUT BINARY_INTEGER
                            ,pio_NumberOfFreeClusters OUT BINARY_INTEGER
                            ,pio_TotalNumberOfClusters OUT BINARY_INTEGER
RETURN BINARY_INTEGER;
FUNCTION GetDriveType( pi_driveLetter VARCHAR2) RETURN VARCHAR2;
FUNCTION GetLastError RETURN BINARY_INTEGER;
FUNCTION ExecuteCommand ( pi_OperationType VARCHAR2
                          ,pi_FileName VARCHAR2
                          ,pi_Parameters VARCHAR2
                          ,pi_DefaultDirectory VARCHAR2
RETURN VARCHAR2;
END dbms_kernel32sb;
Here is the package body:
CREATE OR REPLACE PACKAGE BODY dbms_kernel32sb AS
/* Name: dbms_kernel32sb.pkb
    Author: Saubhik Banerjee
    Date: 24th Jan 2011
    Version: 1.0
    Comment: This package is to implement some functionality from kernel32.dll.
             Usng extproc
FUNCTION
CreateFile( pi_FileName VARCHAR2 --1
            , pi_DesiredAccess BINARY_INTEGER --2
            , pi_ShareMode BINARY_INTEGER --3
            , pi_SecurityAttributes BINARY_INTEGER --4
            , pi_CreationDisposition BINARY_INTEGER --5
            , pi_FlagsAndAttributes BINARY_INTEGER --6
            , pi_TemplateFile BINARY_INTEGER) --7
    Return BINARY_INTEGER IS EXTERNAL LIBRARY kernel32 Name "CreateFileA"
    PARAMETERS( pi_FileName STRING
               , pi_DesiredAccess long
               , pi_ShareMode long
               , pi_SecurityAttributes long
               , pi_CreationDisposition long
               , pi_FlagsAndAttributes long
               , pi_TemplateFile long
               , return long);
FUNCTION CloseFile (pi_FileHandle BINARY_INTEGER)
                     Return BINARY_INTEGER
     IS EXTERNAL
     LIBRARY kernel32 Name "CloseHandle"
     PARAMETERS (pi_FileHandle long, return long);
FUNCTION GetSize (pi_FileHandle BINARY_INTEGER,
                   pio_FileSizeHigh IN OUT BINARY_INTEGER)
               RETURN BINARY_INTEGER
     IS EXTERNAL
    LIBRARY kernel32 NAME "GetFileSize"
    PARAMETERS (pi_FileHandle long, pio_FileSizeHigh long, return long );
FUNCTION GetFileTime ( pi_FileHandle BINARY_INTEGER
                       ,pio_FileCreationTime IN OUT FILETIME
                       ,pio_LastAccessTime   IN OUT FILETIME
                       ,pio_LastWriteTime    IN OUT FILETIME
   RETURN BINARY_INTEGER
     IS EXTERNAL
    LIBRARY kernel32 NAME "GetFileTime"
    WITH CONTEXT
    PARAMETERS ( CONTEXT,
                  pi_FileHandle long
                , pio_FileCreationTime OCIColl
                , pio_FileCreationTime INDICATOR SHORT
                , pio_LastAccessTime OCIColl
               , pio_LastAccessTime INDICATOR SHORT
                , pio_LastWriteTime OCIColl
                , pio_LastWriteTime INDICATOR SHORT
                , return long );
FUNCTION FindFirstFile ( pi_FileName VARCHAR2
                         ,pio_Win32_Find_data OUT
                             WIN32_FIND_DATA
RETURN BINARY_INTEGER
IS EXTERNAL
    LIBRARY kernel32 NAME "FindFirstFileA"
    --WITH CONTEXT
    PARAMETERS
                ( --CONTEXT,
                 pi_FileName STRING--, pi_FileName INDICATOR SHORT
                , pio_Win32_Find_data BY REFERENCE OCIColl--,pio_Win32_Find_data INDICATOR long
                , return long );
FUNCTION GetDiskFreeSpace ( pi_RootPathName VARCHAR2
                            ,pio_SectorsPerCluster OUT BINARY_INTEGER
                            ,pio_BytesPerSector   OUT BINARY_INTEGER
                            ,pio_NumberOfFreeClusters OUT BINARY_INTEGER
                            ,pio_TotalNumberOfClusters OUT BINARY_INTEGER
RETURN BINARY_INTEGER
IS EXTERNAL
    LIBRARY kernel32 NAME "GetDiskFreeSpaceA"
    PARAMETERS ( pi_RootPathName STRING
                , pio_SectorsPerCluster BY REFERENCE long
                , pio_BytesPerSector BY REFERENCE long
                , pio_NumberOfFreeClusters BY REFERENCE long
                , pio_TotalNumberOfClusters BY REFERENCE long
                , return long );
FUNCTION GetDriveTypeA( pi_driveLetter VARCHAR2) RETURN BINARY_INTEGER
IS EXTERNAL
LIBRARY kernel32 NAME "GetDriveTypeA"
PARAMETERS (pi_driveLetter STRING, RETURN long);
FUNCTION GetDriveType( pi_driveLetter VARCHAR2) RETURN VARCHAR2 IS
BEGIN
CASE GetDriveTypeA(pi_driveLetter)
   WHEN 2 THEN RETURN 'Removable';
   WHEN 3 THEN RETURN 'Drive Fixed';
   WHEN 4 THEN RETURN 'Remote';
   WHEN 5 THEN RETURN 'Cd-Rom';
   WHEN 6 THEN RETURN 'Ram disk';
   ELSE RETURN 'Unrecognized';
END CASE;
END;
FUNCTION GetLastError RETURN BINARY_INTEGER
IS EXTERNAL
LIBRARY kernel32 NAME "GetLastError"
PARAMETERS (return long);
FUNCTION ShellExecute( pi_Hwnd BINARY_INTEGER
                      ,pi_Operation VARCHAR2
                      ,pi_FileName VARCHAR2
                      ,pi_Parameters VARCHAR2
                      ,pi_DefaultDirectory VARCHAR2
                      ,pi_ShowCmd BINARY_INTEGER
                      ) RETURN BINARY_INTEGER
IS EXTERNAL
LIBRARY SHELL32 NAME "ShellExecuteA"
PARAMETERS (pi_Hwnd long,pi_Operation STRING,pi_FileName STRING
             ,pi_Parameters STRING,pi_DefaultDirectory STRING
             ,pi_ShowCmd long, return long
FUNCTION ExecuteCommand ( pi_OperationType VARCHAR2
                          ,pi_FileName VARCHAR2
                          ,pi_Parameters VARCHAR2
                          ,pi_DefaultDirectory VARCHAR2
RETURN VARCHAR2 IS
v_return_val BINARY_INTEGER;
BEGIN
v_return_val:= ShellExecute(0,pi_OperationType
                             ,pi_FileName,pi_Parameters
                             ,pi_DefaultDirectory,0
IF v_return_val <=32 THEN
   RETURN 'Error!';
ELSE RETURN 'Success!';
END IF;
END;
END dbms_kernel32sb;
Now the working demos:
SQL> SET SERVEROUT ON
SQL> /* Demo I:- How to obtain file size */
SQL> DECLARE
2    v_FileSize BINARY_INTEGER;
3    v_FileSizeHigh PLS_INTEGER;
4    v_FileHandle BINARY_INTEGER;
5    v_filename VARCHAR2(500) :='C:\test2.csv';
6    v_dummy BINARY_INTEGER;
7 BEGIN
8    v_FileSizeHigh := DBMS_KERNEL32SB.FILE_SIZE_HIGH;
9    v_FileHandle:=DBMS_KERNEL32SB.CreateFile(v_filename -- File name
10                            ,DBMS_KERNEL32SB.GENERIC_FILE_ACCESS
11                            ,DBMS_KERNEL32SB.DISABLE_FILE_SHARE_MODE
12                            ,DBMS_KERNEL32SB.NO_FILE_SECURITY_ATTRIBUT
13                            ,DBMS_KERNEL32SB.OPEN_EXISTING_FILE
14                            ,DBMS_KERNEL32SB.FILE_ATTRIBUTE_NORMAL
15                            ,DBMS_KERNEL32SB.NO_TEMPLATE_FILE);
16   v_FileSize := DBMS_KERNEL32SB.Getsize(v_FileHandle, v_FileSizeHigh)
17   DBMS_OUTPUT.put_line('File Size in Bytes: ' ||v_FileSize);
18   v_dummy:=DBMS_KERNEL32SB.CloseFile(v_FileHandle);
19 END;
20 /
File Size in Bytes: 61
PL/SQL procedure successfully completed.
SQL>
SQL> /* Demo II:- How to find free disk space */
SQL> DECLARE
2    v_rootpath VARCHAR2(500) :='C:\';
3    v_dummy BINARY_INTEGER;
4    v_sectorspercluster BINARY_INTEGER;
5    v_bytespersector BINARY_INTEGER;
6    v_numberoffreeclusters BINARY_INTEGER;
7    v_totalnumberofclusters BINARY_INTEGER;
8    v_freespace NUMBER;
9    v_totalspace NUMBER;
10 BEGIN
11    v_dummy:=DBMS_KERNEL32SB.GetDiskFreeSpace(v_rootpath
12                                              ,v_sectorspercluster
13                                              ,v_bytespersector
14                                              ,v_numberoffreeclusters
15                                              ,v_totalnumberofclusters
16                                              );
17
18    DBMS_OUTPUT.put_line('Sector pre Cluster: ' ||v_sectorspercluster);
19    DBMS_OUTPUT.put_line('Bytes per sector: ' ||v_bytespersector);
20    DBMS_OUTPUT.put_line('Number Of Free Clusters: ' ||v_numberoffreeclusters);
21    DBMS_OUTPUT.put_line('Total Number Of Clusters: ' ||v_totalnumberofclusters);
22    v_freespace:=v_numberoffreeclusters/1024/1024/1024;
23    v_freespace:=ROUND(v_freespace*v_sectorspercluster*v_bytespersector,3);
24    v_totalspace:=v_totalnumberofclusters/1024/1024/1024;
25    v_totalspace:=ROUND(v_totalspace*v_sectorspercluster*v_bytespersector,3);
26    DBMS_OUTPUT.put_line('Total Space (GB):' ||v_totalspace);
27    DBMS_OUTPUT.put_line('Total number of Free space (GB): '||v_freespace );
28 END;
29 /
Sector pre Cluster: 8
Bytes per sector: 512
Number Of Free Clusters: 739477
Total Number Of Clusters: 9765622
Total Space (GB):37.253
Total number of Free space (GB): 2.821
PL/SQL procedure successfully completed.
SQL>
SQL> /* Demo IV:- How to get drive type*/
SQL> SELECT dbms_kernel32sb.GetDriveType('C:\') FROM dual;
DBMS_KERNEL32SB.GETDRIVETYPE('C:\')
Drive Fixed
SQL> SELECT dbms_kernel32sb.GetDriveType('D:\') FROM dual;
DBMS_KERNEL32SB.GETDRIVETYPE('D:\')
Cd-Rom
SQL> SELECT dbms_kernel32sb.GetDriveType('E:\') FROM dual;
DBMS_KERNEL32SB.GETDRIVETYPE('E:\')
Unrecognized
SQL>
SQL> /* Demo V:- How to execute an Operating System Command*/
SQL> DECLARE
2   v_FileToExecute VARCHAR2(20):='test.bat';
3   v_Parameter VARCHAR2(20):='test1.csv';--dbms_kernel32sb.NO_PARAMATER
4   v_DefaultDirectory VARCHAR2(20):='C:\';
5   v_ReturnValue VARCHAR2(20);
6 BEGIN
7    v_ReturnValue:=dbms_kernel32sb.ExecuteCommand(dbms_kernel32sb.EXECUTE_FILE
8                                                  ,v_FileToExecute
9                                                  ,v_Parameter
10                                                  ,v_DefaultDirectory
11                                                  );
12   DBMS_OUTPUT.put_line('Status: '||v_ReturnValue);
13 END;
14 /
Status: Success!
PL/SQL procedure successfully completed.
SQL> Now the sub programs with structures are NOT getting called successfully.
SQL> /* Demo III:- How to obtain file time */
SQL> DECLARE
2    v_FileHandle BINARY_INTEGER;
3    v_filename VARCHAR2(500) :='C:\test2.csv';
4    v_dummy BINARY_INTEGER;
5    v_filecreationtime FILETIME;
6    v_lastaccesstime FILETIME;
7    v_lastwritetime FILETIME;
8    v_err BINARY_INTEGER;
9 BEGIN
10    v_FileHandle:=DBMS_KERNEL32SB.CreateFile(v_filename -- File name
11                            ,DBMS_KERNEL32SB.GENERIC_FILE_ACCESS
12                            ,DBMS_KERNEL32SB.DISABLE_FILE_SHARE_MODE
13                            ,DBMS_KERNEL32SB.NO_FILE_SECURITY_ATTRIBUTE
14                            ,DBMS_KERNEL32SB.OPEN_EXISTING_FILE
15                            ,DBMS_KERNEL32SB.FILE_ATTRIBUTE_NORMAL
16                            ,DBMS_KERNEL32SB.NO_TEMPLATE_FILE);
17   v_dummy := DBMS_KERNEL32SB.GetFileTime( v_FileHandle
18                                          ,v_filecreationtime
19                                          ,v_lastaccesstime
20                                          ,v_lastwritetime
21                                          );
22   v_err:=DBMS_KERNEL32SB.GetLastError;
23   DBMS_OUTPUT.put_line('File Size in Bytes: ' ||v_dummy);
24   DBMS_OUTPUT.put_line('Error:'||v_err);
25   v_dummy:=DBMS_KERNEL32SB.CloseFile(v_FileHandle);
26 END;
27 /
File Size in Bytes: 0
Error:203
PL/SQL procedure successfully completed.
SQL> So, I have noticed that, Where ever a STRUCTURE is involved in external routine, there is a problem. I want to know, How to implement functions with STRUCTURE as OUT parameter.
Forgot to mention: This is my FILETIME object which corresponds to FILETIME structure of win32.
CREATE OR REPLACE TYPE FILETIME_rec IS OBJECT
                          ( LowDateTime NUMBER
                           ,HighDateTime NUMBER
CREATE OR REPLACE TYPE FILETIME IS TABLE OF FILETIME_rec;Edited by: Saubhik on Feb 1, 2011 4:15 PM

Saubhik wrote:
This is for educational purpose only. I am trying to implement kernel32.dll and shell32.dll in PL/SQL using external proc. Interesting. Familiar with the Wn32 API, but do not run Oracle on Windows and never looked at this aspect of integration.
So, I have noticed that, Where ever a STRUCTURE is involved in external routine, there is a problem. I want to know, How to implement functions with STRUCTURE as OUT parameter.
Forgot to mention: This is my FILETIME object which corresponds to FILETIME structure of win32.The problem is that this passes the parameter by reference and not value. In a vanilla C/C++/Delphi program, you will create a variable of that struct and then pass a long pointer to that variable when making the API call. That pointer will be dereferenced and the memory it points to, populated. This is not a problem as the underlying DLL you call that does this, uses your process's data segment.
Extproc is different. In order to protect the integrity of the database server process, an external call is done by a "proxy" process. It acts as the interface between your PL/SQL code and the actual external call.
In this case, this "proxy" process will be doing the implicit LoadLibrary() call to load kernel32.dll interface - and the DLL will expect to dereference and access this process's memory struct to populate it. This "proxy" process in turn needs to know that despite it calling the interface by reference, it needs to return that parameter to PL/SQL by value - as your PL/SQL code cannot dereference a pointer passed back by that "proxy" process and access its memory to gain access to that struct.
In basic terms - that argument is a 32 bit number containing a pointer. That is what the "proxy" process needs to pass to the interface call. Your code is passing a struct and not a pointer, right?
And that is the basic problem I believe. How to address this.. not sure. You can have your own DLL as interface that does not use pointers but expect arguments to be passed by value. But this will suck as you then need to include a custom DLL to deploy and have PL/SQL call that, instead of simply accessing and calling the native kernel interface.
Doubt that many Win32 programmers with OCI (Oracle Call Interface) frequents this forum. So perhaps this is not the best place to ask. I would be hitting Metalink (support.oracle.com) search function in your sho3s though as there should be support notes dealing with this subject matter.

How to pass 100+ tags in a single sql/tag query

<b>In my current application I have to pass 180+ tags in a single query to retrieve data from iHistorian.
I want to know how to pass more thatn 100 tags in a single SQL or TAG Query using OLEDB or UDC connectors.
If anybody has done it in the past ,please share with me and also let me know how to do it</b>

Currently you can only query a maximum of 128 tags, this is a hard limit and may be changed in future releases of xMII, but < 11.5 (im fairly sure 12 also) all have the limit of 128.
As for iHistorian with the OLEDB UDS, you can write a query that would return over 128 queries becasue this is an input limitation on the UDSs. (PLEASE DON"T ASK US HOW TO WRITE iHistorian QUERIES... we aren't experts in iHistorian).
Please note that though you can query over 128 tags, the performance may not be what you expect... This may take a very long time to return.
Martin

How to pass empty PL/SQL collection?

Similar Messages

Maybe you are looking for