Hello,   How to find the Neighbouring Repetitive Words？and get the repeated word.   For example, for the table 'have' APPLE LTD LTD USA Australia Japan USA FOOTBALL LTD FOOTBALL LP I would like to get APPLE LTD LTD | LTD Because it has an 'LTD LTD' which are together and are the same words. and then I would like to get a new variable which lists the word. in this example is ‘LTD'.   the USA Australia Japan USA FOOTBALL LTD FOOTBALL LP should not be extracted. although they have the same words they are not together. Could you please give me some suggestion about this? Thanks in advance.     data have; input string :$200.; infile datalines dlm=','; string=upcase(string); datalines; APPLE LTD LTD USA Australia Japan USA FOOTBALL LTD FOOTBALL LP ; run;     ... View more

Dear all, I am trying to find the company abbreviation that appeared first, by using the SMALLEST function. So,  I expect to get the smallest number of POS_: when the POS not equals 0. However, by using the following code, data HAVE; input NAME :& $800.; cards; !MAGINETHIS RENOVATIONS !OBAC #9060-0495 QUEBEC 3M INNOVATIVE PROPERTIES CO NIPPON TELEGRAPH & TELEPHONE CORP A. STUCKI CO A DELAWARE CORP AMANA CO LP A LTD PARTNERSHIP UNDER THE LAWS OF USA-DELAWARE FEDERAL-HOFFMAN INC D.B.A. FEDERAL CARTRIDGE CO 3M CO (MINNESOTA MINING AND MANUFACTURING COMPANY) 3M CO (MINNESOTA MINING AND MANUFACTURING COMPANY 3M CO (MINNESOTA MINING AND MANUFACTURING COMPANY) A LTD IN UK CRANE PLASTICS CO LTD PARTNERSHIP ABCCC DEF ALME run; data want; set have; patternID = prxparse('/ AB /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_AB,LEN_AB); if POS_AB =0 then POS_AB =.; if LEN_AB =0 then LEN_AB =.; patternID = prxparse('/ AG /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_AG,LEN_AG); if POS_AG =0 then POS_AG =.; if LEN_AG =0 then LEN_AG =.; patternID = prxparse('/ AS /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_AS,LEN_AS); if POS_AS =0 then POS_AS =.; if LEN_AS =0 then LEN_AS =.; patternID = prxparse('/ BV /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_BV,LEN_BV); if POS_BV =0 then POS_BV =.; if LEN_BV =0 then LEN_BV =.; patternID = prxparse('/ BV IO /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_BV_IO,LEN_BV_IO); if POS_BV_IO =0 then POS_BV_IO =.; if LEN_BV_IO =0 then LEN_BV_IO =.; patternID = prxparse('/ CO /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_CO,LEN_CO); if POS_CO=0 then POS_CO=.; if LEN_CO=0 then LEN_CO=.; patternID = prxparse('/ CO LTD /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_CO_LTD,LEN_CO_LTD); if POS_CO_LTD=0 then POS_CO_LTD=.; if LEN_CO_LTD=0 then LEN_CO_LTD=.; patternID = prxparse('/ CO BV /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_CO_BV,LEN_CO_BV); if POS_CO_BV=0 then POS_CO_BV=.; if LEN_CO_BV=0 then LEN_CO_BV=.; patternID = prxparse('/ CO KG /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_CO_KG,LEN_CO_KG); if POS_CO_KG=0 then POS_CO_KG=.; if LEN_CO_KG=0 then LEN_CO_KG=.; patternID = prxparse('/ CO LP /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_CO_LP,LEN_CO_LP); if POS_CO_LP =0 then POS_CO_LP =.; if LEN_CO_LP =0 then LEN_CO_LP =.; patternID = prxparse('/ CO LC /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_CO_LC,LEN_CO_LC); if POS_CO_LC =0 then POS_CO_LC =.; if LEN_CO_LC =0 then LEN_CO_LC =.; patternID = prxparse('/ CO LP /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_CO_LP,LEN_CO_LP); if POS_CO_LP =0 then POS_CO_LP =.; if LEN_CO_LP =0 then LEN_CO_LP =.; patternID = prxparse('/ CO INC /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_CO_INC,LEN_CO_INC); if POS_CO_INC =0 then POS_CO_INC =.; if LEN_CO_INC =0 then LEN_CO_INC =.; patternID = prxparse('/ CO LLC /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_CO_LLC,LEN_CO_LLC); if POS_CO_LLC =0 then POS_CO_LLC =.; if LEN_CO_LLC =0 then LEN_CO_LLC =.; patternID = prxparse('/ CORP /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_CORP,LEN_CORP); if POS_CORP =0 then POS_CORP =.; if LEN_CORP =0 then LEN_CORP =.; patternID = prxparse('/ COOP /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_COOP,LEN_COOP); if POS_COOP =0 then POS_COOP =.; if LEN_COOP =0 then LEN_COOP =.; patternID = prxparse('/ CV /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_CV,LEN_CV); if POS_CV =0 then POS_CV =.; if LEN_CV =0 then LEN_CV =.; patternID = prxparse('/ CY /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_CY,LEN_CY); if POS_CY =0 then POS_CY =.; if LEN_CY =0 then LEN_CY =.; patternID = prxparse('/ DOO /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_DOO,LEN_DOO); if POS_DOO =0 then POS_DOO =.; if LEN_DOO =0 then LEN_DOO =.; patternID = prxparse('/ EG /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_EG,LEN_EG); if POS_EG =0 then POS_EG =.; if LEN_EG =0 then LEN_EG =.; patternID = prxparse('/ HB /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_HB,LEN_HB); if POS_HB =0 then POS_HB =.; if LEN_HB =0 then LEN_HB =.; patternID = prxparse('/ IB /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_IB,LEN_IB); if POS_IB =0 then POS_IB =.; if LEN_IB =0 then LEN_IB =.; patternID = prxparse('/ INC /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_INC,LEN_INC); if POS_INC =0 then POS_INC =.; if LEN_INC =0 then LEN_INC =.; patternID = prxparse('/ INC LTD /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_INC_LTD,LEN_INC_LTD); if POS_INC_LTD=0 then POS_INC_LTD=.; if LEN_INC_LTD=0 then LEN_INC_LTD=.; patternID = prxparse('/ INK /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_INK,LEN_INK); if POS_INK =0 then POS_INK =.; if LEN_INK =0 then LEN_INK =.; patternID = prxparse('/ INK CORP/'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_INK_CORP,LEN_INK_CORP); if POS_INK_CORP =0 then POS_INK_CORP =.; if LEN_INK_CORP =0 then LEN_INK_CORP =.; patternID = prxparse('/ KB /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_KB,LEN_KB); if POS_KB =0 then POS_KB =.; if LEN_KB =0 then LEN_KB =.; patternID = prxparse('/ KS /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_KS,LEN_KS); if POS_KS =0 then POS_KS =.; if LEN_KS =0 then LEN_KS =.; patternID = prxparse('/ KG /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_KG,LEN_KG); if POS_KG =0 then POS_KG =.; if LEN_KG =0 then LEN_KG =.; patternID = prxparse('/ KK /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_KK,LEN_KK); if POS_KK =0 then POS_KK =.; if LEN_KK =0 then LEN_KK =.; patternID = prxparse('/ LC /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_LC,LEN_LC); if POS_LC =0 then POS_LC =.; if LEN_LC =0 then LEN_LC =.; patternID = prxparse('/ LP /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_LP,LEN_LP); if POS_LP =0 then POS_LP =.; if LEN_LP =0 then LEN_LP =.; patternID = prxparse('/ LTD /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_LTD,LEN_LTD); if POS_LTD =0 then POS_LTD =.; if LEN_LTD =0 then LEN_LTD =.; patternID = prxparse('/ LTD LP /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_LTD_LP,LEN_LTD_LP); if POS_LTD_LP =0 then POS_LTD_LP =.; if LEN_LTD_LP =0 then LEN_LTD_LP =.; patternID = prxparse('/ LLP /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_LLP,LEN_LLP); if POS_LLP =0 then POS_LLP =.; if LEN_LLP =0 then LEN_LLP =.; patternID = prxparse('/ LLLP /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_LLLP,LEN_LLLP); if POS_LLLP =0 then POS_LLLP =.; if LEN_LLLP =0 then LEN_LLLP =.; patternID = prxparse('/ LLC /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_LLC,LEN_LLC); if POS_LLC =0 then POS_LLC =.; if LEN_LLC =0 then LEN_LLC =.; patternID = prxparse('/ MBH /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_MBH,LEN_MBH); if POS_MBH =0 then POS_MBH =.; if LEN_MBH =0 then LEN_MBH =.; patternID = prxparse('/ NA /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_NA,LEN_NA); if POS_NA =0 then POS_NA =.; if LEN_NA =0 then LEN_NA =.; patternID = prxparse('/ NV /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_NV,LEN_NV); if POS_NV =0 then POS_NV =.; if LEN_NV =0 then LEN_NV =.; patternID = prxparse('/ NV IO /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_NV_IO,LEN_NV_IO); if POS_NV_IO = 0 then POS_NV_IO =.; if LEN_NV_IO = 0 then LEN_NV_IO =.; patternID = prxparse('/ NL /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_NL,LEN_NL); if POS_NL =0 then POS_NL =.; if LEN_NL =0 then LEN_NL =.; patternID = prxparse('/ SA /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_SA,LEN_SA); if POS_SA =0 then POS_SA =.; if LEN_SA =0 then LEN_SA =.; patternID = prxparse('/ SA DE CV /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_SA_DEC,LEN_SA_DEC); if POS_SA_DEC =0 then POS_SA_DEC =.; if LEN_SA_DEC =0 then LEN_SA_DEC =.; patternID = prxparse('/ SAS /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_SAS,LEN_SAS); if POS_SAS =0 then POS_SAS =.; if LEN_SAS =0 then LEN_SAS =.; patternID = prxparse('/ SAS DE CV /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_SAS_DEC,LEN_SAS_DEC); if POS_SAS_DEC=0 then POS_SAS_DEC=.; if LEN_SAS_DEC=0 then LEN_SAS_DEC=.; patternID = prxparse('/ SAB /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_SAB,LEN_SAB); if POS_SAB =0 then POS_SAB =.; if LEN_SAB =0 then LEN_SAB =.; patternID = prxparse('/ SRO /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_SRO,LEN_SRO); if POS_SRO =0 then POS_SRO =.; if LEN_SRO =0 then LEN_SRO =.; patternID = prxparse('/ SRL /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_SRL,LEN_SRL); if POS_SRL =0 then POS_SRL =.; if LEN_SRL =0 then LEN_SRL =.; patternID = prxparse('/ SAL /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_SAL,LEN_SAL); if POS_SAL =0 then POS_SAL =.; if LEN_SAL =0 then LEN_SAL =.; patternID = prxparse('/ SAU /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_SAU,LEN_SAU); if POS_SAU =0 then POS_SAU =.; if LEN_SAU =0 then LEN_SAU =.; patternID = prxparse('/ SPA /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_SPA,LEN_SPA); if POS_SPA =0 then POS_SPA =.; if LEN_SPA =0 then LEN_SPA =.; patternID = prxparse('/ SPZOO /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_SPZOO,LEN_SPZOO); if POS_SPZOO =0 then POS_SPZOO =.; if LEN_SPZOO =0 then LEN_SPZOO =.; patternID = prxparse('/ SPOL /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_SPOL,LEN_SPOL); if POS_SPOL =0 then POS_SPOL =.; if LEN_SPOL =0 then LEN_SPOL =.; patternID = prxparse('/ SNC /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_SNC,LEN_SNC); if POS_SNC =0 then POS_SNC =.; if LEN_SNC =0 then LEN_SNC =.; patternID = prxparse('/ SCA /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_SCA,LEN_SCA); if POS_SCA =0 then POS_SCA =.; if LEN_SCA =0 then LEN_SCA =.; patternID = prxparse('/ SL /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_SL,LEN_SL); if POS_SL =0 then POS_SL =.; if LEN_SL =0 then LEN_SL =.; patternID = prxparse('/ SC /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_SC,LEN_SC); if POS_SC =0 then POS_SC =.; if LEN_SC =0 then LEN_SC =.; patternID = prxparse('/ SP /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_SP,LEN_SP); if POS_SP =0 then POS_SP =.; if LEN_SP =0 then LEN_SP =.; patternID = prxparse('/ PC /'); call prxsubstr(patternID,cat(strip(compbl(NAME)),' '),POS_PC,LEN_PC); if POS_PC =0 then POS_PC =.; if LEN_PC =0 then LEN_PC =.; array x[*] POS_: ; do k=1 to patternID; POSITION = smallest(k, of x[*]); if POSITION >0 then output; end; drop k; run;  the result shows   NOTE: Argument 1 to function SMALLEST(40,.,.,.,.,.,25,.,.,.,.,.,.,.,57,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.) at line 5415 column 24 is invalid. NAME=3M INNOVATIVE PROPERTIES CO NIPPON TELEGRAPH & TELEPHONE CORP patternID=40 POS_AB=. LEN_AB=. POS_AG=. LEN_AG=. POS_AS=. LEN_AS=. POS_BV=. LEN_BV=. POS_BV_IO=. LEN_BV_IO=. POS_CO=25 LEN_CO=4 POS_CO_LTD=. LEN_CO_LTD=. POS_CO_BV=. LEN_CO_BV=. POS_CO_KG=. LEN_CO_KG=. POS_CO_LP=. LEN_CO_LP=. POS_CO_LC=. LEN_CO_LC=. POS_CO_INC=. LEN_CO_INC=. POS_CO_LLC=. LEN_CO_LLC=. POS_CORP=57 LEN_CORP=6 POS_COOP=. LEN_COOP=. POS_CV=. LEN_CV=. POS_CY=. LEN_CY=. POS_DOO=. LEN_DOO=. POS_EG=. LEN_EG=. POS_HB=. LEN_HB=. POS_IB=. LEN_IB=. POS_INC=. LEN_INC=. POS_INC_LTD=. LEN_INC_LTD=. POS_INK=. LEN_INK=. POS_INK_CORP=. LEN_INK_CORP=. POS_KB=. LEN_KB=. POS_KS=. LEN_KS=. POS_KG=. LEN_KG=. POS_KK=. LEN_KK=. POS_LC=. LEN_LC=. POS_LP=. LEN_LP=. POS_LTD=. LEN_LTD=. POS_LTD_LP=. LEN_LTD_LP=. POS_LLP=. LEN_LLP=. POS_LLLP=. LEN_LLLP=. POS_LLC=. LEN_LLC=. POS_MBH=. LEN_MBH=. POS_NA=. LEN_NA=. POS_NV=. LEN_NV=. k=41 POSITION=. _ERROR_=1 _N_=1 NOTE: Argument 1 to function SMALLEST(40,.,.,.,.,.,10,.,.,.,.,.,.,.,24,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.) at line 5415 column 24 is invalid. NAME=A. STUCKI CO A DELAWARE CORP patternID=40 POS_AB=. LEN_AB=. POS_AG=. LEN_AG=. POS_AS=. LEN_AS=. POS_BV=. LEN_BV=. POS_BV_IO=. LEN_BV_IO=. POS_CO=10 LEN_CO=4 POS_CO_LTD=. LEN_CO_LTD=. POS_CO_BV=. LEN_CO_BV=. POS_CO_KG=. LEN_CO_KG=. POS_CO_LP=. LEN_CO_LP=. POS_CO_LC=. LEN_CO_LC=. POS_CO_INC=. LEN_CO_INC=. POS_CO_LLC=. LEN_CO_LLC=. POS_CORP=24 LEN_CORP=6 POS_COOP=. LEN_COOP=. POS_CV=. LEN_CV=. POS_CY=. LEN_CY=. POS_DOO=. LEN_DOO=. POS_EG=. LEN_EG=. POS_HB=. LEN_HB=. POS_IB=. LEN_IB=. POS_INC=. LEN_INC=. POS_INC_LTD=. LEN_INC_LTD=. POS_INK=. LEN_INK=. POS_INK_CORP=. LEN_INK_CORP=. POS_KB=. LEN_KB=. POS_KS=. LEN_KS=. POS_KG=. LEN_KG=. POS_KK=. LEN_KK=. POS_LC=. LEN_LC=. POS_LP=. LEN_LP=. POS_LTD=. LEN_LTD=. POS_LTD_LP=. LEN_LTD_LP=. POS_LLP=. LEN_LLP=. POS_LLLP=. LEN_LLLP=. POS_LLC=. LEN_LLC=. POS_MBH=. LEN_MBH=. POS_NA=. LEN_NA=. POS_NV=. LEN_NV=. k=41 POSITION=. _ERROR_=1 _N_=2 ... ... NOTE: Missing values were generated as a result of performing an operation on missing values. Each place is given by: (Number of times) at (Line):(Column). 334 at 5415:24 NOTE: Mathematical operations could not be performed at the following places. The results of the operations have been set to missing values. Each place is given by: (Number of times) at (Line):(Column). 9 at 5415:24 NOTE: There were 9 observations read from the data set WORK.HAVE. NOTE: The data set WORK.WANT has 17 observations and 81 variables. NOTE: DATA statement used (Total process time): real time 0.07 seconds cpu time 0.06 seconds   How can I fix it? Could you please give me some suggestions about this?   Thanks in advance.       ... View more

