Shell Programming and Scripting

#!/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;

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")