*<PRE>;
/*
Subject: macro for basic EASYTRIEVE ops
Newsgroups: comp.soft-sys.sas
Organization: Texas Metronet, Inc  (login info (214/705-2901 - 817/571-0400))
Summary:
Keywords:

To resurrect a thread from last month on SAS vs. EASYTRIEVE, following
is a macro I started developing to do a basic match merge between large
flat files.  It is not as complete as originally intended, but I am
moving on to another assignment where I don't anticipate having the
need to pursue this further, so I offer it up to SAS-L for those who
hate to use EASYTRIEVE, but find SAS too much of a resource hog for
simple operations on large flat files.

The essence of this macro is to skip reformatting the data to SAS
datasets and simply deal with sorted flat files for these basic operations.
The only statistic I have are for one use of this macro to extract
a subset from a file of 10 million card-image records, based on a key
file of 21 million records.  This took 4.5 minutes of CPU on a large
MVS system.  Based on experience, I feel this is at least an order
of magnitude less CPU time than reformatting these 31 million records
to SAS datasets to do the merge, plus avoiding limitations on DASD space
for the WORK library.  I think this would be very competitive with
EASYTRIEVE, but I never bothered to do a comparison.

Dwight Eggers
email: deggers@metronet.com

------ code follows ------  */

%MACRO MMERGE (LNAME, LKEYS, RNAME, RKEYS, OUTNAME,
               KEEP=MATCH);
%*;
%* DO A MATCHED MERGE OF TWO FLAT FILES.  THE FIRST (LEFT) FILE      ;
%* CONTAINS THE FULL RECORD TO BE RETAINED.  THE SECOND (RIGHT) FILE ;
%* CONTAINS THE VALUES OF THE KEYS ON RECORDS WHICH ARE TO BE        ;
%* RETAINED FROM THE LEFT FILE.  THE OUTPUT IS A FLAT FILE IN THE    ;
%* SAME FORMAT AS THE LEFT FILE.                                     ;
%*                                                                   ;
%* THE KEY(S) SPECIFICATION IS A SEQUENCE OF POSITION/FORMAT PAIRS   ;
%* IN SAS SYNTAX.  VARIABLE NAMES ARE OMITTED.  FOR EXAMPLE,         ;
%*       @1 PD6. @33 $4.                                             ;
%* TRANSLATES AS THE PRIMARY KEY BEING A REAL VALUE IN FORMAT PD6.   ;
%* STARTING IN COLUMN 1, FOLLOWED BY THE SECONDARY KEY AS A CHARACTER;
%* VALUE OF LENGTH 4 STARTING IN COLUMN 33.  THE DESCRIPTION FOR     ;
%* EACH VARIABLE SHOULD START WITH A '@' AND END WITH A '.' .        ;
%*                                                                   ;
%* THE CORRESPONDING KEY VARIABLES BETWEEN LEFT AND RIGHT FILES MUST ;
%* BE OF THE SAME TYPE (NUMERIC OR CHARACTER) AND LENGTH, BUT THEIR  ;
%* FORMATS AND POSITIONS DO NOT NEED TO MATCH.  THE NUMBER OF KEYS   ;
%* MUST AGREE BETWEEN BOTH FILES.  THE FILES MUST BE SORTED ON THESE ;
%* KEYS PRIOR TO INVOKING THIS MACRO.                                ;
%*                                                                   ;
%* FILE 'NAMES' -- LNAME, RNAME, AND OUTNAME -- CAN EITHER BE        ;
%* PHYSICAL FILE NAMES OR LOGICAL NAMES (E.G., DD NAMES ON MVS).     ;
%* PHYSICAL FILE NAMES ARE ENCLOSED IN SINGLE QUOTES.  A LOGICAL     ;
%* NAME IS SPECIFIED BY A SHORT NAME (<=8 CHARACTERS) WITHOUT QUOTES.;
%*                                                                   ;
%* OPTIONALLY, THE RIGHT FILE CAN ALSO BE A SAS DATASET.  TO USE THIS;
%* FEATURE THE RIGHT NAME SHOULD BE THE UNQUOTED FULL DATASET NAME,  ;
%* COMPLETE WITH LIBRARY NAME (E.G., WORK.RIGHT).  THE MISSING QUOTES;
%* AND '.' IS WHAT DIFFERENTIATE A DATASET NAME FROM A LOGICAL NAME. ;
%* IN THIS CASE, THE RIGHT KEY(S) ARE SPECIFIED AS VARIABLE NAMES    ;
%* INSTEAD OF POSITION/FORMAT PAIRS.  THE VARIABLE TYPES AND SIZES   ;
%* MUST AGAIN CORRESPOND TO THE LEFT KEYS.                           ;
%*                                                                   ;
%* THE CONVERSE OPERATION OF DISCARDING RECORDS WHICH SATISFY THE    ;
%* MATCH CAN BE PERFORMED BY SETTING THE OPTIONAL KEYWORD PARAMETER  ;
%* KEEP=NOMATCH.  OTHERWISE ONLY MATCHED RECORDS ARE RETAINED.       ;
%*                                                                   ;
%* THE MULTIPLE KEY FEATURE HAS NOT YET BEEN FULLY IMPLEMENTED.      ;
%*                                                                   ;
%* AUTHOR: DWIGHT EGGERS, 9/26/95                                    ;
%*;
%* DEFINE PARAMETERS FOR LEFT AND RIGHT INPUT FILES ;
%LOCAL LINPUT LLENGTH LLEVELS LFORMAT;
%LOCAL RINPUT RLEVELS;

