/***********************************************************************
 * Copyright (c) 2009 by SAS Institute Inc., Cary, NC, USA.            *
 *                                                                     *
 * NAME:          crmbinit                                             *
 *                                                                     *
 * PURPOSE:       Initializes macro paths for SAS Credit Risk          *
 *                 Management for Banking                              *
 *                                                                     *
 * USAGE:         %crmbinit(VERSION=)                                  *
 *                                                                     *
 * PARAMETERS:    VERSION     The product version number               *
 *                            (defaults to 4.6 in this release)        *
 * History :                                                           *
 * Date       By      Details                                          *
 * 09APR2009  SINNIS  Changed DVD assignment to 12byte instead of DVD. *
 *                    The intention seems to point to installed MVA    *
 *                    location which is 12byte. In any case we are not *
 *                    using the macro variable for now.                *
 *                                                                     *
 *                                                                     *
 **********************************************************************/
%macro crmbinit(VERSION=4.6);

   %global PRODUCT;
   %global RD_PRODNAME;
   %global RD_DVD;
   %global DVD;


   %*------------------------------------------------------------------;
   %* Identify the product (note: values are case sensitive)           ;
   %*------------------------------------------------------------------;

   %let DVD=criskmmva;
   %let PRODUCT=CRISKM;
   %let RD_PRODNAME=SAS Credit Risk Management for Banking;
   %let RD_SWC=Credit Risk Management for Banking &VERSION;

   %*------------------------------------------------------------------;
   %* Check whether RD_DVD has already been set so that this logic is  ;
   %* not done twice.  To force the initialization to run again, set   ;
   %* RD_DVD back to empty.                                            ;
   %*------------------------------------------------------------------;

   %if (%bquote(&RD_DVD) eq &DVD) %then %do;
      %return;
   %end;

   %let RD_DVD = &DVD;

   %*------------------------------------------------------------------;
   %* Set up HOST_UCMACRO_PATH according to the naming convention on   ;
   %* the current host machine                                         ;
   %*------------------------------------------------------------------;

   %let AUTOLIST = %sysfunc(compress(%sysfunc(getoption(sasautos)),%str(%(%))));
   %global HOST_UCMACRO_PATH;
   %if ((&SYSSCP eq WIN) or (&SYSSCP eq DNTHOST)) %then %do;
      %let host_ucmacro_path = ;
      %let host_ucmacro_path = &host_ucmacro_path "!sasroot/criskmmva/ucmacros";
   %end;
   %else %do;
      %let host_ucmacro_path = ;
      %let host_ucmacro_path = &host_ucmacro_path "!sasroot/ucmacros/criskmmva";
   %end;

   %*------------------------------------------------------------------;
   %* Prepend the host_ucmacro path and remove any nested parentheses  ;
   %* and commas                                                       ;
   %*------------------------------------------------------------------;

   options sasautos=(&host_ucmacro_path &AUTOLIST );

%mend crmbinit;