/*** AGTSTATE.SAS ***/
IF TARSTATE = 'AK' THEN SET WA NOBS=HSB POINT=H;
ELSE IF TARSTATE = 'AL' THEN SET AL NOBS=HSB POINT=H;
ELSE IF TARSTATE = 'AR' THEN SET AR NOBS=HSB POINT=H;
ELSE IF TARSTATE = 'AZ' THEN SET AZ NOBS=HSB POINT=H;
ELSE IF TARSTATE = 'CA' THEN SET CA NOBS=HSB POINT=H;
ELSE IF TARSTATE = 'CO' THEN SET CO NOBS=HSB POINT=H;
ELSE IF TARSTATE = 'CT' THEN SET CT NOBS=HSB POINT=H;
ELSE IF TARSTATE = 'DC' THEN SET MD NOBS=HSB POINT=H;
ELSE IF TARSTATE = 'DE' THEN SET MD NOBS=HSB POINT=H;
ELSE IF TARSTATE = 'FL' THEN SET FL NOBS=HSB POINT=H;
ELSE IF TARSTATE = 'GA' THEN SET GA NOBS=HSB POINT=H;
ELSE IF TARSTATE = 'HI' THEN SET WA NOBS=HSB POINT=H;
ELSE IF TARSTATE = 'IA' THEN SET IA NOBS=HSB POINT=H;
ELSE IF TARSTATE = 'ID' THEN SET ID NOBS=HSB POINT=H;
ELSE IF TARSTATE = 'IL' THEN SET IL NOBS=HSB POINT=H;
ELSE IF TARSTATE = 'IN' THEN SET IN NOBS=HSB POINT=H;
ELSE IF TARSTATE = 'KS' THEN SET KS NOBS=HSB POINT=H;
ELSE IF TARSTATE = 'KY' THEN SET KY NOBS=HSB POINT=H;
ELSE IF TARSTATE = 'LA' THEN SET LA NOBS=HSB POINT=H;
ELSE IF TARSTATE = 'MA' THEN SET MA NOBS=HSB POINT=H;
ELSE IF TARSTATE = 'MD' THEN SET MD NOBS=HSB POINT=H;
ELSE IF TARSTATE = 'ME' THEN SET ME NOBS=HSB POINT=H;
ELSE IF TARSTATE = 'MI' THEN SET MI NOBS=HSB POINT=H;
ELSE IF TARSTATE = 'MN' THEN SET MN NOBS=HSB POINT=H;
ELSE IF TARSTATE = 'MO' THEN SET MO NOBS=HSB POINT=H;
ELSE IF TARSTATE = 'MS' THEN SET MS NOBS=HSB POINT=H;
ELSE IF TARSTATE = 'MT' THEN SET MT NOBS=HSB POINT=H;
ELSE IF TARSTATE = 'NC' THEN SET NC NOBS=HSB POINT=H;
ELSE IF TARSTATE = 'ND' THEN SET ND NOBS=HSB POINT=H;
ELSE IF TARSTATE = 'NE' THEN SET NE NOBS=HSB POINT=H;
ELSE IF TARSTATE = 'NH' THEN SET NH NOBS=HSB POINT=H;
ELSE IF TARSTATE = 'NJ' THEN SET NJ NOBS=HSB POINT=H;
ELSE IF TARSTATE = 'NM' THEN SET NM NOBS=HSB POINT=H;
ELSE IF TARSTATE = 'NV' THEN SET NV NOBS=HSB POINT=H;
ELSE IF TARSTATE = 'NY' THEN SET NY NOBS=HSB POINT=H;
ELSE IF TARSTATE = 'OH' THEN SET OH NOBS=HSB POINT=H;
ELSE IF TARSTATE = 'OK' THEN SET OK NOBS=HSB POINT=H;
ELSE IF TARSTATE = 'OR' THEN SET OR NOBS=HSB POINT=H;
ELSE IF TARSTATE = 'PA' THEN SET PA NOBS=HSB POINT=H;
ELSE IF TARSTATE = 'RI' THEN SET CT NOBS=HSB POINT=H;
ELSE IF TARSTATE = 'SC' THEN SET SC NOBS=HSB POINT=H;
ELSE IF TARSTATE = 'SD' THEN SET SD NOBS=HSB POINT=H;
ELSE IF TARSTATE = 'TN' THEN SET TN NOBS=HSB POINT=H;
ELSE IF TARSTATE = 'TX' THEN SET TX NOBS=HSB POINT=H;
ELSE IF TARSTATE = 'UT' THEN SET NV NOBS=HSB POINT=H;
ELSE IF TARSTATE = 'VA' THEN SET VA NOBS=HSB POINT=H;
ELSE IF TARSTATE = 'VT' THEN SET NH NOBS=HSB POINT=H;
ELSE IF TARSTATE = 'WA' THEN SET WA NOBS=HSB POINT=H;
ELSE IF TARSTATE = 'WI' THEN SET WI NOBS=HSB POINT=H;
ELSE IF TARSTATE = 'WV' THEN SET MD NOBS=HSB POINT=H;
ELSE IF TARSTATE = 'WY' THEN SET NV NOBS=HSB POINT=H;
/*** end of sas program - agtstate ***/
/*** AGTSTAT1.SAS ***/
IF SCRSTATE = 'AK' THEN OUTPUT WA;
ELSE IF SCRSTATE = 'AL' THEN OUTPUT AL;
ELSE IF SCRSTATE = 'AR' THEN OUTPUT AR;
ELSE IF SCRSTATE = 'AZ' THEN OUTPUT AZ;
ELSE IF SCRSTATE = 'CA' THEN OUTPUT CA;
ELSE IF SCRSTATE = 'CO' THEN OUTPUT CO;
ELSE IF SCRSTATE = 'CT' THEN OUTPUT CT;
ELSE IF SCRSTATE = 'DC' THEN OUTPUT MD;
ELSE IF SCRSTATE = 'DE' THEN OUTPUT MD;
ELSE IF SCRSTATE = 'FL' THEN OUTPUT FL;
ELSE IF SCRSTATE = 'GA' THEN OUTPUT GA;
ELSE IF SCRSTATE = 'HI' THEN OUTPUT WA;
ELSE IF SCRSTATE = 'IA' THEN OUTPUT IA;
ELSE IF SCRSTATE = 'ID' THEN OUTPUT ID;
ELSE IF SCRSTATE = 'IL' THEN OUTPUT IL;
ELSE IF SCRSTATE = 'IN' THEN OUTPUT IN;
ELSE IF SCRSTATE = 'KS' THEN OUTPUT KS;
ELSE IF SCRSTATE = 'KY' THEN OUTPUT KY;
ELSE IF SCRSTATE = 'LA' THEN OUTPUT LA;
ELSE IF SCRSTATE = 'MA' THEN OUTPUT MA;
ELSE IF SCRSTATE = 'MD' THEN OUTPUT MD;
ELSE IF SCRSTATE = 'ME' THEN OUTPUT ME;
ELSE IF SCRSTATE = 'MI' THEN OUTPUT MI;
ELSE IF SCRSTATE = 'MN' THEN OUTPUT MN;
ELSE IF SCRSTATE = 'MO' THEN OUTPUT MO;
ELSE IF SCRSTATE = 'MS' THEN OUTPUT MS;
ELSE IF SCRSTATE = 'MT' THEN OUTPUT MT;
ELSE IF SCRSTATE = 'NC' THEN OUTPUT NC;
ELSE IF SCRSTATE = 'ND' THEN OUTPUT ND;
ELSE IF SCRSTATE = 'NE' THEN OUTPUT NE;
ELSE IF SCRSTATE = 'NH' THEN OUTPUT NH;
ELSE IF SCRSTATE = 'NJ' THEN OUTPUT NJ;
ELSE IF SCRSTATE = 'NM' THEN OUTPUT NM;
ELSE IF SCRSTATE = 'NV' THEN OUTPUT NV;
ELSE IF SCRSTATE = 'NY' THEN OUTPUT NY;
ELSE IF SCRSTATE = 'OH' THEN OUTPUT OH;
ELSE IF SCRSTATE = 'OK' THEN OUTPUT OK;
ELSE IF SCRSTATE = 'OR' THEN OUTPUT OR;
ELSE IF SCRSTATE = 'PA' THEN OUTPUT PA;
ELSE IF SCRSTATE = 'RI' THEN OUTPUT CT;
ELSE IF SCRSTATE = 'SC' THEN OUTPUT SC;
ELSE IF SCRSTATE = 'SD' THEN OUTPUT SD;
ELSE IF SCRSTATE = 'TN' THEN OUTPUT TN;
ELSE IF SCRSTATE = 'TX' THEN OUTPUT TX;
ELSE IF SCRSTATE = 'UT' THEN OUTPUT NV;
ELSE IF SCRSTATE = 'VA' THEN OUTPUT VA;
ELSE IF SCRSTATE = 'VT' THEN OUTPUT NH;
ELSE IF SCRSTATE = 'WA' THEN OUTPUT WA;
ELSE IF SCRSTATE = 'WI' THEN OUTPUT WI;
ELSE IF SCRSTATE = 'WV' THEN OUTPUT MD;
ELSE IF SCRSTATE = 'WY' THEN OUTPUT NV; OUTPUT HSB;
/*** end of sas program - agtstat1 ***/
/*** STDNAME.SAS ***/
%MACRO STDNAME (TARNAME);
IF 0 LT INDEX(&TARNAME,'AMERICAN' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'AMERICAN' )),8 )='AMERCN';
IF 0 LT INDEX(&TARNAME,' AND ' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,' AND ' )),5 )=' ' ;
IF 0 LT INDEX(&TARNAME,' OF ' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,' OF ' )),4 )=' ' ;
IF 0 LT INDEX(&TARNAME,'AGENT' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'AGENT' )),5 )='AGY' ;
IF 0 LT INDEX(&TARNAME,'AGENCY' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'AGENCY' )),6 )='AGY' ;
IF 0 LT INDEX(&TARNAME,'AGENCIES' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'AGENCIES' )),8 )='AGY' ;
IF 0 LT INDEX(&TARNAME,'AGCY' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'AGCY' )),4 )='AGY' ;
IF 0 LT INDEX(&TARNAME,'AGTS ' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'AGTS ' )),5 )='AGY' ;
IF 0 LT INDEX(&TARNAME,'AGT ' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'AGT ' )),4 )='AGY' ;
IF 0 LT INDEX(&TARNAME,'APARTMENTS' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'APARTMENTS' )),10)='APT' ;
IF 0 LT INDEX(&TARNAME,'APARTMENT' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'APARTMENT' )),9 )='APT' ;
IF 0 LT INDEX(&TARNAME,'ASSOCIATES' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'ASSOCIATES' )),10)='ASSOC' ;
IF 0 LT INDEX(&TARNAME,'ASSOCIATED' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'ASSOCIATED' )),10)='ASSOC' ;
IF 0 LT INDEX(&TARNAME,'ASSOCIATE' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'ASSOCIATE' )),9 )='ASSOC' ;
IF 0 LT INDEX(&TARNAME,'ASSOCIA' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'ASSOCIA' )),7 )='ASSOC' ;
IF 0 LT INDEX(&TARNAME,'BROKERAGE' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'BROKERAGE' )),9 )='BRKR' ;
IF 0 LT INDEX(&TARNAME,'BROKERS' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'BROKERS' )),7 )='BRKR' ;
IF 0 LT INDEX(&TARNAME,'BROKER' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'BROKER' )),6 )='BRKR' ;
IF 0 LT INDEX(&TARNAME,'BROTHERS' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'BROTHERS' )),8 )='BROS' ;
IF 0 LT INDEX(&TARNAME,'CASUALTY' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'CASUALTY' )),8 )='CASLTY';
IF 0 LT INDEX(&TARNAME,'CASUAL' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'CASUAL' )),6 )='CASLTY';
IF 0 LT INDEX(&TARNAME,'COMPANY' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'COMPANY' )),7 )='CO' ;
IF 0 LT INDEX(&TARNAME,'COMMERICAL' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'COMMERICAL'
)),10)='COMMERCIAL';
IF 0 LT INDEX(&TARNAME,'CORPORATION' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'CORPORATION')),11)='CORP' ;
IF 0 LT INDEX(&TARNAME,'CORPORATE' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'CORPORATE' )),9 )='CORP' ;
IF 0 LT INDEX(&TARNAME,'CONSULTANTS' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'CONSULTANTS')),11)='CONSLT';
IF 0 LT INDEX(&TARNAME,'CONSULTING' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'CONSULTING' )),10)='CONSLT';
IF 0 LT INDEX(&TARNAME,'CONSULTANT' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'CONSULTANT' )),11)='CONSLT';
IF 0 LT INDEX(&TARNAME,'CONSULT' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'CONSULT' )),11)='CONSLT';
IF 0 LT INDEX(&TARNAME,'COUNSELORS' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'COUNSELORS' )),10)='CNSLR' ;
IF 0 LT INDEX(&TARNAME,'COUNSELOR' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'COUNSELOR' )),9 )='CNSLR' ;
IF 0 LT INDEX(&TARNAME,'COUNSEL' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'COUNSEL' )),7 )='CNSLR' ;
IF 0 LT INDEX(&TARNAME,'DISTRICTS' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'DISTRICTS' )),9 )='DIST ' ;
IF 0 LT INDEX(&TARNAME,'DISTRICT' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'DISTRICT' )),8 )='DIST ' ;
IF 0 LT INDEX(&TARNAME,'DEPARTMENT' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'DEPARTMENT' )),10)='DEPT ' ;
IF 0 LT INDEX(&TARNAME,'ENTERPRISES' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'ENTERPRISES')),11)='ENTPRZ';
IF 0 LT INDEX(&TARNAME,'ENTERPISES' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'ENTERPISES' )),10)='ENTPRZ';
IF 0 LT INDEX(&TARNAME,'FINANCIAL' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'FINANCIAL' )),9 )='FINCIAL';
IF 0 LT INDEX(&TARNAME,'FINANICAL' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'FINANICAL' )),9 )='FINCIAL';
IF 0 LT INDEX(&TARNAME,'FINANCE' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'FINANCE' )),7 )='FINCIAL';
IF 0 LT INDEX(&TARNAME,'GROUP ' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'GROUP ' )),6 )='GRP ' ;
IF 0 LT INDEX(&TARNAME,'GENERAL' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'GENERAL' )),7 )='GNRL' ;
IF 0 LT INDEX(&TARNAME,'INDEPENDENT' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'INDEPENDENT')),11)='INDEP' ;
IF 0 LT INDEX(&TARNAME,'INSURANCE' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'INSURANCE' )),9 )='INS' ;
IF 0 LT INDEX(&TARNAME,'INSURNACE' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'INSURNACE' )),9 )='INS' ;
IF 0 LT INDEX(&TARNAME,'INSTITUTION' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'INSTITUTION')),11)='INSTIT';
IF 0 LT INDEX(&TARNAME,'INSTITUTE' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'INSTITUTE' )),9 )='INSTIT';
IF 0 LT INDEX(&TARNAME,'INTERNATIONAL') THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'INTERNATIONAL')),13)='INTL' ;
IF 0 LT INDEX(&TARNAME,"INT'L" ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,"INT'L" )),5 )='INTL' ;
IF 0 LT INDEX(&TARNAME,'LIMITED' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'LIMITED' )),7 )='LTD' ;
IF 0 LT INDEX(&TARNAME,'MANAGERMENT' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'MANAGERMENT')),11)='MGR' ;
IF 0 LT INDEX(&TARNAME,'MANAGERS' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'MANAGERS' )),8 )='MGR' ;
IF 0 LT INDEX(&TARNAME,'MANAGERING' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'MANAGERING' )),10)='MGR' ;
IF 0 LT INDEX(&TARNAME,'MANAGER' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'MANAGER' )),7 )='MGR' ;
IF 0 LT INDEX(&TARNAME,'MGRS' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'MGRS' )),4 )='MGR' ;
IF 0 LT INDEX(&TARNAME,'MGMT' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'MGMT' )),4 )='MGR' ;
IF 0 LT INDEX(&TARNAME,'MGMT' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'MGMT' )),4 )='MGR' ;
IF 0 LT INDEX(&TARNAME,'MARKETING' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'MARKETING' )),9 )='MGKT' ;
IF 0 LT INDEX(&TARNAME,'MARKET' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'MARKET' )),6 )='MGKT' ;
IF 0 LT INDEX(&TARNAME,'MUTUAL' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'MUTUAL' )),6 )='MUT' ;
IF 0 LT INDEX(&TARNAME,'NATIONAL' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'NATIONAL' )),8 )='NATL' ;
IF 0 LT INDEX(&TARNAME,"NAT'L" ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,"NAT'L" )),5 )='NATL' ;
IF 0 LT INDEX(&TARNAME,'NUMBER' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'NUMBER' )),6 )='NBR' ;
IF 0 LT INDEX(&TARNAME,'PROPERTY' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'PROPERTY' )),8 )='PROP' ;
IF 0 LT INDEX(&TARNAME,' THE ' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,' THE ' )),5 )=' ' ;
IF 0 LT INDEX(&TARNAME,'C/O' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'C/O' )),3 )=' ' ;
IF 0 LT INDEX(&TARNAME,'DBA' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'DBA' )),3 )=' ' ;
IF 0 LT INDEX(&TARNAME,'D/B/A' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'D/B/A' )),5 )=' ' ;
IF 0 LT INDEX(&TARNAME,'D B A' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'D B A' )),5 )=' ' ;
IF 0 LT INDEX(&TARNAME,'T/A' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'T/A' )),3 )=' ' ;
IF 0 LT INDEX(&TARNAME,'OF ' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'OF ' )),3 )=' ' ;
IF 0 LT INDEX(&TARNAME,'SERVICES' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'SERVICES' )),8 )='SVCS' ;
IF 0 LT INDEX(&TARNAME,'SERVICE' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'SERVICE' )),7 )='SVCS' ;
IF 0 LT INDEX(&TARNAME,'REALTY' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'REALTY' )),6 )='RLTY' ;
IF 0 LT INDEX(&TARNAME,'REAL ESTATE' ) THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'REAL ESTATE')),11)='RLTY' ;
IF 0 LT INDEX(&TARNAME,'UNDERWRITERS') THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'UNDERWRITERS')),12)='UNDRWTRS';
IF 0 LT INDEX(&TARNAME,'UNDERWRITERING') THEN
SUBSTR(&TARNAME,(INDEX(&TARNAME,'UNDERWRITERING')),14)='UNDRWTRS';
&TARNAME = LEFT(&TARNAME);
&TARNAME = TRANSLATE(&TARNAME,'|',' ');
DO WHILE ( 0 LT INDEX(&TARNAME,'||'));
SUBSTR(&TARNAME,(INDEX(&TARNAME,'||') )) =
SUBSTR(&TARNAME,(INDEX(&TARNAME,'||') +1));
END;
&TARNAME = TRANSLATE(&TARNAME,' ','|');
%MEND STDNAME;
/*** end of sas program - STDNAME ***/
More Code - needed