FOR lii=1 TO AFIELDS(laFields) IF NOT INLIST(laFields(lii,2),'C','V','M') LOOP ENDIF * add condition for your fields lcField=laFields(lii,1) REPLACE &lcField. WITH STRCONV(STRCONV(&lcField.,9,1250,1),11,1251,1) ALL NEXT>>i reproduce your "desirata" in the code below.
>>create cursor globalinx (addfield c(150),unaccentued c(150)) >>insert into globalinx values("Tellus donec pulvîar fancibüs à classé pésuéré arcu mattis, aliquét alèquam habitant juséo convallis tùrpus néc,","") >>insert into globalinx values("adipiscing enim !","") >>insert into globalinx values("énis nostra fuscé. Fringlilia vestibulum sed famès nostré morbi mattis ut, cubliâ classé curae metus conubia","") >>insert into globalinx values("cél litoré, primis donéc dictum aliquet pulvîar et orci interdum.","") >>SELECT globalinx >>SCAN >>repl unaccentued with CHRTRAN(addfield, "ÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïðñòóôõöùúûüýÿ","AAAAAACEEEEIIIIDNOOOOOUUUUYaaaaaaceeeeiiiidnooooouuuuyy") >>endscan >>brow >>>