# DCxplr.ctl:150:Performs Oracle Explorer Collections # $Id: DCxplr.ctl,v 1.12 2014/07/17 12:38:52 RDA Exp $ # ARCS: $Header: /home/cvs/cvs/RDA_8/src/scripting/lib/collect/EXPLORER/DCxplr.ctl,v 1.12 2014/07/17 12:38:52 RDA Exp $ # # Change History # 20140717 MSC Add zone documentation. =head1 NAME DCexplr - Performs Oracle Explorer Collections =head1 DESCRIPTION This module executes requested Oracle Explorer modules and includes a collection overview under C. =cut use Mrc echo tput('bold'),'Processing XPLR module ...',tput('off') # Initialization var $TOC = '%TOC%' var $TOP = '[[#Top][Back to top]]' pretoc '1:Oracle Explorer' # Clear any previous message var ${STA.EXPLORER.XPLR.T_RUN} = undef # Load common macros run EXPLORER:XPLRlib('') # Adjust settings if !and(${OS.solaris},expr('>=',get_osv(),10)) var ${B_LOCAL/T} = false call ${ILME/i}->clear # Perform the requested collections var @err = () call logMrcSections(true,'XPLR_defaults') call logMrcStatistics(true) loop $def (getMrcMembers(${K_SET:'EXPLORER.xplr'},\ join('|','mandatory',@{W_MODULES}),true)) {eval {if match($def,'\-') run &{$def}() else collect &{$def}() } if error {call push(@err,concat(encode($def),':%LIST%',join('%NEXT%',last),'%ENDLIST%')) debug ' ERROR: ',error->[-1] } } if @err var ${STA.EXPLORER.XPLR.T_RUN:'Execution errors'} = \ concat('%LIST%',join('%NEXT%',@err),'%ENDLIST%') =head2 summary - Collection Overview Displays Oracle Explorer catalog overview. =cut report summary title '---+!! Oracle Explorer Results' title $TOC call writeExplorer() if isCreated() toc '2:[[',getFile(),'][rda_report][Collection Overview]]' unpretoc =head1 SEE ALSO L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L, L =begin credits =over 10 =item RDA 4.23: Micheal Bergeron. =back =end credits =head1 COPYRIGHT NOTICE Copyright (c) 2002, 2016, Oracle. All rights reserved. =head1 TRADEMARK NOTICE Oracle is a registered trademark of Oracle Corporation and/or its affiliates. Other names may be trademarks of their respective owners. =cut