# MCbegin.ctl:000:Initializes the Explorer Data Collection
# $Id: MCbegin.ctl,v 1.2 2013/10/30 07:18:24 RDA Exp $
# ARCS: $Header: /home/cvs/cvs/RDA_8/src/scripting/lib/collect/EXPLORER/MCbegin.ctl,v 1.2 2013/10/30 07:18:24 RDA Exp $
#
# Change History
# 20130509  JGS  Initial version.

=head1 NAME

EXPLORER:MCbegin - Initializes the Explorer Data Collection

=over 2

=cut

use Mrc

# Initialization
var @COMMON_SECTIONS = ('XPLR_begin')
var $VALIDATE = true
keep $VALIDATE,@COMMON_SECTIONS

section begin

run EXPLORER:XPLRlib('begin')

#------------------------------------------------------------------------------
# XPLR_begin section
#------------------------------------------------------------------------------

section XPLR_begin

debug ' Inside Explorer BEGIN module'
call log_run('Processing BEGIN sections ...')

=item o

Records the start time.

=cut

var ${RUN.EXPLORER.XPLR.END.G_START/T} = time()

#------------------------------------------------------------------------------
# Input file conversion section
#------------------------------------------------------------------------------

section input

if ${RUN.EXPLORER.N_PID}
{# Load default information
 loop $key ('ADDRESS_1',\
            'ADDRESS_2',\
            'ADDRESS_CITY',\
            'ADDRESS_COUNTRY',\
            'ADDRESS_COUNTRY_CODE',\
            'ADDRESS_STATE',\
            'ADDRESS_ZIP',\
            'CONTRACT_ID',\
            'CUSTOMER_NAME',\
            'LICENSE',\
            'NOTIFY',\
            'PHONE',\
            'REPLY',\
            'SERIAL',\
            'USER_EMAIL',\
            'USER_NAME')
  var ${RUN.EXPLORER.XPLR.BEGIN.T_${VAR.key}} = ${ENV.EXP_${VAR.key}}

 # Load run-time information
 loop $rec([XPL_CMD => 'T_COMMAND'],\
           [XPL_ESC => 'T_ESCALATION'],\
           [XPL_RCP => 'T_RECEIPT'],\
           [XPL_SRL => 'T_SR'])
 {var ($src,$dst) = @{$rec}
  var ${RUN.EXPLORER.XPLR.BEGIN.${VAR.dst}} = ${ENV.${VAR.src}}
 }
}

=back

=head1 SEE ALSO

L<EXPLORER:DCxplr|collect::EXPLORER:DCxplr>,
L<EXPLORER:MCend|collect::EXPLORER:MCend>,
L<EXPLORER:XPLRlib|collect::EXPLORER:XPLRlib>

=head1 COPYRIGHT NOTICE

Copyright (c) 2002, 2016, Oracle and/or its affiliates. All rights reserved.

=head1 TRADEMARK NOTICE

Oracle and Java are registered trademarks of Oracle and/or its
affiliates. Other names may be trademarks of their respective owners.

=cut