#!/usr/bin/perl

# ============================================================================
#
# Name    :  rnx2snx_pcs.pl
#
# Purpose :  Start RNX2SNX BPE process for a particular session
#
# Author  :  M. Meindl
# Created :  08-Mar-2004
#
# Changes :  11-Aug-2011 RD: Updated for version 5.2
#
# ============================================================================
use strict;

use lib $ENV{BPE};
use startBPE;
use bpe_util;

# Check arguments
# ---------------
if (@ARGV != 2 or lc($ARGV[0]) eq "-h") {
  die "\n  Start RNX2SNX BPE process for a particular session\n".
      "\n  Usage: rnx2snx_pcs.pl [-h] yyyy ssss\n".
      "\n  yyyy : 4-digit (or 2-digit) year".
      "\n  ssss : 4-character session".
      "\n  -h   : Display this help text\n\n" }

# Create startBPE object
# ----------------------
my $bpe = new startBPE();

# Redefine mandatory variables
# ----------------------------
 $$bpe{PCF_FILE}     = "PPS_R2Sall1";
 $$bpe{CPU_FILE}     = "USER";
 $$bpe{BPE_CAMPAIGN} = "ISS_PPS";
 $$bpe{YEAR}         = $ARGV[0];
 $$bpe{SESSION}      = $ARGV[1];
 $$bpe{SYSOUT}       = "PPS_R2Sall1";
 $$bpe{STATUS}       = "PPS_R2Sall1.RUN";
 $$bpe{TASKID}       = "NK";
 $$bpe{NUM_SESS}     = "1";
 

# Reset CPU file
# --------------
 $bpe->resetCPU();

# Start BPE process
# -----------------
print "\nPPS_R2Sall BPE process started on ".timstr(localtime(time))."\n";
$bpe->run();

# BPE process finished
# --------------------
print "PPS_R2Sall BPE process finished on ".timstr(localtime(time))."\n\n";

__END__