* DEFINE INPUT STATEMENT FOR LEFT KEYS ;
DATA _NULL_;
INFILE &LNAME LENGTH=RECLENG;
LENGTH SEGMENT $20 LINPUT $80;
INPUT SEGMENT;  * DETERMINE RECORD LENGTH ;
CALL SYMPUT ('LLENGTH', LEFT(PUT(RECLENG,3.)));
CALL SYMPUT ('LFORMAT', '$CHAR'||TRIM(LEFT(PUT(RECLENG,3.)))||'.');
LINPUT=' ';
FULLSTR="&LKEYS";
DO I=1 TO 4;
  * PROCESS SEGMENTS WHICH BEGIN WITH  '@' AND END WITH '.' ;
  I1=INDEX(FULLSTR,'@');
  I2=INDEX(FULLSTR,'.');
  IF I1=0 OR I2=0 THEN GOTO ENDLOOP1;
  SEGMENT=SUBSTR(FULLSTR,I1,I2);
  LINPUT=TRIM(LINPUT)||' '||SCAN(SEGMENT,1,' ')||' _LKEY'||PUT(I,1.)
                     ||' '||SCAN(SEGMENT,2,' ');
  IF I2=LENGTH(TRIM(FULLSTR)) THEN GOTO ENDLOOP1;
  FULLSTR=LEFT(SUBSTR(FULLSTR,I2+1));
  END;
ENDLOOP1:
LEVELS=I;
CALL SYMPUT ('LINPUT' ,LINPUT);
CALL SYMPUT ('LLEVELS',PUT(LEVELS,1.));
STOP;
RUN;

* DEFINE STATEMENTS NEEDED FOR RIGHT FILE/DATASET;
DATA _NULL_;
LENGTH SEGMENT $20 RINPUT $80;
*;
* RIGHT FILE;
IF INDEX("&RNAME","'") OR NOT INDEX("&RNAME",'.') THEN DO;
  * CASE 1: RIGHT IS FLAT FILE (NAME IS EITHER ENCOSED IN QUOTES ;
  *         OR DOES NOT CONTAIN A PERIOD) ;
  CALL SYMPUT ('RSAS',' ');
  RINPUT=' ';
  FULLSTR="&RKEYS";
  DO I=1 TO 4;
    * PROCESS SEGMENTS WHICH BEGIN WITH  '@' AND END WITH '.' ;
    I1=INDEX(FULLSTR,'@');
    I2=INDEX(FULLSTR,'.');
    IF I1=0 OR I2=0 THEN GOTO ENDLOOP1;
    SEGMENT=SUBSTR(FULLSTR,I1,I2);
    RINPUT=TRIM(RINPUT)||' '||SCAN(SEGMENT,1,' ')||' _RKEY'||PUT(I,1.)
                       ||' '||SCAN(SEGMENT,2,' ');
    IF I2=LENGTH(TRIM(FULLSTR)) THEN GOTO ENDLOOP1;
    FULLSTR=LEFT(SUBSTR(FULLSTR,I2+1));
    END;
  ENDLOOP1:
  LEVELS=I-1;
  CALL SYMPUT ('RINPUT' ,RINPUT);
  CALL SYMPUT ('RLEVELS',PUT(LEVELS,1.));
  END;
