DBD Oracle Assistance

[Gorrebeeck, Robert]

All

I have a perl script that connects to Oracle 10.2 database.

 

I have a very simple insert statement that inserts data into a table
within a loop.

The problem is on the 2nd iteration of the loop, the insert statement
fails

 

Here is the exact error:

 

DBD::Oracle::st execute failed: Error while trying to retrieve text for
error ORA-03113 (DBD ERROR: OCIStmtExecute)

 

Does anyone have any clues as to why this could be happening?

Thanks in advancer

 

Robert Gorrebeeck 
Sr. EDI Apps Dev Analyst

Coventry Workers' Comp Services 
Solutions to Restore Health and Productivity 
Office: (972) 725-1484 

gorrebeec...@cvty.com  
www.coventrywcs.com   

 

 




 
Email Confidentiality Notice: The information contained in this transmission is 
confidential, proprietary or privileged and may be subject to protection under 
the law, including the Health Insurance Portability and Accountability Act 
(HIPAA).

The message is intended for the sole use of the individual or  entity to whom 
it is addressed.  If you are not the intended recipient, you are notified that 
any use, distribution or copying of the message is strictly prohibited and may 
subject you to criminal or civil penalties.  If you received this transmission 
in error, please contact the sender immediately by replying to this email and 
delete the material from any  computer.
 
 

Wind32::ODBC question

[Gorrebeeck, Robert]

All

 

I am using the Win32::ODBC module to connect to a Sybase database

I can connect fine, but when I run a query to retrieve some data I keep
getting the following error

 

[Sybase][ODBC][connection timed out]

 

Reading the ODBC documentation I tried to set the
'SQL_ATTR_CONNECTION_TIMEOUT' Attribute, but with no success

Has anyone run into this issue before?

Is there another setting that I can try to set to let my query complete?

Any help would be appreciated

Thanks in advancer

 

Robert Gorrebeeck 
Sr. EDI Apps Dev Analyst

Coventry Workers' Comp Services 
Solutions to Restore Health and Productivity 
Office: (972) 473-2942 

gorrebeec...@cvty.com  
www.coventrywcs.com   

 

 



Email Confidentiality Notice: The information contained in this transmission is 
confidential, proprietary or privileged and may be subject to protection under 
the law, including the Health Insurance Portability and Accountability Act 
(HIPAA).

The message is intended for the sole use of the individual or  entity to whom 
it is addressed.  If you are not the intended recipient, you are notified that 
any use, distribution or copying of the message is strictly prohibited and may 
subject you to criminal or civil penalties.  If you received this transmission 
in error, please contact the sender immediately by replying to this email and 
delete the material from any  computer.

DBD::ODBC SQL Server Stored Procedure

[Gorrebeeck, Robert]

All

I am having an issue with retrieving output parameters from a SQL Server stored 
procedure.

Here is the definition of the stored procedure

PROCEDURE [TestProcess]
@Id  NUMERIC(20,0),
@RefID  CHAR(36) OUTPUT,
@ErrorIDINT OUTPUT

And here is my perl code
#bind the input and output parameters

$sth->bind_param(1, $clm_tracking_id);
$sth->bind_param_inout(2, \$ID, DBI::SQL_CHAR);
$sth->bind_param_inout(3, \$ErrorId, DBI::SQL_INT);
$sth->execute();

$sth->finish;

print "$ID\n";
print "$ErrorId\n";

When I run the stored procedure by itself , I get values back, but when I run 
it from my perl script, the values are empty.
Not sure what is going on - any advice would be greatly appreciated

Thanks

Robert Gorrebeeck



Email Confidentiality Notice: The information contained in this transmission is 
confidential, proprietary or privileged and may be subject to protection under 
the law, including the Health Insurance Portability and Accountability Act 
(HIPAA).

The message is intended for the sole use of the individual or  entity to whom 
it is addressed.  If you are not the intended recipient, you are notified that 
any use, distribution or copying of the message is strictly prohibited and may 
subject you to criminal or civil penalties.  If you received this transmission 
in error, please contact the sender immediately by replying to this email and 
delete the material from any  computer.

RE: DBD::ODBC SQL Server Stored Procedure

[Gorrebeeck, Robert]

Let me add one more bit of information
I am calling another stored procedure from the original stored procedure.  This 
is when I lose my values.
If the account loc variable is Null I set the ErrorId -1 - and that gets 
returned to the perl script - it is when I call the CreateFeed stored procedure 
that I lose the output values

