Hello all,
I know this is Unix forum, but i also know that there are some experts here who can help me out with this situation;
I am loading a data file into oracle table using Perl script by calling sqlldr script.
It does not do anything, and no data is getting loaded.
Any help, suggestion to make this script workable, would appreciate it.
Perl script;
Code:
#!/oracle/product/11.2.0/perl/bin/perl
#Checking the server to connect
if ($ARGV[0] eq 'QA')
{
$ENV{"ORACLE_HOME"} = "/oracle/product/11.2.0";
$LIBPATH = "/oracle/product/11.2.0/lib:/usr/lib";
$dbsid = 'mysid';
$dbuser = 'myuser';
$dbpwd = `/usr/local/pl/perlencrypt.pl -k /kda1/system/ealgorithm -d /sdr1/system/mysidmyuserpw`;
}
#Directories where input file exist (Please Use the Appropriate Directory structure)
my @inputdirectories = ('/MCS/MAINFRAME/REFERENCE');
#directory where files will be moved to after job execution.
my @outputdirectory = '/MCS/MAINFRAME/REFERENCE/Archive';
#File name and location of the text file
my @file = '/MCS/MAINFRAME/REFERENCE/2011030546845.MBT.A0MW9693.NDM.HBIDT.AD38XADJ.txt';
#Logfile location where it will reside
my @logFile= "/MCS/MAINFRAME/REFERENCE/Log";
#Control file location
my @control= "/MCS/MAINFRAME/REFERENCE/control/adjust_rsn_codes.ctl";
$status = system ("$SQLLDR $CONNECT control=$control data=$file log=$logFile");
#$dbh->disconnect;
close $FILE;
SQLLDR SCRIPT;
Code:
LOAD DATA
infile '/MCS/MAINFRAME/REFERENCE/2011031879382.MBT.A0TW9693.NDM.HBIDT.AD37XADJ.txt'
APPEND INTO TABLE ZX02051.ADJUSTMENT_REASON_CODES
TRAILING NULLCOLS
(REASON_CODE CHAR,
EFFECTIVE_DATE CHAR,
END_DATE CHAR,
MCS_CYCLE_BUILD_DATE CHAR,
CREATED_TIMESTAMP DATE "DD/MM/YYY")
Last edited by pludi; 04-05-2011 at 11:35 AM..
Reason: redacted potentially sensitive information
hi all
need your help.
I am wrting a script that will load data into the table.
then on another load will append the data into the existing table.
Regards
Ankit (1 Reply)
hi all,
I have 3 perl scripts a.pl,b.pl and c.pl
each of these work when i pass a date for eg: perl c.pl 2010-05-27
now i want to write a perl script that would call the 3 scripts and make it run all the 3 scripts (a.pl,b.pl,c.pl) parallelly rather than 1 after the other.......
pls... (2 Replies)
I need help as to how to write a script in Unix for the following:
We have 3 servers;
The mainframe will FTP them to a folder. In that folder we will need the script to look and see if the specific file name is there and load it to the correct table.
Can anyone pls help me out with... (2 Replies)
I have written a perl scripts which loads the data.
Now i want to modify the script, to Archive the Input file after the successful load of data.
Can anyone please share it and help me ....
Thanks. (2 Replies)
Use and complete the template provided. The entire template must be completed. If you don't, your post may be deleted!
1. The problem statement, all variables and given/known data:
I must write a shell script that calls two external Perl functions--one of which sorts the data in a file, and... (6 Replies)
I am trying to run a perl script which needs input arguments from a parent perl script, but doesn't seem to work. Appreciate your help in this regard.
From parent.pl
$input1=123;
$input2=abc;
I tried calling it with
system("/usr/bin/perl child.pl $input1 $input2");
and
`perl... (1 Reply)
I need to read a text file that contain columns of data, i need to read 1st column as a function to call, and others are the data i need to get into a ksh script.
I am quite new to ksh scripting, i am not very sure how to read each row line by line and the data in each columns of that line, set... (3 Replies)
I am using SQLLDR to load data in DB.For parallel loading I'm using nohup command.
The requirement is:
I have different files within a directories.
Ex: 1) Dir/folder_A/AE.txt
2) Dir/folder_A/DM.txt
3) Dir/folder_B/CM.txt
I need to loop through directories and load the data... (1 Reply)
Hi ,
I am using below control file
LOAD DATA
APPEND
INTO TABLE LSHADMIN.EG
TRAILING NULLCOLS
(
STUDY CHAR
)
and the text file to load data is
CACZ885M2301
When I run below command:
sqlldr userid=apps/apps control=/home/appsuser/dataload/ctl_file.ctl... (3 Replies)
Discussion started by: Pratiksha Mehra
3 Replies
LEARN ABOUT OPENDARWIN
tcl_allowexceptions
Tcl_AllowExceptions(3) Tcl Library Procedures Tcl_AllowExceptions(3)__________________________________________________________________________________________________________________________________________________NAME
Tcl_AllowExceptions - allow all exceptions in next script evaluation
SYNOPSIS
#include <tcl.h>
Tcl_AllowExceptions(interp)
ARGUMENTS
Tcl_Interp *interp (in) Interpreter in which script will be evaluated.
_________________________________________________________________DESCRIPTION
If a script is evaluated at top-level (i.e. no other scripts are pending evaluation when the script is invoked), and if the script termi-
nates with a completion code other than TCL_OK, TCL_ERROR or TCL_RETURN, then Tcl normally converts this into a TCL_ERROR return with an
appropriate message. The particular script evaluation procedures of Tcl that act in the manner are Tcl_EvalObjEx, Tcl_EvalObjv, Tcl_Eval,
Tcl_EvalEx, Tcl_GlobalEval, Tcl_GlobalEvalObj, Tcl_VarEval and Tcl_VarEvalVA.
However, if Tcl_AllowExceptions is invoked immediately before calling one of those a procedures, then arbitrary completion codes are per-
mitted from the script, and they are returned without modification. This is useful in cases where the caller can deal with exceptions such
as TCL_BREAK or TCL_CONTINUE in a meaningful way.
KEYWORDS
continue, break, exception, interpreter
Tcl 7.4 Tcl_AllowExceptions(3)