ELSE DO;
  * CASE 2: RIGHT IS SAS DATASET;
  CALL SYMPUT ('RSAS',"&RNAME");
  LENGTH REN_STMT $80;
  REN_STMT='(';
  FULLSTR="&RKEYS";
  DO I=1 TO 4;
    * DEFINE RENAME PAIRS;
    SEGMENT=SCAN(FULLSTR,I,' ');
    IF SEGMENT^=' ' THEN
      REN_STMT=TRIM(REN_STMT)||' '||SEGMENT||'='||'_RKEY'||PUT(I,1.);
    IF I=1 THEN REN_STMT=COMPRESS(REN_STMT);
    END;
  REN_STMT=TRIM(REN_STMT)||')';
  CALL SYMPUT ('RENAME',TRIM(REN_STMT));
  END;
RUN;

DATA _NULL_;
%IF &RSAS^= %THEN %DO;
  SET &RSAS (RENAME=&RENAME) END=__RDONE ;
  INFILE &LNAME END=__LDONE ;
  __RCOUNT+1;
  %END;
FILE &OUTNAME ;

* COUNTS OF RECORDS READ AND AND OUTPUT;
RETAIN __LCOUNT __RCOUNT __OCOUNT 0;
* FLAGS TO READ KEY FROM LEFT/RIGHT SIDE ON NEXT PASS;
RETAIN LFLAG RFLAG 1;
* FULL I/O RECORD;
LENGTH RECORD $&LLENGTH ;
* KEYS;
%DO I=1 %TO &LLEVELS ;
  RETAIN _LKEY&I _RKEY&I ;
  DROP   _LKEY&I _RKEY&I ;
  %END;

NEXTLEFT:
IF LFLAG THEN DO;
  INFILE &LNAME END=__LDONE %STR(;) ;
  INPUT &LINPUT @@ ;
  __LCOUNT+1;
  LFLAG=0;
  END;

%* INPUT RIGHT KEYS IF RIGHT SIDE IS FLATFILE ;
%IF &RSAS= %THEN %DO;
  NEXTRIGH:
  IF RFLAG THEN DO;
    INFILE &RNAME END=__RDONE;
    INPUT &RINPUT ;
    __RCOUNT+1;
    RFLAG=0;
    END;
  %END;

* CHECK RELATIONSHIP BETWEEN LEFT:RIGHT KEYS ;
%IF &LLEVELS=1 %THEN IF _LKEY1<_RKEY1 THEN DO %STR(;) ;
%ELSE %DO;
  %DO I=1 %TO %EVAL(&LLEVELS-1);
    %IF &I=1 %THEN IF ;
             %ELSE AND ;
    %LET J=%EVAL(&LLEVELS-&I+1);
    _LKEY&J=_RKEY&J
    %END;
  %END;

  * LEFT SIDE BEHIND RIGHT SIDE ;
  %IF %UPCASE(&KEEP)=NOMATCH %THEN LINK IOLEFT   %STR(;) ;
                             %ELSE LINK SKIPLEFT %STR(;) ;
  LFLAG=1;
  IF NOT __LDONE THEN GOTO NEXTLEFT;
                 ELSE GOTO FINISHED;
  END;

%* NEXT CHECK FOR EQUALITY OF KEYS ;
%DO I=1 %TO &LLEVELS;
  %IF &I=1 %THEN ELSE IF _LKEY1=_RKEY1 ;
  %ELSE AND _LKEY&I=_RKEY&I ;
  %END;
