http://www.fadalti.com/oracle/proC/how_to_compile_proc.htm
/data/oracle/11g/lib/libclntsh.so.11.1
/data/oracle/11g/lib/libclntsh.so.10.1
/data/oracle/11g/lib/libclntsh.so
vi /etc/ld.so.conf.d/oracle.conf
/data/oracle/11g/lib/
[root@yalova gps]# ldconfig
find / -name "*libclntsh*"
http://www.unix.com/high-level-programming/27583-how-compile-pro-c-c-programs.html
proc tek.pc
[oracle@yalova gps]$ cc -I${ORACLE_HOME}/precomp/public -c tek.c
[oracle@yalova gps]$ cc -o moo -L $ORACLE_HOME/lib tek.o demonsuzcalisan.c -lclntsh
gcc -L $ORACLE_HOME/lib tek.o demonsuzcalisan.c -lclntsh -o mooo
1.Connect to Oracle
EXEC SQL CONNECT :
2. Insert into table.
EXEL SQL INSERT INTO
VALUES ( :var_field1, :var_field2 , ...);
3. Commit the work.
EXEC SQL COMMIT WORK;
4. To roll back the work.
EXEC SQL ROLLBACK;
5. Release Oracle connection.
EXEC SQL ROLLBACK WORK RELEASE;
And.....all exception conditions should also be handled after each EXEC SQL statement. (SQLERROR, NOTFOUND, NOORACLE etc)
********************************************************************************************************************
SOAP
********************************************************************************************************************
http://www.liberidu.com/blog/?p=244
[oracle@yalova ~]$ cat sil3.sql
CONN gps/gps@ylvdb
CREATE OR REPLACE FUNCTION empcount
RETURN NUMBER IS
emp_count number;
BEGIN
SELECT count(*) INTO emp_count FROM ATS;
RETURN emp_count;
END;
/
[oracle@yalova ~]$ sqlplus /nolog @sil3.sql
SQL*Plus: Release 11.2.0.1.0 Production on Tue Mar 16 17:15:11 2010
Copyright (c) 1982, 2009, Oracle. All rights reserved.
Connected.
Function created.
apt-get install libsoap-lite-perl
#!/usr/bin/perl -w
#
use SOAP::Lite +trace => 'debug';
sub SOAP::Transport::HTTP::Client::get_basic_credentials {
return 'gps' => 'gps';
}
my $serviceNs = 'http://10.0.2.225:8080/orawsv/GPS/EMPCOUNT';
my $soap = SOAP::Lite
->proxy('http://10.0.2.225:8080/orawsv/GPS/EMPCOUNT');
my $som = $soap->call( SOAP::Data->name('SNUMBER-EMPCOUNTInput')->attr({'xmlns' => $serviceNs}) );
print "The response from the server was:" . $som->result . "\n";
SELECT XMLElement("konum",
XMLElement("lat", ATS.LATT),
XMLElement("longt", ATS.LONGT)) AS "RESULT"
FROM ATS
WHERE DEVICEID > 200 ;
RESULT
--------------------------------------------------------------------------------
RESULT
--------------------------------------------------------------------------------
no rows selected
SQL> SELECT XMLElement("konum",
XMLElement("lat", ATS_SON.LATT),
XMLElement("longt", ATS_SON.LONGT)) AS "RESULT"
FROM ATS_SON
WHERE DEVICEID = 7375 ; 2 3 4 5
RESULT
--------------------------------------------------------------------------------
SQL>
No comments:
Post a Comment