>PUBLIC cNewSupplier >cSupplier = 'Ozbecek Lamin Flowline' > >STORE GETWORDCOUNT(cSupplier,' ') TO lcsupcount > >cNewSupplier = '' >FOR x=1 TO lcsupcount > IF EMPTY(cNewSupplier) > STORE 'descrip1 =' GETWORDNUM(cSupplier,(x),' ') TO lcNewSupplier > ELSE > STORE cNewSupplier + ' or descrip1 = ' + GETWORDNUM(cSupplier,(x),' ') TO cNewSupplier > ENDIF >NEXT >>
PUBLIC cNewSupplier cSupplier = 'Ozbecek Lamin Flowline' STORE GETWORDCOUNT(cSupplier,' ') TO lcsupcount cNewSupplier = '' FOR x=1 TO lcsupcount IF EMPTY(cNewSupplier) STORE [descrip1 ='] + GETWORDNUM(cSupplier,(x),' ') + ['] TO lcNewSupplier ELSE STORE cNewSupplier + [ or descrip1 = '] + GETWORDNUM(cSupplier,(x),' ') + ['] TO cNewSupplier ENDIF NEXT