/*
 *  Concordance Programming Language Trim Space From Field
 *
 *      Copyright (c) 1994 Dataflight Software, Inc. 
 *      ALL RIGHTS RESERVED.
 *      2337 Roscomare Road, Suite 11
 *      Los Angeles, CA 90077
 *
 *      Unauthorized distribution, adaptation or use may be
 *      subject to civil and criminal penalties.
 *
 *      You may incorporate this program into your own programs
 *      ONLY if you incorporate the following copyright notice:
 *
 *      Copyright (c) 1994 YOUR NAME. ALL RIGHTS RESERVED.
 *      Portions copyright (c) 1994 Dataflight Software, Inc.
 *
 */

main()
{
int i, db;

   cycle(db) {
   
      for(i = 1; i <= db.fields; i = i + 1)
        {
            if(db.type[i] == 'P')
            
                db->i = trim(db->i);
         
         }
         
      puts(0,10,"Trimming Leading/Trailing blanks from all PARAGRAPH fields");
      puts(1,10,"Document "+str(docno(db),10,0,','));

   }
}