# PROGRAM INCLUDES
use OLE;
use strict;

# file with routine to retrieve server variables 
require 'D:\\Scripts\\Perl-Scripts\\OMS\\OMS_SI_Server_Include.pl'; 

# file with routine to transfer and validate files 
require 'D:\\Scripts\\Perl-Scripts\\OMS\\OMS_FI_FTP_Include.pl'; 


#Path=D:\\prochannel\\pc_7\\PC_Mod\\bin;D:\\Perl\\bin\\;D:\\oracle\\or
+a92\\bin;C:\\Program Files\\Oracle\\jre\\1.1.8\\bin;C:\\WINDOWS\\syst
+em32;C:\\WINDOWS;C:\\WINDOWS\\System32\\Wbem;d:\\PROGRA~1\\BMCSOF~1\\
+Patrol3\\bin;C:\\win32app\\TWS\\maestro;C:\\win32app\\TWS\\maestro\\b
+in;D:\\scripts\\perl-scripts\\oms;C:\\j2sdk1.4.2_06\\jre



## -------------------------------------------------------------------
+--

#  FUNCTION:     Main Program 
#  PARAMETERS:   none 
#  RETURN VALUE: none
#  DESCRIPTION:  Main program 


# OMS File processing related Variables
my %File_variable     = SI_get_File_variables();
my $oms_file          = $File_variable{"oms_part_file"};
my $oms_hdr_file      = $File_variable{"oms_part_withhdr_file"};
my $oms_remote_file   = $File_variable{"oms_part_remote_file"};
my $log_file          = $File_variable{"oms_part_log_file"}; 
my $changedrive       = $File_variable{"oms_part_changedrive"};
my $changedir         = $File_variable{"oms_part_changedir"};
my $binenv            = $File_variable{"oms_part_binenv"};
my $doupdate          = $File_variable{"oms_part_doupdate"};


 # variables for OMS_Part_Import.pl  -  from the TEST version of SERVE
+R_INCLUDE
 #  $File_variable{"oms_part_file"}  = "E:\\inetpub\\ftproot\\oms_part
+s";
 #  $File_variable{"oms_part_withhdr_file"}  = "E:\\inetpub\\ftproot\\
+DMSPARTS";
 #  $File_variable{"oms_part_remote_file"}  = "/usr1/MIG/drm/outgoing/
+OMSPMCLX";
 #  $File_variable{"oms_part_log_file"} = "E:\\inetpub\\ftproot\\DMSPA
+RTS.log";
 #  $File_variable{"oms_part_changedrive"} = "D:";
 #  $File_variable{"oms_part_changedir"} = "cd \\ProChannel\\pc_7\\PC_
+Mod";
 #  $File_variable{"oms_part_binenv"} = "bin\\env.bat";
 #  $File_variable{"oms_part_doupdate"} = "D:\\ProChannel\\pc_7\\PC_Mo
+d\\bin\\doupdate IMPORT_BASIC_PART E:\\inetpub\\ftproot\\oms_parts";
 #  %File_variable;
...
system("$changedrive & $changedir & $binenv & $doupdate");
[download]