Dear all,   How can I replace strings among (), [], {}, ' ', " " as the same number of Xs for the following words, data HAVE; input NAME :& $800.; cards; ALLCELLS BIOLOGICAL TECHNOLOGY (SHAN) COMPANY ALLEGRO ASIA TECHNOLOGY (D.B.A.) ALLEN BROTHERS 'FITTINGS' ALLEN R. NELSON ENGINEERING (1997) ALLENS MESHCO (PROPRIETARY & MANUFACTURING) ALLERGY THERAPEUTICS {UK} ALLES GOED [PTY] LIMITED, TRADING AS PIPE & PLANT INSULATION run; I expect to get  NAME Expect ALLCELLS BIOLOGICAL TECHNOLOGY (SHAN) COMPANY ALLCELLS BIOLOGICAL TECHNOLOGY (XXXX) COMPANY ALLEGRO ASIA TECHNOLOGY (D.B.A.) ALLEGRO ASIA TECHNOLOGY (X.X.X.) ALLEN BROTHERS 'FITTINGS' ALLEN BROTHERS 'XXXXXXXX' ALLEN R. NELSON ENGINEERING (1997) ALLEN R. NELSON ENGINEERING (XXXX) ALLENS MESHCO (PROPRIETARY & MANUFACTURING) ALLENS MESHCO (XXXXXXXXXXX & XXXXXXXXXXXXX) ALLERGY THERAPEUTICS {UK} ALLERGY THERAPEUTICS {XX} ALLES GOED [PTY] LIMITED, TRADING AS PIPE & PLANT INSULATION ALLES GOED [XXX] LIMITED, TRADING AS PIPE & PLANT INSULATION Could you please give me some suggestions about this?   thanks in advance. ... View more

