Perl script to load data by calling sqlldr Post: 302510930

Sponsored Content

Top Forums Shell Programming and Scripting Perl script to load data by calling sqlldr Post 302510930 by msrahman on Tuesday 5th of April 2011 10:28:03 AM

04-05-2011

Registered User

Perl script to load data by calling sqlldr

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

msrahman

View Public Profile for msrahman

Find all posts by msrahman

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Need help in wrting Load Script for a Load-Resume type of load.

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

2. Web Development

script to load data from csv file

hello i want a script to load the data line by line from a csv file into a mysql table

3. Shell Programming and Scripting

Calling 3 perl script from one

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...

4. Shell Programming and Scripting

Shell script to find specific file name and load data

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...

5. Shell Programming and Scripting

Perl script to Archive the data file after the load

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.

6. Homework & Coursework Questions

Shell script calling Perl function, sort and find data, write to new files

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...

7. Shell Programming and Scripting

calling a perl script with arguments from a parent perl script

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...

8. Shell Programming and Scripting

How to read file and load data into a script as variable

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...

9. Shell Programming and Scripting

Parallel sqlldr to load data.

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...

10. Shell Programming and Scripting

SQLLDR :Data not loaded completely

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...

LEARN ABOUT CENTOS

semanage-user

semanage-user(8)														  semanage-user(8)

NAME

       semanage user- SELinux Policy Management SELinux User mapping tool

SYNOPSIS

       semanage  user [-h] [-n] [-N] [-s STORE] [ --add ( -L LEVEL -R ROLES -r RANGE -s SEUSER selinux_name) | --delete selinux_name | --deleteall
       | --extract | --list [-C] | --modify ( -L LEVEL -R ROLES -r RANGE -s SEUSER selinux_name ) ]

DESCRIPTION

       semanage is used to configure certain elements of SELinux policy without requiring modification to or recompilation  from  policy  sources.
       semanage user controls the mapping between an SELinux User and the roles and MLS/MCS levels.

OPTIONS

       -h, --help
	      show this help message and exit

       -n, --noheading
	      Do not print heading when listing the specified object type

       -N, --noreload
	      Do not reload policy after commit

       -S STORE, --store STORE
	      Select an alternate SELinux Policy Store to manage

       -C, --locallist
	      List local customizations

       -a, --add
	      Add a record of the specified object type

       -d, --delete
	      Delete a record of the specified object type

       -m, --modify
	      Modify a record of the specified object type

       -l, --list
	      List records of the specified object type

       -E, --extract
	      Extract customizable commands, for use within a transaction

       -D, --deleteall
	      Remove all local customizations

       -L LEVEL, --level LEVEL
	      Default SELinux Level for SELinux user, s0 Default. (MLS/MCS Systems only)

       -r RANGE, --range RANGE
	      MLS/MCS  Security  Range	(MLS/MCS  Systems only) SELinux Range for SELinux login mapping defaults to the SELinux user record range.
	      SELinux Range for SELinux user defaults to s0.

       -R [ROLES], --roles [ROLES]
	      SELinux Roles. You must enclose multiple roles within quotes, separate by spaces. Or specify -R multiple times.

EXAMPLE

       List SELinux users
       # semanage user -l
       Modify groups for staff_u user
       # semanage user -m -R "system_r unconfined_r staff_r" staff_u
       Add level for TopSecret Users
       # semanage user -a -R "staff_r" -rs0-TopSecret topsecret_u

SEE ALSO

       selinux (8), semanage (8) semanage-login (8)

AUTHOR

       This man page was written by Daniel Walsh <dwalsh@redhat.com>

								     20130617							  semanage-user(8)