THEN DO;
  * LEFT AND RIGHT SIDES MATCH ;
  %IF %UPCASE(&KEEP)^=NOMATCH %THEN LINK IOLEFT %STR(;) ;
                              %ELSE LINK SKIPLEFT %STR(;);
  LFLAG=1;
  IF NOT __LDONE THEN GOTO NEXTLEFT;
                 ELSE GOTO FINISHED;
  END;

* RIGHT SIDE BEHIND LEFT SIDE;
ELSE DO;
  %IF %UPCASE(&KEEP)^=NOMATCH %THEN %DO;
  %* WHEN OUTPUTING MATCHES;
    RFLAG=1;
    IF __RDONE THEN GOTO FINISHED;
    %END;
  %ELSE %DO;
  %* WHEN OUTPUTING MISMATCHES;
    IF __RDONE THEN DO;
      * I/O EVERYTHING REMAINING ON LEFT;
      __LCOUNT=__LCOUNT-1;
      __LDONE=0;
      DO WHILE (NOT __LDONE);
        LINK IOLEFT;
        __LCOUNT+1;
        END;
      GOTO FINISHED;
      END;
    * OTHERWISE RECYCLE FOR NEXT RIGHT;
    ELSE RFLAG=1;
    %END;
  END;
RETURN;

IOLEFT:
  INFILE &LNAME END=__LDONE EOF=FINISH0;
  INPUT @1 RECORD &LFORMAT ;
  PUT   RECORD &LFORMAT ;
  __OCOUNT+1;
  RETURN;

SKIPLEFT:
  INFILE &LNAME END=__LDONE ;
  INPUT ;
  RETURN;

FINISH0:
* FORCE LEFT SIDE TO BE DONE;
__LDONE=1;
FINISHED:
  FILE LOG;
  PUT '*************************************************';
  PUT 'COUNT FROM LEFT  FILE= ' __LCOUNT          ;
  IF NOT __LDONE THEN
  PUT '*** MERGE FINISHED BEFORE LEFT FILE EXHAUSTED ***' ;
  PUT 'COUNT FROM RIGHT FILE= ' __RCOUNT          ;
  IF NOT __RDONE THEN
  PUT '*** MERGE FINISHED BEFORE RIGHT FILE EXHAUSTED **' ;
  PUT 'COUNT TO  OUTPUT FILE= ' __OCOUNT          ;
  PUT '*************************************************';
  STOP;
RUN;

%MEND MMERGE;

*</PRE>;

<!--'"</title></head>-->

<script type="text/javascript">
//OwnerIQ
var __oiq_pct = 50;
if( __oiq_pct>=100 || Math.floor(Math.random()*100/(100-__oiq_pct)) > 0 ) {
var _oiqq = _oiqq || [];
_oiqq.push(['oiq_addPageBrand','Lycos']);
_oiqq.push(['oiq_addPageCat','Internet > Websites']);
_oiqq.push(['oiq_addPageLifecycle','Intend']);
_oiqq.push(['oiq_doTag']);
(function() {
var oiq = document.createElement('script'); oiq.type = 'text/javascript'; oiq.async = true;
oiq.src = document.location.protocol + '//px.owneriq.net/stas/s/lycosn.js';
var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(oiq, s);
})();
}
//Google Analytics
var _gaq = _gaq || [];
_gaq.push(['_setAccount','UA-21402695-19']);
_gaq.push(['_setDomainName','tripod.com']);
_gaq.push(['_setCustomVar',1,'member_name','schick',3]);
_gaq.push(['_trackPageview']);
(function() {
var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true;
ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js';
var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s);
})();
//Lycos Init
function getReferrer() {
var all= this.document.cookie;
if (all== '') return false;
var cookie_name = 'REFERRER=';
var start = all.lastIndexOf(cookie_name);
if (start == -1) return false;
start += cookie_name.length;
var end = all.indexOf(';', start);
if (end == -1) end = all.length;
return all.substring(start, end);
}
function getQuery() {
var rfr = getReferrer();
if (rfr == '') return false;
var q = extractQuery(rfr, 'yahoo.com', 'p=');
if (q) return q;
q = extractQuery(rfr, '', 'q=');
return q ? q : "";
}
function extractQuery(full, site, q_param) {
var start = full.lastIndexOf(site);
if (start == -1) return false;
start = full.lastIndexOf(q_param);
if (start == -1) return false;
start += q_param.length;
var end = full.indexOf('&', start);
if (end == -1) end = full.length;
return unescape(full.substring(start, end)).split(" ").join("+");
}
function generateHref(atag, template){
atag.href=template.replace('_MYURL_', window.location.href.replace('http://', '')).replace('_MYTITLE_','Check%20out%20this%20Tripod%20Member%20site!'); 
}
var lycos_ad = Array();
var lycos_onload_timer;
var cm_role = "live";
var cm_host = "tripod.lycos.com";
var cm_taxid = "/memberembedded";
var tripod_member_name = "schick";
var tripod_member_page = "schick/easytriv.sas";
var tripod_ratings_hash = "1713583780:d9622b7a001021883cb8077374816688";