Dear all,   I am trying to separate the company name from address/introduction information. In order to get the most accurate result, I expect to separate the NAME variable based on company suffix (which in this example, are 'CO', 'LTD', 'INC', 'CO LTD', 'CO LP', 'CORP'). However, these values include at least one company suffix. So I expect to 1. find the first company suffix that appears, and then 2. find the length of company suffix. 3. if two types of company suffixes have same POSITION number, I expect to use the company suffix which has longer LENGTH. 4.sepate the NAME variable based on that company suffix.   for example, for value, AMANA CO LP A LTD PARTNERSHIP UNDER THE LAWS OF USA-DELAWARE there are three kinds of company suffix, which are 'CO', 'CO LP' and ‘LTD’, I expect to use CALL PRXSUBSTR to get the position and length of these three company suffixes, and then  1.exclude ‘LTD’ because the position of 'LTD' is behind the position of 'CO' and 'CO LP'. and then 3.exclude 'CO' because the length of 'CO' is shorter than the length of 'CO LP' 4. separate the NAME variable based on 'CO LP', namely, get 'AMANA CO LP' as a result.   However, I do not know how to use the code most efficiently. Especially how to get the company suffix I need, and the position and length of it. Could you please give me some suggestion about this?     data HAVE; input NAME :& $800.; call prxsubstr(' CO ',NAME,POS_CO,LEN_CO); call prxsubstr(' LTD ',NAME,POS_LTD,LEN_LTD); call prxsubstr(' INC ',NAME,POS_INC,LEN_INC); call prxsubstr(' CO LTD ',NAME,POS_CO_LTD,LEN_CO_LTD); call prxsubstr(' CO LP ',NAME,POS_CO_LP,LEN_CO_LP); call prxsubstr(' CORP ',NAME,POS_CORP,LEN_CORP); /* find the target company suffix and its length */ if find(NAME,' CO ')>0 then do; if prxmatch('/(.*) CO\s?([(\(.*\))|(\[.*\])|(\{.*\})|(''.*'')|(".*")]+)(.*)/',NAME )=0 and (countc(NAME, '()') ne 1 or countc(NAME, '[]') ne 1 or countc(NAME, '{}') ne 1 or countc(NAME, '"') ne 1 or countc(NAME, "'") ne 1) then do; NAME_B=substr(NAME,1,find(NAME,' CO ')+2); NAME_address=strip(substr(NAME,find(NAME,' CO ')+4, length(NAME))); end; else do; NAME_B=substr(NAME,1,find(NAME,' CO ')+2); NAME_address=strip(substr(NAME,find(NAME,' CO ')+4, length(NAME))); end; end; if find(NAME,' LTD ')>0 then do; if prxmatch('/(.*) LTD\s?([(\(.*\))|(\[.*\])|(\{.*\})|(''.*'')|(".*")]+)(.*)/',NAME )=0 and (countc(NAME, '()') ne 1 or countc(NAME, '[]') ne 1 or countc(NAME, '{}') ne 1 or countc(NAME, '"') ne 1 or countc(NAME, "'") ne 1) then do; NAME_B=substr(NAME,1,find(NAME,' LTD ')+3); NAME_address=strip(substr(NAME,find(NAME,' LTD ')+5, length(NAME))); end; else do; NAME_B=substr(NAME,1,find(NAME,' LTD ')+3); NAME_address=strip(substr(NAME,find(NAME,' LTD ')+5, length(NAME))); end; end; if find(NAME,' INC ')>0 then do; if prxmatch('/(.*) INC\s?([(\(.*\))|(\[.*\])|(\{.*\})|(''.*'')|(".*")]+)(.*)/',NAME )=0 and (countc(NAME, '()') ne 1 or countc(NAME, '[]') ne 1 or countc(NAME, '{}') ne 1 or countc(NAME, '"') ne 1 or countc(NAME, "'") ne 1) then do; NAME_B=substr(NAME,1,find(NAME,' INC ')+3); NAME_address=strip(substr(NAME,find(NAME,' INC ')+5, length(NAME))); end; else do; NAME_B=substr(NAME,1,find(NAME,' INC ')+3); NAME_address=strip(substr(NAME,find(NAME,' INC ')+5, length(NAME))); end; end; if find(NAME,' CO LTD ')>0 then do; if prxmatch('/(.*) CO LTD\s?([(\(.*\))|(\[.*\])|(\{.*\})|(''.*'')|(".*")]+)(.*)/',NAME )=0 and (countc(NAME, '()') ne 1 or countc(NAME, '[]') ne 1 or countc(NAME, '{}') ne 1 or countc(NAME, '"') ne 1 or countc(NAME, "'") ne 1) then do; NAME_B=substr(NAME,1,find(NAME,' CO LTD ')+6); NAME_address=strip(substr(NAME,find(NAME,' CO LTD ')+8, length(NAME))); end; else do; NAME_B=substr(NAME,1,find(NAME,' CO LTD ')+6); NAME_address=strip(substr(NAME,find(NAME,' CO LTD ')+8, length(NAME))); end; end; if find(NAME,' CO LP ')>0 then do; if prxmatch('/(.*) CO LP\s?([(\(.*\))|(\[.*\])|(\{.*\})|(''.*'')|(".*")]+)(.*)/',NAME )=0 and (countc(NAME, '()') ne 1 or countc(NAME, '[]') ne 1 or countc(NAME, '{}') ne 1 or countc(NAME, '"') ne 1 or countc(NAME, "'") ne 1) then do; NAME_B=substr(NAME,1,find(NAME,' CO LP ')+5); NAME_address=strip(substr(NAME,find(NAME,' CO LP ')+7, length(NAME))); end; else do; NAME_B=substr(NAME,1,find(NAME,' CO LP ')+5); NAME_address=strip(substr(NAME,find(NAME,' CO LP ')+7, length(NAME))); end; end; if find(NAME,' CORP ')>0 then do; if prxmatch('/(.*) CORP\s?([(\(.*\))|(\[.*\])|(\{.*\})|(''.*'')|(".*")]+)(.*)/',NAME )=0 and (countc(NAME, '()') ne 1 or countc(NAME, '[]') ne 1 or countc(NAME, '{}') ne 1 or countc(NAME, '"') ne 1 or countc(NAME, "'") ne 1) then do; NAME_B=substr(NAME,1,find(NAME,' CORP ')+3); NAME_address=strip(substr(NAME,find(NAME,' CORP ')+5, length(NAME))); end; else do; NAME_B=substr(NAME,1,find(NAME,' CORP ')+3); NAME_address=strip(substr(NAME,find(NAME,' CORP ')+5, length(NAME))); end; end; cards; 3M INNOVATIVE PROPERTIES CO NIPPON TELEGRAPH & TELEPHONE CORP A. STUCKI CO A DELAWARE CORP AMANA CO LP A LTD PARTNERSHIP UNDER THE LAWS OF USA-DELAWARE FEDERAL-HOFFMAN INC D.B.A. FEDERAL CARTRIDGE CO 3M CO (MINNESOTA MINING AND MANUFACTURING COMPANY) 3M CO (MINNESOTA MINING AND MANUFACTURING COMPANY 3M CO (MINNESOTA MINING AND MANUFACTURING COMPANY) A LTD IN UK run; as a result, I expect to get  NAME NAME_B NAME_address 3M INNOVATIVE PROPERTIES CO NIPPON TELEGRAPH & TELEPHONE CORP 3M INNOVATIVE PROPERTIES CO NIPPON TELEGRAPH & TELEPHONE CORP A. STUCKI CO A DELAWARE CORP A. STUCKI CO  A DELAWARE CORP AMANA CO LP A LTD PARTNERSHIP UNDER THE LAWS OF USA-DELAWARE AMANA CO LP  A LTD PARTNERSHIP UNDER THE LAWS OF USA-DELAWARE FEDERAL-HOFFMAN INC D.B.A. FEDERAL CARTRIDGE CO FEDERAL-HOFFMAN INC D.B.A. FEDERAL CARTRIDGE CO 3M CO (MINNESOTA MINING AND MANUFACTURING COMPANY) 3M CO (MINNESOTA MINING AND MANUFACTURING COMPANY)   3M CO (MINNESOTA MINING AND MANUFACTURING COMPANY 3M CO  (MINNESOTA MINING AND MANUFACTURING COMPANY 3M CO (MINNESOTA MINING AND MANUFACTURING COMPANY) A LTD IN UK 3M CO (MINNESOTA MINING AND MANUFACTURING COMPANY) A LTD IN UK ... View more

Dear all, I am processing the variable which inlcudes 'LTD', 'CO', 'CO LTD', 'PLC', 'CORP' and trying to separate the company name from address/introduction information. However, the following variable includes at least two 'company suffix' (i.e., LTD, CO, CO LTD, PLC, CORP), so I expect to process the variable only once. But I do not know how to do it. Could you please give me some suggestions about this?   for following data, data HAVE; input NAME_S221 :& $500.; if find(NAME_S221,' LTD ')>0 and find(NAME_S221,' LTD PARTNERSHIP ')=0 and prxmatch('/(.*) LTD\s?([(\(.*\))|(\[.*\])|(\{.*\})|(''.*'')|(".*")]+)(.*)/',NAME_S221 )=0 then do; NAME_B=substr(NAME_S221,1,find(NAME_S221,' LTD ')+3); NAME_address=strip(substr(NAME_S221,find(NAME_S221,' LTD ')+5, length(NAME_S221))); end; if find(NAME_S221,' CO ')>0 and prxmatch('/(.*) CO\s?([(\(.*\))|(\[.*\])|(\{.*\})|(''.*'')|(".*")]+)(.*)/',NAME_S221 )=0 then do; NAME_B=substr(NAME_S221,1,find(NAME_S221,' CO ')+2); NAME_address=strip(substr(NAME_S221,find(NAME_S221,' CO ')+4, length(NAME_S221))); end; if find(NAME_S221,' CO LTD ')>0 and prxmatch('/(.*) CO LTD\s?([(\(.*\))|(\[.*\])|(\{.*\})|(''.*'')|(".*")]+)(.*)/',NAME_S221 )=0 then do; NAME_B=substr(NAME_S221,1,find(NAME_S221,' CO LTD ')+6); NAME_address=strip(substr(NAME_S221,find(NAME_S221,' CO LTD ')+8, length(NAME_S221))); end; if find(NAME_S221,' PLC ')>0 and prxmatch('/(.*) PLC\s?([(\(.*\))|(\[.*\])|(\{.*\})|(''.*'')|(".*")]+)(.*)/',NAME_S221 )=0 then do; NAME_B=substr(NAME_S221,1,find(NAME_S221,' PLC ')+3); NAME_address=strip(substr(NAME_S221,find(NAME_S221,' PLC ')+5, length(NAME_S221))); end; if find(NAME_S221,' CORP ')>0 and prxmatch('/(.*) CORP\s?([(\(.*\))|(\[.*\])|(\{.*\})|(''.*'')|(".*")]+)/',NAME_S221 )=0 then do; NAME_B=substr(NAME_S221,1,find(NAME_S221,' CORP ')+4); NAME_address=strip(substr(NAME_S221,find(NAME_S221,' CORP ')+6, length(NAME_S221))); end; cards; BOTO (LICENSES) LTD AN ISLE OF MAN CO OF 3/F BOTO (LICENSES) LTD AN ISLE OF MAN LTD OF 3/F BPB LTD A U.K. CORP BROADCOM UK LTD A DELAWARE CORP ARCH TIMBER PROTECTION LTD A PRIVATE LIMITED CO ORGANISED UNDER THE LAWS OF THE UNITED KINDGOM AVDEL SYSTEMS LTD A BRITISH CO run; I get  NAME_S221 NAME_B NAME_address BOTO (LICENSES) LTD AN ISLE OF MAN CO OF 3/F BOTO (LICENSES) LTD AN ISLE OF MAN CO OF 3/F BOTO (LICENSES) LTD AN ISLE OF MAN LTD OF 3/F BOTO (LICENSES) LTD AN ISLE OF MAN LTD OF 3/F BPB LTD A U.K. CORP BPB LTD A U.K. CORP   BROADCOM UK LTD A DELAWARE CORP BROADCOM UK LTD A DELAWARE CORP   ARCH TIMBER PROTECTION LTD A PRIVATE LIMITED CO ORGANISED UNDER THE LAWS OF THE UNITED KINDGOM ARCH TIMBER PROTECTION LTD A PRIVATE LIMITED CO ORGANISED UNDER THE LAWS OF THE UNITED KINDGOM AVDEL SYSTEMS LTD A BRITISH CO AVDEL SYSTEMS LTD A BRITISH CO   However, I expect to process the variable 'NAME_S221' only once. namely, I expect to get  NAME_S221 NAME_B NAME_address BOTO (LICENSES) LTD BOTO (LICENSES) LTD AN ISLE OF MAN CO OF 3/F BOTO (LICENSES) LTD AN ISLE OF MAN LTD OF 3/F BOTO (LICENSES) LTD AN ISLE OF MAN LTD OF 3/F BPB LTD A U.K. CORP BPB LTD A U.K. CORP BROADCOM UK LTD A DELAWARE CORP BROADCOM UK LTD A DELAWARE CORP ARCH TIMBER PROTECTION LTD A PRIVATE LIMITED CO ORGANISED UNDER THE LAWS OF THE UNITED KINDGOM ARCH TIMBER PROTECTION LTD A PRIVATE LIMITED CO ORGANISED UNDER THE LAWS OF THE UNITED KINDGOM AVDEL SYSTEMS LTD A BRITISH CO AVDEL SYSTEMS LTD A BRITISH CO ... View more