The stored proc (as is it bellows I know is incorrect but just for illustration 
purposes)

See below

ROCEDURE [CreateReferralDataProcess]
@TrackingId  NUMERIC(20,0),
@RefID  CHAR(36) OUTPUT,
@RefErrorID CHAR(36) OUTPUT
AS
SET NOCOUNT ON

SELECT@AccountLoc = ACCOUNT_LOC
FROMACCOUNT_DETAILS ACCOUNT_DETAILS
WHERE  ID = @TrackingID

--if we dont have an account loc then error out and return to the perl script
IF @AccountLoc IS NULL OR @AccountLoc <=0
BEGIN

SELECT @ErrorID -1

SELECT @RefErrorID = CONVERT(CHAR(36), @ErrorID)
SELECT @RefID = CONVERT(CHAR(36), -1)
RETURN
END
ELSE
BEGIN

--Now that we have all of the account info we can start to create the 
referral
EXEC ChangePoint.dbo.CreateFeed  @AccountLoc,
@ReferralID 
OUTPUT,
@ErrorID
OUTPUT

--Lets check the return value of the ErrorId
IF @ErrorID > 0
BEGIN

SELECT @RefErrorID = RTRIM(CONVERT(CHAR(36), @ErrorID))
END
ELSE
BEGIN
--This means that we got a valid referral id back
--Convert so we can return the value to our script
SELECT @RefID = RTRIM(CONVERT(CHAR(36), @ReferralID))
END
END
RETURN
SET NOCOUNT OFF



Robert Gorrebeeck
Sr. Apps Dev Analyst
Coventry Workers Comp Services
Solutions to Restore Health and Productivity
Office: (972) 473-2942
gorrebeec...@cvty.com<mailto:gorrebeec...@cvty.com>
www.coventrywcs.com<http://www.coventrywcs.com>

From: Gorrebeeck, Robert
Sent: Wednesday, August 29, 2012 2:02 PM
To: beginners@perl.org
Subject: DBD::ODBC SQL Server Stored Procedure

All

I am having an issue with retrieving output parameters from a SQL Server stored 
procedure.

Here is the definition of the stored procedure

PROCEDURE [TestProcess]
@Id  NUMERIC(20,0),
@RefID  CHAR(36) OUTPUT,
@ErrorIDINT OUTPUT

And here is my perl code
#bind the input and output parameters

$sth->bind_param(1, $clm_tracking_id);
$sth->bind_param_inout(2, \$ID, DBI::SQL_CHAR);
$sth->bind_param_inout(3, \$ErrorId, DBI::SQL_INT);
$sth->execute();

$sth->finish;

print "$ID\n";
print "$ErrorId\n";

When I run the stored procedure by itself , I get values back, but when I run 
it from my perl script, the values are empty.
Not sure what is going on - any advice would be greatly appreciated

Thanks

Robert Gorrebeeck



Email Confidentiality Notice: The information contained in this transmission is 
confidential, proprietary or privileged and may be subject to protection under 
the law, including the Health Insurance Portability and Accountability Act 
(HIPAA).

The message is intended for the sole use of the individual or  entity to whom 
it is addressed.  If you are not the intended recipient, you are notified that 
any use, distribution or copying of the message is strictly prohibited and may 
subject you to criminal or civil penalties.  If you received this transmission 
in error, please contact the sender immediately by replying to this email and 
delete the material from any  computer.

XML::Simple Environment errors

[Gorrebeeck, Robert]

Hello all

 

We recently migrated over to a new server and installed the new version
of XML::Simple and am getting errors when I try to parse an XML file.  I
get an error stating:



XMLin() requires either XML::SAX or XML::Parser

 

I have verified that both modules are installed.

 

What is strange is when I try to get the version of XML::Parser or
XML::SAX I get the following error:

 

bash-3.2$ perl -mXML::Parser -e 'print
"$XML::Parser::VERSION"'

Can't load
'/usr/local/lib/perl5/site_perl/5.8.8/sun4-solaris/auto/XML/Parser/Expat
/Expat.so' for module XML::Parser::Expat: ld.so.1: perl: fatal:
libgcc_s.so.1: open failed: No such file or directory at
/usr/local/lib/perl5/5.8.8/sun4-solaris/DynaLoader.pm line 230.

 at /usr/local/lib/perl5/site_perl/5.8.8/sun4-solaris/XML/Parser.pm line
14

Compilation failed in require at
/usr/local/lib/perl5/site_perl/5.8.8/sun4-solaris/XML/Parser.pm line 14.