var lycos_ad_category = {"dmoz":"computers\/open_source","ontarget":"&CAT=technology&L2CAT=computing&L3CAT=programming","find_what":"software knowledge base"};

var lycos_ad_remote_addr = "209.202.244.9";
var lycos_ad_www_server = "www.tripod.lycos.com";
var lycos_ad_track_small = "";
var lycos_ad_track_served = "";
var lycos_search_query = getQuery();
</script>

<script type="text/javascript" src="https://scripts.lycos.com/catman/init.js"></script>

<script type='text/javascript'>
 var googletag = googletag || {};
 googletag.cmd = googletag.cmd || [];
 (function() {
   var gads = document.createElement('script');
   gads.async = true;
   gads.type = 'text/javascript';
   var useSSL = 'https:' == document.location.protocol;
   gads.src = (useSSL ? 'https:' : 'http:') +
     '//www.googletagservices.com/tag/js/gpt.js';
   var node = document.getElementsByTagName('script')[0];
   node.parentNode.insertBefore(gads, node);
 })();
</script>

<script type='text/javascript'>
 googletag.cmd.push(function() {
   googletag.defineSlot('/95963596/TRI_300X250_dfp', [300, 250], 'div-gpt-ad-1450204159126-0').addService(googletag.pubads());
   googletag.defineSlot('/95963596/TRI_above_728x90_dfp', [728, 90], 'div-gpt-ad-1450204159126-1').addService(googletag.pubads());
   googletag.defineSlot('/95963596/TRI_below_728x90_dfp', [728, 90], 'div-gpt-ad-1450204159126-2').addService(googletag.pubads());
   googletag.pubads().enableSingleRequest();
   googletag.enableServices();
 });
</script>


<script type="text/javascript"> 
(function(isV)
{
    if( !isV )
    {
        return;
    }
    var adMgr = new AdManager();
    var lycos_prod_set = adMgr.chooseProductSet();
    var slots = ["leaderboard", "leaderboard2", "toolbar_image", "toolbar_text", "smallbox", "top_promo", "footer2", "slider"];
    var adCat = this.lycos_ad_category;
    adMgr.setForcedParam('page', (adCat && adCat.dmoz) ? adCat.dmoz : 'member');
    if (this.lycos_search_query)
    {
        adMgr.setForcedParam("keyword", this.lycos_search_query);
    } 
    else if(adCat && adCat.find_what)
    {
        adMgr.setForcedParam('keyword', adCat.find_what);
    }
    
    for (var s in slots)
    {
        var slot = slots[s];
        if (adMgr.isSlotAvailable(slot))
        {
            this.lycos_ad[slot] = adMgr.getSlot(slot);
        }
    }

    adMgr.renderHeader();
    adMgr.renderFooter();
}((function() {

var w = 0, h = 0, minimumThreshold = 300;

if (top == self)
{
    return true;
}
if (typeof(window.innerWidth) == 'number' )
{
    w = window.innerWidth;
    h = window.innerHeight;
}
else if (document.documentElement && (document.documentElement.clientWidth || document.documentElement.clientHeight))
{
    w = document.documentElement.clientWidth;
    h = document.documentElement.clientHeight;
}
else if (document.body && (document.body.clientWidth || document.body.clientHeight))
{
    w = document.body.clientWidth;
    h = document.body.clientHeight;
}
return ((w > minimumThreshold) && (h > minimumThreshold));
}())));




