text pszField = "MYFIELD";
text pszDelimiter = ";";

main()
{
   int db, i, j;
   
   cycle(db) {
   
      puts(0,0,"Processing record " + str(docno(db)) + " of " + str(count(db)));
      
      j = 1;
      while ((i = match(db->pszField, pszDelimiter, j)) > 0) {
         tag(db, 1, trim(substr(db->pszField, j, i - j)));         
         j = i + 1;
      }
               
      tag(db, 1, trim(substr(db->pszField, j)));
      
   }
}