BEGIN failed--compilation aborted at
/usr/local/lib/perl5/site_perl/5.8.8/sun4-solaris/XML/Parser.pm line 18.

Compilation failed in require.

 

I have verified that the file is there and that the modules were
installed.

 

I thought I got around this by fixing my library path by explicitly
setting the LIBRARY PATH to usr/local/lib, but when I do this - I lose
the path to my other modules that I use, such as DBD, etc.  On our old
server, when I try to get the version of XML::Parser or XML::SAX I do
not receive any errors.

 

I am under the assumption it is an environment setting.  Unfortunately I
am not the admin of the machine, so I did not install the modules

 

Can anyone point me to a solution?

 

Thanks in advance.

 

 

Robert Gorrebeeck

Sr. EDI Developer

TCM Development Group

3220 Keller Springs

Suite #106

Carrollton, Texas  75006

(o) (972) 725-1484

(e) [EMAIL PROTECTED]

 




 
Email Confidentiality Notice: The information contained in this transmission is 
confidential, proprietary or privileged and may be subject to protection under 
the law, including the Health Insurance Portability and Accountability Act 
(HIPAA).

The message is intended for the sole use of the individual or  entity to whom 
it is addressed.  If you are not the intended recipient, you are notified that 
any use, distribution or copying of the message is strictly prohibited and may 
subject you to criminal or civil penalties.  If you received this transmission 
in error, please contact the sender immediately by replying to this email and 
delete the material from any  computer.
 
 

RE: Check for modules presence

[Gorrebeeck, Robert]

I am not sure how you can check within a script.
But to check to see if the modules are loaded on your system you can
issue the following command at the command line

Instmodsh

Then -l

Hope that helps.


Robert Gorrebeeck
Sr. EDI Developer


-Original Message-
From: sormariano [mailto:[EMAIL PROTECTED] 
Sent: Thursday, August 28, 2008 10:25 AM
To: beginners@perl.org
Subject: Check for modules presence

Hello to everybody,

I made a script that uses some modules.
Obviously if one of the modules is not installed, the script doesn't
start.
I'd like to have the possibility to notify to the user which are the 
modules he still requires and that should have to be installed..
I think I could wrote an "install script" that checks the modules 
presence and if all it's ok, it starts the main script.
So here I have several questions:
1) is this a good way to proceed ?
2) how could I check the module presence ?
3) Can I start the main script with a 'system mainscript.pl'

Thank you in advance.

Francesco

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/





 
Email Confidentiality Notice: The information contained in this transmission is 
confidential, proprietary or privileged and may be subject to protection under 
the law, including the Health Insurance Portability and Accountability Act 
(HIPAA).

The message is intended for the sole use of the individual or  entity to whom 
it is addressed.  If you are not the intended recipient, you are notified that 
any use, distribution or copying of the message is strictly prohibited and may 
subject you to criminal or civil penalties.  If you received this transmission 
in error, please contact the sender immediately by replying to this email and 
delete the material from any  computer.
 
 

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/

RE: What is the proper method for calling a shelll script?

[Gorrebeeck, Robert]

Steve

I just use a system command - which performs a fork first, so you can
wait for the shell script to complete and then return to your perl
script.

You can also pass any parameters to the shell script if needed and
retrieve them in your shell script

Example:
system("/homedir/test/bin/test.sh", "arg1", "arg2");

Hope that helps

Robert Gorrebeeck
Sr. EDI Developer
TCM Development Group
3220 Keller Springs
Suite #106
Carrollton, Texas  75006
(o) (972) 725-1484
(e) gorrebeec...@cvty.com
 

-Original Message-
From: Steve Pittman [mailto:spitt...@jhmi.edu] 
Sent: Tuesday, December 23, 2008 12:13 PM
To: Mr. Shawn H. Corey
Cc: beginners@perl.org
Subject: What is the proper method for calling a shelll script?

Does any one have a good example?

Best Regards,

Steve

-- 
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/






 
Email Confidentiality Notice: The information contained in this transmission is 
confidential, proprietary or privileged and may be subject to protection under 
the law, including the Health Insurance Portability and Accountability Act 
(HIPAA).

The message is intended for the sole use of the individual or  entity to whom 
it is addressed.  If you are not the intended recipient, you are notified that 
any use, distribution or copying of the message is strictly prohibited and may 
subject you to criminal or civil penalties.  If you received this transmission 
in error, please contact the sender immediately by replying to this email and 
delete the material from any  computer.
 
 

--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/