window.onload = function()
{
    var f = document.getElementById("FooterAd");
    var b = document.getElementsByTagName("body")[0];
    b.appendChild(f);
    f.style.display = "block";
    document.getElementById('lycosFooterAdiFrame').src = '/adm/ad/footerAd.iframe.html';
    


    
    // DOM Inj Ad
    (function(isTrellix)
    {
        var e = document.createElement('iframe');
        e.style.border = '0';
        e.style.margin = 0;
        e.style.display = 'block';
        e.style.cssFloat = 'right';
        e.style.height = '254px';
        e.style.overflow = 'hidden';
        e.style.padding = 0;
        e.style.width = '300px';


        var isBlokedByDomain = function( href )
        {
            var blockedDomains = [
                "ananyaporn13000.tripod.com",
                "xxxpornxxx.tripod.com"
            ];
            var flag = false;
            
            for( var i=0; i<blockedDomains.length; i++ )
            {
                if( href.search( blockedDomains[ i ] ) >= 0 )
                {
                    flag = true;
                }
            }
            return flag;
        }

        var getMetaContent = function( metaName )
        {
            var metas = document.getElementsByTagName('meta');
            for (i=0; i<metas.length; i++)
            { 
                if( metas[i].getAttribute("name") == metaName )
                { 
                    return metas[i].getAttribute("content"); 
                } 
            }
            return false;
        }
        
        var getCommentNodes = function(regexPattern)
        {
            var nodes = {};
            var nodesA = [];
            var preferredNodesList = ['a', 'c', 'b'];
        
            (function getNodesThatHaveComments(n, pattern)
            {
                if (n.hasChildNodes())
                {
                    if (n.tagName === 'IFRAME')
                    {
                        return false;
                    }
                    for (var i = 0; i < n.childNodes.length; i++)
                    {
                        if ((n.childNodes[i].nodeType === 8) && (pattern.test(n.childNodes[i].nodeValue)))
                        {
                            var areaName = pattern.exec(n.childNodes[i].nodeValue)[1];
                            nodes[areaName] = n;
                        }
                        else if (n.childNodes[i].nodeType === 1)
                        {
                            getNodesThatHaveComments(n.childNodes[i], pattern);
                        }
                    }
                }
            }(document.body, regexPattern));

            for (var i in preferredNodesList)
            {
                if (nodes[preferredNodesList[i]])
                {
                    if( isTrellix && nodes[preferredNodesList[i]].parentNode.parentNode.parentNode.parentNode )
                    {
                        nodesA.push(nodes[preferredNodesList[i]].parentNode.parentNode.parentNode.parentNode);
                    }
                    else
                    {
                        nodesA.push( nodes[preferredNodesList[i]] );
                    }
                }
            }
            return nodesA;
        }
        
        
        var properNode = null;
        var areaNodes = getCommentNodes( new RegExp( '^area Type="area_(\\w+)"' ) );

        for (var i = 0; i < areaNodes.length; i++)
        {
            var a = parseInt(getComputedStyle(areaNodes[i]).width);
            if ((a >= 300) && (a <= 400))
            {
                properNode = areaNodes[i];
                break;
            }
        }


        var propertyName = getMetaContent("property") || false;
        if( isTrellix && (properNode) )
        {
            e.src = '/adm/ad/injectAd.iframe.html';
            properNode.insertBefore(e, properNode.firstChild);
        }
        else if( isTrellix && !( properNode ) ) // Slap the ad eventhought there is no alocated slot
        {
            e.src = '/adm/ad/injectAd.iframe.html';
            e.style.cssFloat = 'none';
            var cdiv = document.createElement('div');
            cdiv.style = "width:300px;margin:10px auto;";
            cdiv.appendChild( e );
            b.insertBefore(cdiv, b.lastChild);
        }
        else if( !isBlokedByDomain( location.href ) )
        {
            var injF = document.createElement('iframe');
            injF.style.border = '0';
            injF.style.margin = 0;
            injF.style.display = 'block';
            injF.style.cssFloat = 'none';
            injF.style.height = '254px';
            injF.style.overflow = 'hidden';
            injF.style.padding = 0;
            injF.style.width = '300px';
            injF.src = '/adm/ad/injectAd.iframe.html';

            if( b && ( !isTrellix || ( typeof isTrellix == "undefined" ) ) ) // All other tripod props
            {
                var cdiv = document.createElement('div');
                cdiv.style = "width:300px;margin:10px auto;";
                cdiv.appendChild( injF );
                b.insertBefore(cdiv, b.lastChild);
            } 
        }
  }( document.isTrellix ));
}

