/*
 *  Concordance Programming Language
 *
 *      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) 1997 YOUR NAME. ALL RIGHTS RESERVED.
 *      Portions copyright (c) 1994, 1997 Dataflight Software, Inc.
 *
 * 
 *
 *      This program is designed to tag all records which produce
 *      "error on ___ file" messages (e.g., "error on text file.")
 */

main()
{
int i, db;
    for (i = 1; i <= db.documents; i = i + 1) {
       puts(0,0,"Record "+str(i)+" of "+str(db.documents));
       if (readdoc(db,i))
         tag(db,1,"error on record");
    }
}