</script>

<div id="tb_container" style="background:#DFDCCF; border-bottom:1px solid #393939; position:relative; z-index:999999999!important">
<!--form name="search" onSubmit="return searchit()" id='header_search' >
<input type="text" placeholder="Search" size=30 name="search2" value="">
<input type="button" value="Go!" onClick="searchit()">
</form>
<style>
form#header_search {
    width: 916px;
    margin: 0 auto 8px;
    position: relative;
}


form#header_search input {
    height: 40px;
    font-size: 14px;
    line-height: 40px;
    padding: 0 8px;
    box-sizing: border-box;
    background: #F4F2E9;
    border: 1px solid #BBB8B8;
    transition: background-color 300ms ease-out,
                color 300ms ease;
}

form#header_search input[type="text"] {
    width: 100%;
}
form#header_search input[type="text"]:focus {
    border-color: #A2D054;
    background-color: #fff;
    box-shadow: 0 0px 12px -4px #A2D054;
}



form#header_search input[type="button"] {
    position: absolute;
    top: 1px;
    right: 1px;
    opacity: 1;
    background: #DFDCCF;
    color: #463734;
    width: 125px;
    cursor: pointer;
    height: 38px;
    border: none;
}
form#header_search input[type="text"]:focus ~ input[type='button']:hover,
form#header_search input[type='button']:hover {
    background-color: #A5CE56;
    color: #fff;
}
form#header_search input[type="text"]:focus ~ input[type='button'] {
    background-color: #52AEDF;
    color: #fff;
}

</style>

<script>
function searchit(){
    
    // determine environment 
    var search_env 
    if (lycos_ad_www_server.indexOf(".pd.") > -1) {
       search_env = 'http://search51.pd.lycos.com/a/';
    } else if (lycos_ad_www_server.indexOf(".qa.") > -1) {
       search_env = 'http://search51.qa.lycos.com/a/';
    } else {
       search_env = 'http://search51.lycos.com/a/';
    }

var search_term = encodeURIComponent(document.search.search2.value)
var search_url = search_env+search_term;
window.open(search_url);

return false
}
</script-->
<style>
    .adCenterClass{margin:0 auto}
</style>
<div id="tb_ad" class="adCenterClass" style="display:block!important; overflow:hidden; width:916px;">

<div id="ad_container" style="display:block!important; float:left; width:728px ">
<script type="text/javascript">
if (typeof lycos_ad !== "undefined" && "leaderboard" in lycos_ad) {
  document.write(lycos_ad['leaderboard']);
}
</script>
</div>
</div>
</div>
<script type="text/javascript">
if (typeof lycos_ad !== "undefined" && "slider" in lycos_ad) {
  document.write(lycos_ad['slider']);
}
</script> <!-- added 7/22 -->
<div id="FooterAd" style="background:#DFDCCF; border-top:1px solid #393939; clear:both; display:none; width:100%!important; position:relative; z-index:999999!important; height:90px!important"> 
<div class="adCenterClass" style="display:block!important; overflow:hidden; width:916px;">
<div id="footerAd_container" style="display:block!important; float:left; width:728px">
<iframe id="lycosFooterAdiFrame" style="border:0; display:block; float:left; height:96px; overflow:hidden; padding:0; width:750px"></iframe>
</div>
</div>
</div>